Reading complex XML file

[d s]

As I need to read not quite simple XML file with invoice data, in this forum found suggestions to use TXML classes, with example in harbour/contrib/xhb/tests\xml1.prg.

That example uses realtivelly simple test.xml file to read. My XML invoice data are more complex, have several  elements with deep structure, for example data about supplier, or data about invoice lines.

I do not know how to read nodes with deep structure inside root element.

I am sending file with some reduced example of my XML invoice data, based on UBL 2.1 format.

Is there are any list of possible TXML methods I can  use in my PRG in order to successfully read my XML data ?

I have tried using xml1.prg as starting point, but stacked on complex nodes like are <cac:AccountingSupplierParty> or <cac:AccountingCustomerParty> and <cac:InvoiceLine>.  If anybody knows how to do it please suggest how to read that kind of nodes.

Thanks in advance and Best regards.

Simo.

[Shaji Thomas]

Hi,

See the conversation on  this subject  on 04/09/2020 ...

"Hb_JsonEncode() and hb_JsonDecode() are Harbour functions. hb_xmlToHash() and hb_hashToXML() are developed by Przemek and were published in this group many years back." 

[d s]

Many thanks Thomas ! 

I will read suggested conversations.

Meanwhile I am progressing in using TXML classes. If I find solution, I will inform what I did.

Best regards,

Simo.

[M., Ronaldo]

Your file don't meet XML standards ! But it can be solved.

Solution 1:Using Harbour

...

   cTxt := hb_MemoRead( cFile )

   cTxt := StrTran(  cTxt , " <Invoice> ", " <Invoice xmlns:cbc="http://www.google.com" xmlns:cac="http://www.google.com"> " )

   hb_MemoWrit(  cFile, cTxt )

...

Solution 2:Open it with any text editor and change 2nd line

From <Invoice>
To <Invoice xmlns:cbc="http://www.google.com" xmlns:cac="http://www.google.com">

[M., Ronaldo]

Use hbmxml to read and write XML files.

See samples in folder: \contrib\hbmxml\tests

*TXML will cause memory leak and broke your code

On Tuesday, July 27, 2021 at 3:11:24 AM UTC-3 cod...@outlook.com wrote:

[d s]

Thank you Ronaldo !

Meanwhile I began to try TXML. I made some progress.

As it has memory leak problem, I will read \contrib\hbmxml\test.

Best regards.

Simo.

[d s]

Here is what I did.

I decided to use TXML. I saw it as most convenient  to me. In \harbour\contrib\xhb\tests found xml1.prg, and used it as example how to read my XML file.

XML file I need to read is complex. It contains data about invoices, formatted according to UBL 2.1 (European Universal Business Language, version 2.1).

As attachment is example PRG how I read that file using TXML. My goal was to read every data node (for now without attributes), its value, and its full path i invoice XML structure.

These data I quite enough to do other desired processing on data elements. 

May be this will help other  who need to read UBL XML file.

Best regards,

Simo.

[M., Ronaldo]

mxml

An small sample to read XML files

[d s]

Thank you Ronaldo.

 

Your example will help us to better understand how to use  MXML library. 

Best  regards.

Simo.

[M., Ronaldo]

   // *---------------------------------------------------------------------*
   // mr_MXml
   //
   // A simple class to read a complex XML file

   //
   // hbmk2.exe demo.hbp
   // *---------------------------------------------------------------------*
   WITH OBJECT mr_MXml():New( 'invoice.xml' )

      :create()

          :SetNode( 'invoice' )
          ? :GetStr( 'uid' )
          ? :GetStr( 'mark' )

          :SetNode( 'invoice', 'invoiceDetails' )
          ? :GetStr( 'netValue' )
          ? :GetStr( 'vatCategory' )
          ? :GetStr( 'vatAmount' )

          :close()

   END WITH

[Pete]

Useful code.

Thanks for posting!

regards,

Pete