判斷字符串是數字還是漢字還是英文

（1）判斷字符串是英文還是漢字

DATA: c1 TYPE char1,
vislen TYPE i.
c1 = '好'.
CALL FUNCTION 'NLS_VISUAL_CHARLEN'
EXPORTING
str = c1
IMPORTING
len_visual = vislen.

IF vislen = 1.
WRITE: '英文'.
ELSE.
WRITE: '漢字'.
ENDIF.

 

 

（2）判斷字符串是否為數字

DATA:bb TYPE i.

DATA as_str TYPE string.
as_str = '0.005'.

CATCH SYSTEM-EXCEPTIONS conversion_errors = 1. "判斷字符串as_str中是否含有數字，if sy-subrc = 0 ，說明有數字
MOVE as_str TO bb.
ENDCATCH.
IF sy-subrc = 0 .
WRITE '這是個數字'.
ELSE.
WRITE '這不是數字'.
ENDIF.