REPORT Y_CLY_XML2.
START-OF-SELECTION.
DATA: LV_XML TYPE STRING.
LV_XML = '<?xml version="1.0" encoding="gbk"?><hd><adf/><itm>adf</itm><a1>adf</a1><b1>sk01</b1></hd>'.
PERFORM FRM_OPEN_XML_STR USING LV_XML.
*&---------------------------------------------------------------------*
*& Form FRM_OPEN_XML_STR
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_LV_XML text
*----------------------------------------------------------------------*
FORM FRM_OPEN_XML_STR USING PV_XML.
DATA: LO_XML TYPE REF TO CL_XML_DOCUMENT.
DATA: LV_SUBRC TYPE SYSUBRC.
* 创建XML对象
CREATE OBJECT LO_XML.
LV_SUBRC = LO_XML->PARSE_STRING( PV_XML ).
IF LV_SUBRC = 0.
LO_XML->DISPLAY( ).
ENDIF.
ENDFORM. " FRM_OPEN_XML_STR
ABAP DISPLY XML STRING
最新推荐文章于 2023-09-15 15:20:38 发布