[SAP ABAP开发技术总结]字符编码与解码、Unicode

DATA : xstr TYPE xstring . 
DATA :  l_codepage ( 4 ) TYPE n . 
DATA :  l_encoding ( 20 ). 
********** 字符集名与内码转换 
" 将外部字符集名转换为内部编码 
CALL FUNCTION 'SCP_CODEPAGE_BY_EXTERNAL_NAME' 
  EXPORTING 
    external_name = 'UTF-8' 
  IMPORTING 
    sap_codepage  = l_codepage . 
l_encoding = l_codepage . 
********** 编码 
DATA : convout TYPE REF TO cl_abap_conv_out_ce . 
" 创建编码对象 
convout = cl_abap_conv_out_ce => create ( encoding = l_encoding ). 
convout -> write ( data = ' 测试 ' ). " 编码 
xstr =  convout -> get_buffer ( ). " 获取码流 
WRITE : / xstr . "E6B19FE6ADA3E5869B 
********** 解码 
DATA : convin TYPE REF TO cl_abap_conv_in_ce . 
" 创建解码对象 
convin = cl_abap_conv_in_ce => create ( encoding = l_encoding input = xstr ). 
DATA : str TYPE string . 
CALL METHOD convin -> read " 解码 
  IMPORTING data = str . 
WRITE : / str . 

使用CL_ABAP_CODEPAGE类进行编解码：

DATA: xstr TYPE xstring,
      str  TYPE string,
      l_codepage(4) TYPE n ,
      l_encoding(20).
**********字符集名与内码转换
"将外部字符集名转换为内部编码
CALL FUNCTION 'SCP_CODEPAGE_BY_EXTERNAL_NAME'
  EXPORTING
    external_name = 'UTF-8'
  IMPORTING
    sap_codepage  = l_codepage.
WRITE: /  l_codepage.
"等同于下面类方法
l_codepage = cl_abap_codepage=>sap_codepage( 'UTF-8' ).
WRITE: /  l_codepage.

"编码
xstr = cl_abap_codepage=>convert_to(
  source      = '测试
  codepage    = `UTF-8` ).
WRITE: / xstr.
"解码
str = cl_abap_codepage=>CONVERT_FROM(
  source      =  xstr
  codepage    = `UTF-8` ).
WRITE: / str.