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.