ABAP 判断某个或者某段字符串是否为汉字

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，代表汉字

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.

IF vislen = 1.

WRITE: '英文'.

ELSE.

WRITE: '汉字'.

ENDIF.

转载自：http://blog.chinaunix.net/uid-150062-id-2780087.html