UNICODE编码转换为中文

SE37：ABAP代码解析与中文字串转换

最新推荐文章于 2024-09-25 21:45:03 发布

原创最新推荐文章于 2024-09-25 21:45:03 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#abap #unicode

ABAP 专栏收录该内容

6 篇文章

订阅专栏

本文介绍如何使用SE37创建ABAP程序，处理Unicode字符串，包括SPLIT函数应用、字符集转换和Chinese字符处理。重点在于将UTF-8编码的输入字符串转换为中文字符串并保存到E_STR变量。

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.