检查汉字串中是否有半角或非法字符

blogliou

感觉有许多企业可能都会有检查数据中文字段是否有乱码的问题, 所以与大家分享这一函数:

http://www.cublog.cn/u/2405/showart.php?id=129792

检查汉字串中是否有半角或非法字符





AS400系统通过前置X’0E’字节和后置X’0F’字节来标识双字节汉字串。业务系统运行中经常情况下，因为各种原因，会造成汉字串混进非标准字符或X’0E’—X’0F’配对出现混乱，导致汉字串异常。业务员常常希望程序员能够从大量数据的表中自动检查出含有异常汉字串的记录。



这里提供一个检查汉字串中是否有半角或非法字符的函数与大家分享。



一．函数源码名CHECKCHNP，函数名C_CHECK



二．检查规则：



1。如果字符串中没有X'0E'和X'0F'，则检查字符串是否全是常规半角字符，如果全是常规半角字符，则字符串有效，否则非法。



2。如果字符串中X'0E'和X'0F'不配对，则字符串非法。



3。如果X'0E'和X'0F'之间字符个数为奇数，则字符串为非法。



4。如果X'0F'在X'0E'前面，则字符串非法。



5。字符串中有X'00'，则非法。



三：调用方法：



Eval      WWSIGN=C_CHECK(CHNNAM)



其中CHNNAM为检查字段，WWSIGN为返回标识，如果WWSIGN不等于零，则该字段非法。

　

四：调用示范例子



检查TESTA文件中包含客户姓名(CHNNAM)字段是否非法，把有非法姓名的记录输出到TESTAQL文件里。



程序名TESTAPL, 用COPY方式包含过程原型说明头文件CHECKCHNH和过程源文件CHECKCHNP　（也可以用module方式）.编译时需选择DFTACTGRP为*NO.



CHECKCHNP, CHECKCHNH, TESTAPL打包在CHECKCHN中。



２００６.６.１９

[ 本帖最后由 blogliou 于 2006-6-19 12:17 编辑 ]

pl421

好东西，收了

qingzhou

不错、不错～～～

老兄开始发标了，哈哈　

加油。

blogliou

最近失业了,无米下锅,闲着也是闲着,有海量数据清理任务或数据分析或双机热备的项目不妨跟我联系啊.

blogliou

1. 附件函数程序中主要就是交替使用了SCAN和CHECK以检查非法字符
   
2. 
   
3.       *====================================================================*
   
4.       *                                                                    *
   
5.       *                                                                    *
   
6.       *                                                                    *
   
7.       *--------------------------------------------------------------------*
   
8.       *   PROGRAM NAME   : CHECKCHNP                                       *
   
9.       *   PROGRAMMER     : BLOG LIOU                                       *
   
10.       *   CREATED DATE   : 2004/05/21                                      *
    
11.       *--------------------------------------------------------------------*
    
12.       *   DESCRIPTION    :检查含有汉字串的字符串中是否有半角或非法字符   *
    
13.       *                                                                    *
    
14.       *  根据汉字字符串前有X'0E'字节,                                *
    
15.       *  后有X'0F'字节来简单判断非法字符                               *
    
16.       *                                                                    *
    
17.       *   1。如果字符串中没有X'0E'和X'0F'，则检查字符串是否全是常规  *
    
18.       *      半角字符，如果全是常规半角字符，则字符串有效，否则非法。    *
    
19.       *   2。如果字符串中X'0E'和X'0F'不配对，则字符串非法。          *
    
20.       *   3。如果X'0E'和X'0F'之间字符个数为奇数，则字符串为非法。    *
    
21.       *   4。如果X'0F'在X'0E'前面，则字符串非法。                    *
    
22.       *   5。字符串中有X'00'，则非法。                               *
    
23.       *                                                                    *
    
24.       *--------------------------------------------------------------------*
    
25.       *   INPUT FIELD    :                                                 *
    
26.       *     CHNCHR       :检查字符串最大长度为80                         *
    
27.       *                                                                    *
    
28.       *   OUTPUT FILED   :                                                 *
    
29.       *     WWSIGN       : 1位长度，0为有效，1为非法                 *
    
30.       *====================================================================*
    
31.       *
    
32.       *====================================================================*
    
33.       *
    
34.      P C_CHECK         B
    
35.      D C_CHECK         PI             1A
    
36.      D   CHNCHR                      80A   VALUE
    
37.      D ENGCHAR         C                   'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghi-
    
38.      D                                     jklmnopqrstuvwxyz1234567890!@#$%^&*(-
    
39.      D                                     )-_=+[]{}\|;:,<.>/?`~"'' '
    
40.      D CHID            C                   X'00'
    
41.       *
    
42.       *
    
43.      C                   MOVE      '0'           WWSIGN            1
    
44.      C                   Z-ADD     *ZERO         EPOS              2 0
    
45.      C                   Z-ADD     *ZERO         FPOS              2 0
    
46.      C                   Z-ADD     *ZERO         EFLEN             2 0
    
47.      C                   Z-ADD     *ZERO         EFNUM             2 0
    
48.       *
    
49.      C                   EVAL      FFN  = %SCAN(CHID:CHNCHR)
    
50.      C                   IF        FFN <> 0
    
51.      C                   MOVE      '1'           WWSIGN
    
52.      C                   GOTO      ENDCNK
    
53.      C                   ENDIF
    
54.       *
    
55.      C                   DOW       1 = 1
    
56.      C                   ADD       1             EFNUM
    
57.      C
    
58.      C                   IF        EPOS < 80
    
59.      C                   IF        FPOS < 80
    
60.      C                   EVAL      EPOS = %SCAN(X'0E':CHNCHR:EPOS+1)
    
61.      C                   EVAL      FPOS = %SCAN(X'0F':CHNCHR:FPOS+1)
    
62.      C                   ELSE
    
63.      C                   LEAVE
    
64.      C                   ENDIF
    
65.      C                   ELSE
    
66.      C                   EVAL      FPOS = 0
    
67.      C                   ENDIF
    
68.       *
    
69.      C                   IF        EPOS = 0 AND FPOS <> 0 OR
    
70.      C                             EPOS <>0 AND FPOS = 0
    
71.      C                   MOVE      '1'           WWSIGN
    
72.      C                   LEAVE
    
73.      C                   ENDIF
    
74.       *
    
75.      C                   IF        EPOS = 0 AND FPOS =0
    
76.      C                   IF        EFNUM = 1
    
77.      C     ENGCHAR       CHECK     CHNCHR        FFN               2 0
    
78.      C                   IF        FFN <> 0
    
79.      C                   MOVE      '1'           WWSIGN
    
80.      C                   LEAVE
    
81.      C                   ENDIF
    
82.      C                   ENDIF
    
83.      C                   LEAVE
    
84.      C                   ENDIF
    
85.       *
    
86.      C                   EVAL      EFLEN = FPOS - EPOS
    
87.      C                   IF        EFLEN > 0
    
88.      C                   MOVE      EFLEN         V1P               1 0
    
89.      C                   IF        V1P=0 OR V1P=2 OR V1P=4 OR V1P=6 OR V1P=8
    
90.      C                   MOVE      '1'           WWSIGN
    
91.      C                   LEAVE
    
92.      C                   ENDIF
    
93.      C                   ELSE
    
94.      C                   MOVE      '1'           WWSIGN
    
95.      C                   LEAVE
    
96.      C                   ENDIF
    
97.      C                   ENDDO
    
98.       *
    
99.      C     ENDCNK        TAG
    
100.      C                   RETURN     WWSIGN
     
101.      P C_CHECK         E
     
102.       *
     
103.       *====================================================================+
     

复制代码

qingzhou

宝哥就是宝哥，，，出手还是那么大方，哈哈~~~

l.rover

好贴子。

blogliou

大家有什么别的好方法,可以一起共享嘛

liu__jiang

Up

USING_AS400

宝哥出手，必属好贴！
顶一下！