首页 > 代码库 > 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.
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 检查全角半角
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。