ABAP--关于字符串String到XString XString to String转换代码

最近有网友问及String到XString XString to String转换，下面代码供大家参考

代码如下

report zrich_0001.

data: s type string,
      h(1) type x,
      c(1) type c,
      byte(2) type c,
      length type i,
      l_bindata type xstring,
      l_cntbin   TYPE sdokcntbins.

FIELD-SYMBOLS: <DUMMY>.

s = 'This Is A String!'.
length = strlen( s ).

* Use Write to Convert String to XSTRING
write:/ 'Use Write to Convert String to XSTRING' .
ULINE /1(80).
New-line.
do length times.
  byte = ( sy-index - 1 ).
  c = s+byte(1).
* You can do this
  ASSIGN h TO <DUMMY> TYPE 'X'.
  WRITE c TO <DUMMY>.
  write: h.
enddo.

* Use Function to Convert String to XSTRING
call function 'SCMS_STRING_TO_XSTRING'
  exporting
    text           = s
*     MIMETYPE       = ' '
  importing
    buffer         = l_bindata
  exceptions
    failed         = 1
    others         = 2
          .
if sy-subrc = 0.
  ULINE /1(80).
  write:/ 'Use Function to Convert String to XSTRING'.
  ULINE /1(80).
  write:/ l_bindata.
endif.
*
** 1. Convert input-table to XSTRING
*CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
*     EXPORTING: input_length = length
*     IMPORTING: buffer       = l_bindata
*     TABLES:    binary_tab   = l_cntbin
*     EXCEPTIONS: failed      = 1
*                 OTHERS      = 2.
*IF sy-subrc <> 0.
*ENDIF.

 

* 2. Convert XSTRING to STRING
clear length.
CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
  EXPORTING:
     buffer        = l_bindata
  IMPORTING:
    output_length = length
  TABLES:
    binary_tab   = l_cntbin.
if sy-subrc = 0.
  CALL FUNCTION 'SCMS_BINARY_TO_STRING'
    EXPORTING
      INPUT_LENGTH        = length
   IMPORTING
     TEXT_BUFFER         = S
     OUTPUT_LENGTH       = length
    TABLES
      BINARY_TAB          = l_cntbin
* EXCEPTIONS
*   FAILED              = 1
*   OTHERS              = 2
            .
  IF SY-SUBRC <> 0.
    ULINE /1(80).
    write:/ 'Convert XSTRING to output-table'.
    ULINE /1(80).
    write:/ s.
  endif.
endif.

 

3 Decode base64 (TYPE STRING) into plaintext (TYPE STRING).

FORM encode_base64 USING plaintext base64.
  CHECK plaintext IS NOT INITIAL.
  CONSTANTS:
    lc_op_enc TYPE x VALUE 36.
  DATA:
    l_len TYPE i,
    l_xstr TYPE xstring,
    lr_conv TYPE REF TO cl_abap_conv_out_ce.
  lr_conv = cl_abap_conv_out_ce=>create( ).
  l_len = strlen( plaintext ).
  lr_conv->write( data = plaintext n = l_len ).
  l_xstr = lr_conv->get_buffer( ).
  CALL 'SSF_ABAP_SERVICE'
    ID 'OPCODE' FIELD lc_op_enc
    ID 'BINDATA' FIELD l_xstr
    ID 'B64DATA' FIELD base64. "#EC CI_CCALL
ENDFORM.

 

 

相关函数

SCMS_STRING_TO_XSTRING

 

'ECATT_CONV_XSTRING_TO_STRING'

 

SCMS_BINARY_TO_XSTRING