XML парсер

Пример ABAP парсера XML файла следующего вида:

  1. <?xml version="1.0" encoding="windows-1251"?>
  2.   <MSG FORMAT="SAP_FORMAT" SENDER="SYSTEM1" RECIPIENT="SAP">
  3.     <INS 
  4. 	  CODE="TESTXXXXXX" 
  5. 	  FROMDATE="25.07.12" 
  6. 	  LONGNAME="TESTER 25" 
  7. 	  CUST_NAME="TESTER 25" 
  8. 	  CITY="ROME" 
  9. 	  TYPECODE="0" 
  10.   </MSG>

убил на него целый день, на будущее пригодится:

  1. PARAMETERS: p_file TYPE rlgrap-filename.
  2.  
  3. AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  4.   CALL FUNCTION 'F4_FILENAME'
  5.     EXPORTING
  6.       field_name = 'P_FILE'
  7.     IMPORTING
  8.       file_name  = p_file.
  9.  
  10. START-OF-SELECTION.
  11.  
  12. type-pools: ixml.
  13. class cl_ixml definition load.
  14.  
  15. types: begin of xml_line,
  16.         data(256) type x,
  17.       end of xml_line.
  18.  
  19. data: xml_table      type table of xml_line,
  20.       xml_tablesize  type i,
  21.       istream        type ref to if_ixml_istream.
  22. data: s_file type string.
  23. data: g_ixml type ref to if_ixml.
  24. data: streamFactory type ref to if_ixml_stream_factory.
  25. data: parser type ref to if_ixml_parser.
  26. data: document type ref to if_ixml_document.
  27.  
  28. s_file = p_file.
  29. CALL FUNCTION 'GUI_UPLOAD'
  30.   exporting
  31.     filename = s_file
  32.     filetype = 'BIN'
  33.   importing
  34.     filelength              = xml_tablesize
  35.   tables
  36.     data_tab                = xml_table
  37.   exceptions
  38.     others                  = 11.
  39.  
  40. g_ixml = cl_ixml=>create( ).
  41. streamFactory = g_ixml->create_stream_factory( ).
  42. * wrap the table containing the file into a stream
  43. istream = streamFactory->create_istream_itable( table = xml_table
  44.                                                 size  = xml_tablesize ).
  45. document = g_ixml->create_document( ).
  46. parser = g_ixml->create_parser( stream_factory = streamFactory
  47.                                 istream        = iStream
  48.                                 document       = document ).
  49.  
  50. if parser->parse( ) ne 0.
  51.   if parser->num_errors( ) ne 0.
  52.     data: parseError type ref to if_ixml_parse_error,
  53.           str        type string,
  54.           i          type i,
  55.           count      type i,
  56.           index      type i.
  57.     count = parser->num_errors( ).
  58.     write: count, ' parse errors have occured:'.
  59.     index = 0.
  60.     while index < count.
  61.       parseError = parser->get_error( index = index ).
  62.       i = parseError->get_line( ).
  63.       write: 'line: ', i.
  64.       i = parseError->get_column( ).
  65.       write: 'column: ', i.
  66.       str = parseError->get_reason( ).
  67.       write: str.
  68.       index = index + 1.
  69.     endwhile.
  70.   endif.
  71. endif.
  72.  
  73. data: t_str type string.
  74. data: element type ref to if_ixml_element.
  75. data: child type ref to if_ixml_node.
  76. data: attributes type ref to if_ixml_named_node_map,
  77.       attribute  type ref to if_ixml_attribute,
  78.       achild      type ref to if_ixml_node.
  79.  
  80. element = document->get_root_element( ).
  81. child = element->get_first_child( ).
  82. while not child is initial.
  83.   t_str = child->get_name( ).
  84.   write / t_str.
  85.   data: lr_nodeiterator TYPE REF TO if_ixml_node_iterator,
  86.         lr_attributenode TYPE REF TO if_ixml_node.
  87.   data: lc_name type string,
  88.         lc_value type string.
  89.  
  90.   attributes = child->get_attributes( ).
  91.   if not attributes is initial.
  92.     lr_nodeiterator  = attributes->create_iterator( ).
  93.     lr_attributenode = lr_nodeiterator->get_next( ).
  94.  
  95.     WHILE lr_attributenode IS NOT INITIAL.
  96.       lc_name = lr_attributenode->get_name( ).
  97.       lc_value = lr_attributenode->get_value( ).
  98.       lr_attributenode = lr_nodeiterator->get_next( ).
  99.       write: / lc_name, '=', lc_value.
  100.     ENDWHILE.
  101.   endif.
  102.   child = child->get_next( ).
  103. endwhile.
kenzhemax  Кенжебаев Максим  CBS ERP