XML数据转为DATA

function zXMLTODATA

FUNCTION zxmltodata.
*"----------------------------------------------------------------------
*"*"Local interface:
*" IMPORTING
*" VALUE(I_DATAIN) TYPE STRING
*" VALUE(I_DATATYPE) TYPE TYPENAME
*" CHANGING
*" REFERENCE(C_MSGOUT) TYPE Z10WFSKET1 OPTIONAL
*"----------------------------------------------------------------------
* Data Definition
DATA:
* LSTR_XML TYPE STRING,
lstr_pre TYPE string,
lv_datain TYPE string,
li_len TYPE i,
lstr_tmp TYPE xstring,
ls_msg TYPE z10wfske01,
lo_oref TYPE REF TO cx_root,
ld_struc TYPE REF TO data,
lc_char(200) TYPE c,
li_num TYPE i.

FIELD-SYMBOLS: TYPE ANY.
* 初始化
CLEAR c_msgout[].
* XML特殊字符转义

* "&"
REPLACE ALL OCCURRENCES OF '&'
IN i_datain WITH '&'.
* 双引号
REPLACE ALL OCCURRENCES OF '"'
IN i_datain WITH '"'.
* 单引号
REPLACE ALL OCCURRENCES OF '''
IN i_datain WITH '''.
* "
REPLACE ALL OCCURRENCES OF '<'
IN i_datain WITH '<'.
* ">"
REPLACE ALL OCCURRENCES OF '&GT;'
IN i_datain WITH '>'.

* 将string转换为xstring
CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
EXPORTING
text = i_datain
IMPORTING
buffer = lstr_tmp
EXCEPTIONS
failed = 1
OTHERS = 2.

IF sy-subrc NE 0.
ls_msg-msgtyp = 'E'.
ls_msg-msgno = '000'.
ls_msg-msgtxt = '转码出现错误'.
APPEND ls_msg TO c_msgout.
ENDIF.

* 检查xstring中是否有utf-16enconding标记，如果有，则去除该标记
* IF lstr_tmp(1) = 'EF'.
li_num = XSTRLEN( lstr_tmp ).
IF li_num >= 3.
IF lstr_tmp(2) = 'FFFE' OR "Unicode - Little Endian
lstr_tmp(2) = 'FEFF' OR "Unicode - Big Endian
lstr_tmp(3) = 'EFBBBF'. "UTF-8 Representation of FEFF
SHIFT i_datain BY 1 PLACES IN CHARACTER MODE.
ENDIF.
ENDIF.

MOVE: i_datain TO lv_datain.
* 加XML头和尾
CONCATENATE
'<?xml version="1.0" encoding="utf-16"?>'
''
''
INTO lstr_pre.

CONCATENATE lstr_pre lv_datain INTO lv_datain.
CONCATENATE lv_datain '' INTO lv_datain.

CREATE DATA ld_struc TYPE (i_datatype).
ASSIGN ld_struc->* TO .
* XML数据转换到具体结构中
TRY.

CALL TRANSFORMATION id
SOURCE XML lv_datain
RESULT data = .

CATCH cx_transformation_error INTO lo_oref.
ls_msg-msgtyp = 'E'.
ls_msg-msgno = '000'.
ls_msg-msgtxt = lo_oref->get_text( ).
APPEND ls_msg TO c_msgout.

ENDTRY.
IF IS ASSIGNED.
UNASSIGN .
ENDIF.
ASSIGN TO .

ENDFUNCTION.

[@more@]

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/190059/viewspace-1055818/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/190059/viewspace-1055818/