首页 > 代码库 > ABAP 检查全角半角

ABAP 检查全角半角

check全角or半角的方法

第一种方法
SJIS_DBC_TO_SBC 全角转半角 
SJIS_SBC_TO_DBC 半角转换为全角 
设定 import 
all =x
text = 文本
全角-〉半角,返回值 1
全角-〉全角 返回值0

第二种方法
REPORT ZZXIAOXIN0999.
DATA: last_ascii_zf(2) TYPE x value ‘00FF‘. "unicode MIT
DATA: last_ascii_en(2) TYPE x value ‘A100‘. "unicode MIT
data char(33) type c.
data: point(2) type x.
char = ‘ssss‘.
point = cl_abap_conv_out_ce=>uccp( char ).
if point <= last_ascii_zf.
else.
write ‘double byte char‘.
endif.

ABAP 检查全角半角