Parsing XML document

Comments

• hsm

  October 2015 edited 8:06AM

  Try something like this. I use this code to extract nodes that are repeated so you may not need the 'for' loop if you only have one node
  I also found that it is case sensitive to tag names.
  

  uses MSXML, 
  
  begin
  var
     i : integer;
     xml:IXMLDOMDocument;
     node:IXMLDOMNode;
     nodes_row: IXMLDomNodeList;
    TheLV,TheSubVersion, TheSubSysName, TheSubTitle : string;
  
  begin
  xml := CreateOleObject('Microsoft.XMLDOM') as IXMLDOMDocument;
  XML.async := false;
  XML.LoadXML(<full filename>);
  if XML.parseError.errorCode <> 0 then
          raise Exception.Create('XML Load error:' + xml.parseError.reason);
  
  nodes_row := xml.selectNodes('/MAIN /SUBSYS');
   for i := 0 to nodes_row.length - 1 do
      begin
          node := nodes_row.item[i]; //get one record
          TheLV := node.selectSingleNode('LV').text);
          TheSubVersion := node.selectSingleNode('SUBVERSION').text);
          TheSubSysName := node.selectSingleNode('SUBSYSNAME').text);
          TheSubTitle := node.selectSingleNode('SUBTITLE').text);
          //... now do something with TheLV,TheSubVersion, TheSubSysName & TheSubTitle 
          end;
  
   end;