判断是否含有汉字或汉字标点

*方法一：  
LOCAL  lcString  
lcString="adfd1成21d功fdsf577"  
IF  LENC(ALLTRIM(lcString))  <>  LEN(ALLTRIM(lcString))  
           MESSAGEBOX("字符串中含用双字节字符！",64,"信息提示")  
ENDIF  
 
*方法二：  
LOCAL  lcString  
lcString="adfd1成21d功fdsf577"  
FOR  I=1  TO  LEN(ALLTRIM(lcString))  
           IF  ISLEADBYTE(SUBSTR(ALLTRIM(lcString),I,1))  
                       MESSAGEBOX("字符串中含用双字节字符！",64,"信息提示")  
                       EXIT  
           ENDIF  
ENDFOR  
 
*方法三：  
LOCAL  lcString  
lcString="adfd1成21d功fdsf577"  
FOR  I=1  TO  LEN(ALLTRIM(lcString))  
           IF  ASC(SUBSTR(ALLTRIM(lcString),I,1))>122  
                       MESSAGEBOX("字符串中含用双字节字符！",64,"信息提示")  
                       EXIT  
           ENDIF  
ENDFOR