1,在Non-Unicode系统中,一个汉字占2个单位长度,可以用CHARLEN的返回值判断是否汉字。
DATA: len TYPE i,
str TYPE c LENGTH 20.
str = 'Hello哈哈'.
len = CHARLEN( str )."1,代表英文
len = CHARLEN( str+4 )."1,代表英文
len = CHARLEN( str+5 )."2,代表汉字
len = CHARLEN( str+6 )."2,代表汉字
len = CHARLEN( str )."1,代表英文
len = CHARLEN( str+4 )."1,代表英文
len = CHARLEN( str+5 )."2,代表汉字
len = CHARLEN( str+6 )."2,代表汉字
2,在Unicode系统中,汉字与英文一样占1个单位长度,可以调用函数NLS_VISUAL_CHARLEN来判断。
DATA: c1 type char1,
vislen type i.
c1 = 'A'.
*c1 = '哈'.
CALL FUNCTION 'NLS_VISUAL_CHARLEN'
EXPORTING
str = c1
IMPORTING
len_visual = vislen.
EXPORTING
str = c1
IMPORTING
len_visual = vislen.
IF vislen = 1.
WRITE: '英文'.
ELSE.
WRITE: '汉字'.
ENDIF.
转载自:http://blog.chinaunix.net/uid-150062-id-2780087.html