чтение XML

Консольное приложение, читает XML файл и выводит построчно. Строи начинаются тегом . Короче, сырой пример. Просто потоковое чтение тегов и значений.

#include "SIMPLEIO.CH"
   PROCEDURE Main (nnmm)
      LOCAL oXmlDoc := TXmlDocument():new()
      LOCAL oXmlNode //, aStruct := {}
      oXMlDoc:read( Memoread( nnmm ) )
      oXmlNode := oXmlDoc:findFirst()
      DO WHILE oXmlNode <> NIL
         if UPPER(oXmlNode:cName)=="DETAIL"
            outstd(HB_OsNewLine())
         endif
         outstd(oXmlNode:cName," = ",oXmlNode:cData," | ")

         oXmlNode := oXmlDoc:findNext()
      ENDDO
   RETURN