ABAP 检查全角半角

只谈情不闲聊 提交于 2020-03-09 02:56:58
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.
标签
易学教程内所有资源均来自网络或用户发布的内容,如有违反法律规定的内容欢迎反馈
该文章没有解决你所遇到的问题?点击提问,说说你的问题,让更多的人一起探讨吧!