一个简单的创建xml方式

最新推荐文章于 2024-05-05 08:05:24 发布
转载 最新推荐文章于 2024-05-05 08:05:24 发布 · 71 阅读 · 0 ·
CC 4.0 BY-SA版权
原文链接：http://www.cnblogs.com/caizjian/p/8845936.html 

DATA: BEGIN OF itab_matnr OCCURS 0 ,
        matnr LIKE mara-matnr ,
        maktx LIKE makt-maktx ,
      END OF itab_matnr .
DATA: BEGIN OF itab_class OCCURS 0 ,
        class LIKE m_wwgha-class,"部门
        kschl LIKE m_wwgha-kschl,"DESC
      END OF itab_class .
DATA: l_ixml TYPE REF TO if_ixml,
      l_encoding TYPE REF TO if_ixml_encoding,
      l_comment TYPE REF TO if_ixml_comment,
      l_doc TYPE REF TO if_ixml_document,
      l_root TYPE REF TO if_ixml_element,
      l_item TYPE REF TO if_ixml_element,
      l_element TYPE REF TO if_ixml_element,
      l_attribute TYPE REF TO if_ixml_attribute,
      l_ostream TYPE REF TO if_ixml_ostream,
      l_factory  TYPE REF TO if_ixml_stream_factory.
TYPES: BEGIN OF xml_line,
        data(256) TYPE x,
      END OF xml_line.
DATA: xml_table TYPE TABLE OF xml_line,
      xml_size  TYPE i.
DATA: l_rval TYPE i.
START-OF-SELECTION.
  PERFORM getdata.
  PERFORM create_xml.
  PERFORM download.
*---------------------------------------------------------------------*
*       FORM getdata                                                  *
*---------------------------------------------------------------------*
FORM getdata.
  SELECT matnr maktx FROM makt
  INTO TABLE itab_matnr
  UP TO 4 ROWS
  WHERE spras = '1' .
  SELECT class kschl FROM m_wwgha
  INTO TABLE itab_class
  UP TO 4 ROWS
  WHERE spras IN ('1','E') .
  DELETE itab_class WHERE class = '0'.
  APPEND itab_class. "演示空数据
ENDFORM.
*---------------------------------------------------------------------*
*       FORM create_xml                                               *
*---------------------------------------------------------------------*
FORM create_xml.
  CLASS cl_ixml DEFINITION LOAD.
  l_ixml = cl_ixml=>create( ).
  CALL METHOD l_ixml->create_encoding
    EXPORTING
      byte_order    = 0
      character_set = 'gb2312'
    RECEIVING
      rval          = l_encoding .
  CALL METHOD l_ixml->create_document
    RECEIVING
      rval   = l_doc .
  CALL METHOD l_doc->set_encoding
    EXPORTING
      encoding = l_encoding  .
  CALL METHOD l_doc->create_simple_element
     EXPORTING
       name      = 'Root'
       parent    = l_doc
     RECEIVING
       rval      = l_root .
  CALL METHOD l_root->set_attribute
    EXPORTING
      name      = 'ATTRIBUTE'
      value     = 'sample'
    RECEIVING
      rval      = l_rval .
  CALL METHOD  l_doc->create_comment
    EXPORTING
      comment = '''上面ATTRIBUTE为属性示例'''
    RECEIVING
      rval    = l_comment  .
  CALL METHOD l_root->append_child
    EXPORTING
      new_child = l_comment
    RECEIVING
      rval      = l_rval.
  PERFORM fill_itab2xml TABLES  itab_matnr
                        USING   'Products'
                                'Product'
                                l_root.
  PERFORM fill_itab2xml TABLES  itab_class
                        USING   'Categories'
                                'Categorie'
                                l_root.
  CALL METHOD l_ixml->create_stream_factory
    RECEIVING
      rval   = l_factory  .
  CALL METHOD l_factory->create_ostream_itable
    EXPORTING
      table  = xml_table
    RECEIVING
      rval   = l_ostream  .
  CALL METHOD l_doc->render
    EXPORTING
      ostream   =   l_ostream
      recursive = 'X'  .
  CALL METHOD l_ostream->get_num_written_raw
    RECEIVING
      rval   = xml_size .
ENDFORM.
*---------------------------------------------------------------------*
*       FORM download                                                 *
*---------------------------------------------------------------------*
FORM download.
  CALL FUNCTION 'GUI_DOWNLOAD'
       EXPORTING
            bin_filesize = xml_size
            filename     = 'C:\ECC6.XML'
            filetype     = 'BIN'
       TABLES
            data_tab     = xml_table.
ENDFORM.
*---------------------------------------------------------------------*
*       FORM fill_itab                                                *
*---------------------------------------------------------------------*
FORM fill_itab2xml TABLES intab
                   USING node1name TYPE string
                         node2name TYPE string
                         l_parent TYPE REF TO if_ixml_element.
  DATA: BEGIN OF headtab OCCURS 0 ,
          length    TYPE i ,
          decimals  TYPE i,
          type_kind TYPE c,
          name(30)  TYPE c,
        END OF headtab.
  DATA descr_ref TYPE REF TO cl_abap_structdescr.
  FIELD-SYMBOLS: <comp_wa> TYPE abap_compdescr ,
                 <f_field> ,
                 <f_intab> TYPE ANY .
  DATA: n TYPE i ,
        str TYPE string ,
        itemname TYPE string ,
        text1 TYPE c ,
        l_node TYPE REF TO if_ixml_element ,
        l_item TYPE REF TO if_ixml_element .
  descr_ref ?= cl_abap_typedescr=>describe_by_data( intab ).
  LOOP AT descr_ref->components ASSIGNING <comp_wa>.
    MOVE-CORRESPONDING <comp_wa> TO headtab.
    APPEND headtab.
  ENDLOOP.
  CALL METHOD l_doc->create_simple_element
      EXPORTING
        name      = node1name
        parent    = l_parent
      RECEIVING
        rval      = l_node  .
  DESCRIBE TABLE headtab LINES n.
  LOOP AT intab ASSIGNING <f_intab>.
    CALL METHOD l_doc->create_simple_element
      EXPORTING
        name      = node2name
        parent    = l_node
      RECEIVING
        rval      = l_item  .
    DO n TIMES.
      ASSIGN COMPONENT sy-index OF STRUCTURE <f_intab> TO <f_field>.
      str = <f_field>.
      READ TABLE headtab INDEX sy-index.
      IF headtab-type_kind = 'I' OR headtab-type_kind = 'P'
                                 OR headtab-type_kind = 'F'.
        SEARCH str FOR '-'.
        IF sy-subrc = 0 AND sy-fdpos <> 0.
          SPLIT str AT '-' INTO str text1.
          CONDENSE str.
          CONCATENATE '-' str INTO str.
        ELSE.
          CONDENSE str.
        ENDIF.
      ELSE.
*        SHIFT str LEFT DELETING LEADING '0' .
      ENDIF.
      itemname = headtab-name .
      CALL METHOD l_doc->create_simple_element
        EXPORTING
          name      = itemname
          parent    = l_item
          value     = str
        RECEIVING
          rval      = l_element .
    ENDDO.
  ENDLOOP.
ENDFORM.

 

转载于:https://www.cnblogs.com/caizjian/p/8845936.html

crxml：一个用于生成xml格式数据php类库,支持生成rss.zip
07-11
例如，创建一个简单的XML文档可能涉及以下步骤： - 实例化`crxml`对象：`$xml = new crxml();` - 创建根节点：`$xml->createRoot('rootNodeName');` - 添加子节点：`$xml->addChild('childNodeName', 'nodeValue'...
asp.net简单生成XML文件的方法
10-22
使用XmlDocument类来自定义生成XML文件是一个灵活的方式，适合需要精确控制XML文件结构的场景。以下是创建XML文件的基本步骤： 1. 添加System.Xml命名空间：在代码文件的顶部添加System.Xml命名空间，这是操作XML...
内表生成XML简单实例
weixin_30398227的博客
01-22 160
REPORTzlm_xml_02. *&---------------------------------------------------------------------* *&声明及定义部分 *&---------------------------------------------------------------------* T...
[SAP ABAP开发技术总结]ABAP读写、解析XML文件
weixin_33778544的博客
02-01 1036
  20.6.         XML. 236 20.6.1.     生成... 237 20.6.2.     解析... 240 20.6.     XML if_ixml if_ixml_documentif_ixml_node if_ixml_element if_ixml_istream if_ixml_ostream document、element、A...
ABAP:XML
weixin_33859665的博客
06-01 378
CL_IXML DATA(IXML) = CL_IXML=>CREATE( ) 引用变量ixml的静态类型是接口IF_IXML，其中包含创建更多对象（如streams, XML documents, parsers, or renderers）所需的所有工厂方法。 DATA(stream_factory) = ixml->cr...
20170319 ABAP 生成XML文件
anchangong3418的博客
03-19 760
方法一：ABAP 使用method方式操作XML 转自：http://www.cnblogs.com/jiangzhengjun/p/4265595.html 方法二：STRANS转换工具;使用strans 开发将内表转换xml文件，并可以将xml文件解析回到内表； 参考:http://www.cnblogs.com/wuqingbo/p/6229289.html ->一...
xml.rar_xml写一个网站
09-22
这样，我们就生成了一个简单的XML文件`books.xml`，内容如下： ```xml <?xml version='1.0' encoding='utf-8'?> <title>Python编程 <author>John Doe <title>Java语言 <author>Jane Doe ``` 这个XML...
shell生成简单格式的xml实例
09-15
这个简单的例子展示了如何使用Shell脚本生成XML文件，虽然功能有限，但对于快速生成小规模、结构简单的XML数据非常有用。然而，对于复杂的XML结构，更推荐使用专门的XML处理库，如Perl的XML::LibXML或Python的lxml库...
生成XML文件ABAP程序
07-09
生成XML文件ABAP程序 REPORT zams_xml_dom_create . TYPE-POOLS: ixml. CLASS cl_ixml DEFINITION LOAD. TYPES: BEGIN OF xml_line, data(256) TYPE x, END OF xml_line. DATA: l_ixml TYPE REF TO if_ixml, l_streamfactory TYPE REF TO if_ixml_stream_factory, l_ostream TYPE REF TO if_ixml_ostream, l_renderer TYPE REF TO if_ixml_renderer, l_document TYPE REF TO if_ixml_document. DATA:l_element_ArchiveBatch TYPE REF TO if_ixml_element, l_element_BatchNumber TYPE REF TO if_ixml_element, l_element_TotalFiles TYPE REF TO if_ixml_element, l_element_TotalVolumes TYPE REF TO if_ixml_element, l_element_TotalPieces TYPE REF TO if_ixml_element, l_element_Entries TYPE REF TO if_ixml_element, l_element_Entry TYPE REF TO if_ixml_element, l_element_RecordsCombiningType TYPE REF TO if_ixml_element, l_element_FilePath TYPE REF TO if_ixml_element, l_element_SourceFileName TYPE REF TO if_ixml_element, l_element_ClassificationCode TYPE REF TO if_ixml_element, l_element_ElectronicRecordCode TYPE REF TO if_ixml_element, l_value TYPE string, l_name type string. DATA: l_xml_table TYPE TABLE OF xml_line, l_xml_size TYPE i, l_rc TYPE i. START-OF-SELECTION. *Creating a ixml factory l_ixml = cl_ixml=>create( ). *Creating the dom object model l_document = l_ixml->create_document( ). *Fill root node with value ArchiveBatch l_element_ArchiveBatch = l_document->create_simple_element( name = 'ArchiveBatch' parent = l_document ). * clear l_value. * l_value = '"http://www.w3.org/2001/XMLSchema-instance"'. * l_rc = l_element_ArchiveBatch->set_attribute( name = 'xmlns: *xsi' * value = l_value ). * * clear l_value. * concatenate '"D:\dev\vs\projects\AMS\DotNet\Sinopec.Ams.' * 'Integration\bin\Debug\config\AmsIntegration.xsd"' * into l_value. * l_name = 'xsi:noNamespaceSchemaLocation'. * l_rc = l_element_ArchiveBatch->set_attribute( name = l_name *value = l_value ). *BatchNumber l_element_BatchNumber = l_document->create_simple_element( name = 'BatchNumber' value = '20100609001' parent = l_element_ArchiveBatch ). *TotalFiles l_element_TotalFiles = l_document->create_simple_element( name = 'TotalFiles' value = '5' parent = l_element_ArchiveBatch ). *TotalVolumes l_element_TotalVolumes = l_document->create_simple_element( name = 'TotalVolumes' value = '3' parent = l_element_ArchiveBatch ). *TotalPieces l_element_TotalPieces = l_document->create_simple_element( name = 'TotalPieces' value = '5' parent = l_element_ArchiveBatch ). *Entries l_element_Entries = l_document->create_simple_element( name = 'Entries' parent = l_element_ArchiveBatch ). *Entry1 l_element_Entry = l_document->create_simple_element( name = 'Entry' parent = l_element_Entries ). *Entry1下面的子项 *RecordsCombiningType l_element_RecordsCombiningType = l_document->create_simple_element( name = 'RecordsCombiningType' value = 'Volume' parent = l_element_Entry ). *FilePath l_element_FilePath = l_document->create_simple_element( name = 'FilePath' value = '全宗001/目录001/案卷001/档案一.docx' parent = l_element_Entry ). *SourceFileName l_element_SourceFileName = l_document->create_simple_element( name = 'SourceFileName' value = '档案一' parent = l_element_Entry ). *ClassificationCode l_element_ClassificationCode = l_document->create_simple_element( name = 'ClassificationCode' value = 'wenshu' parent = l_element_Entry ). *ElectronicRecordCode l_element_ElectronicRecordCode = l_document->create_simple_element( name = 'ElectronicRecordCode' value = 'BJSH-001' parent = l_element_Entry ). *Entry1 * Creating a stream factory l_streamfactory = l_ixml->create_stream_factory( ). * Connect internal XML table to stream factory l_ostream = l_streamfactory->create_ostream_itable( table = l_xml_table ). * Rendering the document l_renderer = l_ixml->create_renderer( ostream = l_ostream document = l_document ). l_rc = l_renderer->render( ). * Saving the XML document l_xml_size = l_ostream->get_num_written_raw( ). CALL METHOD cl_gui_frontend_services=>gui_download EXPORTING bin_filesize = l_xml_size filename = 'c:\temp\metas.xml' filetype = 'BIN' CHANGING data_tab = l_xml_table EXCEPTIONS OTHERS = 24. IF sy-subrc 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF.
ABAP 发送邮件 实例
最新发布
qq_42080586的博客
05-05 1797
2、使用CL_DOCUMENT_BCS=>CREATE_DOCUMENT( )，创建发送内容对象，cl_content保存类对象；3、添加附件，使用cl_content->add_attachment，调用内容对象方法add_attachment；1、使用CL_BCS=>CREATE_PERSISTENT( )创建邮件发送请求,cl_send_mail保存对象；4、将发送邮件内容添加到请求对象，cl_send_mail的SET_DOCUMENT方法；5、使用set_attribute，设置节点属性值；
SAP 将ITAB内表的数据转换为XML字符串 代码实例
ChampaignWolf的专栏
06-12 1326
一、将ABAP数据生成XML文件且生成到本地二、将XML文件解析到SAP中三、将XML数据生成字符串四、用XSLT的方式解析、生成XML，自定义XSLT的事务代码是strans五、下面是具体实现代码type-pools: IXML,ABAP. types: begin of XML_LINE,         DATA(256) type X,        end of XML_LINE. da...
XML的方式输出内表的内容
jackxiong
03-29 210
*&amp;---------------------------------------------------------------------**&amp; Report Z_BARRY_TEST_XML*&amp;*&amp;---------------------------------------------------------------------**&amp; 46C -...
element 获取table 选中数据_Demo:代码完成Excel数据并发送Email附件
weixin_39657575的博客
11-22 469
有时候没有上载操作，直接组织数据并生成Excel 附件直接发送。效果图参考代码REPORTzlm_email03.TYPE-POOLS:ixml.TYPES:BEGINOFxml_line,data(255)TYPEx,ENDOFxml_line.DATA:l_xml_table_forecastTYPETABLEOFxml_line,l_rc...
如何给xml文件添加新的element
厚积薄发
12-06 1124
下面是一个例子, 如何添加新的 ... ... Workaround java.property.com.entrust.toolkit.x509.CertVerifier.ForceV1CertAsCA true thanks [code="java"]import org.w3c.dom.Document; import org.w...
xml中Node和Element的区别
开发笔记
12-13 912
 1.元素(Element)和结点(Node)的区别，元素是一个小范围的定义，必须是含有完整信息的结点才是一个元素，例如&lt;div&gt;...&lt;/div&gt;。但是一个结点不一定是一个元素，而一个元素一定是一个结点。什么是node：   NODE是相对TREE这种数据结构而言的。TREE就是由NODE组成。这个部分你可以参考离散数学的树图。 什么是element ELEMEN...
如何创建一个XML文件，然后创建一个与之关联的样式表文件？
weixin_34101229的博客
01-11 1139
创建一个XML文件，存储为first.xml &lt;?xml version="1.0"  encoding="gb2312" standalone="yes" ?&gt; &lt;PageView&gt; 欢迎使用XML &lt;/PageView&gt; 这里说明简单的概念，虽然很多书上都有说，这里还是做个简单的说明。..
java生成一个简单的xml报文
04-01
下面是一个简单的Java代码示例，用于生成一个简单的XML报文： ```java import javax.xml.stream.XMLOutputFactory; import javax.xml.stream.XMLStreamException; import javax.xml.stream.XMLStreamWriter; import java.io.FileOutputStream; public class SimpleXMLGenerator { public static void main(String[] args) throws Exception { // 创建一个XML输出工厂 XMLOutputFactory outputFactory = XMLOutputFactory.newInstance(); // 创建一个XML输出流写入器（XMLStreamWriter） XMLStreamWriter writer = outputFactory.createXMLStreamWriter(new FileOutputStream("simple.xml")); // 开始写入XML文档 writer.writeStartDocument(); // 写入根元素 writer.writeStartElement("root"); // 写入一个子元素 writer.writeStartElement("child"); writer.writeAttribute("attr", "value"); writer.writeCharacters("Hello, World!"); writer.writeEndElement(); // 结束根元素 writer.writeEndElement(); // 结束XML文档 writer.writeEndDocument(); // 关闭XML输出流 writer.close(); } } ``` 上面的代码将生成一个名为"simple.xml"的文件，其中包含以下内容： ```xml <?xml version="1.0" ?> <root> <child attr="value">Hello, World!</child> </root> ``` 这是一个非常简单的XML报文，其中包含一个名为"root"的根元素和一个名为"child"的子元素。子元素具有一个名为"attr"的属性和一个文本内容为"Hello, World!"的值。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值