最近有网友问及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
分享到:
相关推荐
ABAP - Keyword Documentation This documentation describes the syntax and meaning of the keywords of the ABAP language and its object-oriented part ABAP Objects. Alongside this, language frameworks ...
1. 字符串连接 2.字符串分隔, split 一个 string 的部分到一个内表或一系列的变量
ABAP-培训教材附录 ABAP-培训教材ABAP-培训教材ABAP-培训教材ABAP-培训教材
CD260-ABAP-in-Eclipse-开发-CN CD260-ABAP-in-Eclipse-开发-CNCD260-ABAP-in-Eclipse-开发-CNCD260-ABAP-in-Eclipse-开发-CN
eclipse-abap-keywordcolors eclipse-abap-关键字颜色
ABAP-根据T-CODE找用户出口;ABAP-根据T-CODE找用户出口
SAP-ABAP-OO-实现-CL-SALV-TABLE
ABAP-学习笔记-通用
SAP方丈-ABAP-SAP增强应用实例
SAP-ABAP-Certification-Review.pdf
ABAP-UPLOAD文件时常用的数据转换 关于using和changing 程序之间的调用 报表中所用到的事件以及作用 SAP-ABAP SELECT-SCREEN 的几个用法 SAP中调用外部程序(RFC) ABAP 读EXCEL 到内表 ABAP总结之BDC完整版 ABAP的...
ABAP-选择屏幕 Dynpros 基础 通过这个屏幕实例可以了解屏幕元素的构成,及屏幕事件。
包括abap低于字符串的操作相关示例代码
SAP中文教材全系列之:ABAP中文标准教材-BC400_ZH_Col63_FV_Part_A4 陆续更新中。
ABAP-数据类型学习笔记
ABAP-EXCEL编程 完整详细例子
似乎是系统有Bug,或是其他原因,采购申请中的发布标识,在取消审批后,不能复原。
讲解了ABAP SQL Functions for Strings的使用
SAP资料集有ABAP-PP-MM-RFC-BAPI-JCO等.rar
ABAP-透明表学习笔记.py