SE37创建FM, copy以下代码
*"----------------------------------------------------------------------
*"*"本地接口:
*" IMPORTING
*" VALUE(I_STR) TYPE STRING
*" EXPORTING
*" REFERENCE(E_STR) TYPE STRING
*"----------------------------------------------------------------------
DATA: lv_unicode TYPE string,
lv_chinese TYPE string,
lt_tab TYPE TABLE OF char04,
lt_tab1 TYPE TABLE OF char255.
SPLIT i_str AT '\u' INTO TABLE lt_tab.
SPLIT i_str AT '\u' INTO TABLE lt_tab1.
CLEAR: lv_chinese.
LOOP AT lt_tab INTO DATA(ls_tab).
READ TABLE lt_tab1 INTO DATA(ls_tab1) INDEX sy-tabix.
IF strlen( ls_tab ) = 4.
TRANSLATE ls_tab TO UPPER CASE.
lv_chinese = lv_chinese && cl_abap_conv_in_ce=>uccp( ls_tab ).
ENDIF.
IF ls_tab1 <> ls_tab AND ls_tab1 IS NOT INITIAL.
lv_chinese = lv_chinese && ls_tab1+4.
ENDIF.
CLEAR:ls_tab1.
ENDLOOP.
e_str = lv_chinese.