AS400 RPGLE 检测字段中是否含有中文

Question

1. D  xxOK                          1A   INZ('N')     
2. D  CHNSTR                       50A   INZ(' ')     
3. D  CHNe                          1A   INZ(X'0E')   
4. D  CHNf                          1A   INZ(X'0F')   
5. D  xxi                           2P 0 INZ(0)      
6. D  xxie                          2P 0 INZ(0)      
7. D  xxif                          2P 0 INZ(0)      
8.   
9. C                   CLEAR                   xxOK            
10. C*---                                    
11. C                   CLEAR                   CHNSTR           
12. C                   EVAL      CHNSTR = HCCN                  
13. C                   EXSR      CHKCHN                        
14. C                   IF        (xxie > 0) or (xxif > 0)      
15. C                   EVAL      xxOK   = 'Y'                  
16. C                   LEAVESR                                 
17. C                   ENDIF                                    
18.   
19.   
20. C***********************************************************  
21. C*    CHKCHN = Check Chinese Character                       
22. C***********************************************************  
23. CSR   CHKCHN       BEGSR                                    
24. C*                                                            
25. c                   eval      xxi = 50                        
26. c                   eval      xxie= 0                        
27. c                   eval      xxif= 0                        
28. c                   dow       xxi > 0                        
29. c                   if        %subst(CHNSTR:xxi:1)=CHNe      
30. c                   eval      xxie= xxi                       
31. c                   leavesr                                   
32. c                   endif                                    
33. c                   if        %subst(CHNSTR:xxi:1)=CHNf      
34. c                   eval      xxif= xxi                       
35. c                   leavesr                                   
36. c                   endif                                    
37. c                   sub       1             xxi               
38. c                   enddo                                    
39. C*                                                            
40. CSR                 ENDSR        

复制代码

Answer 1

晕，直接把JmLei的拷贝出来的吧

Answer 2

哈哈，谁是原版！

Answer 3

wyd1990 发表于 2010-10-26 15:38

    很象我以前写的代码，http://blog.csdn.net/jmlei/archive/2009/04/27/4127931.aspx

Answer 4

那如果是符号或者是不识别的字符..那它也是检测为中文?

Answer 5

上面两位说得不错.

Answer 6

楼上故意的啊
如果是乱码的话，检查也是认为是中文吧！

Answer 7

如果是韩文/日文的话，检查也是认为是中文吧！