problem with read from xml file

[kajot]

problem with read NUMER from xml file, I get empty NUMER

<NUMER>
<![CDATA[FA/1/12/2016/EXP]]>
</NUMER>

which means <![CDATA[

[Antonio Linares]

How are you reading it ?

Please show the code

[kajot]

sc:=rtrim(init_mem)+'IMPORT'

cFileName := cGetFile( "XML File (*.Xml)|*.Xml|","Wybierz zbiór XML",sc)

If !file(cFileName)
break
Endif


mTekst:=""
@ 100,20 SAY oTEKST var mTekst OF oDlg PIXEL SIZE 150,12


dd:=day(date())
mm:=month(date())
rr:=year(date())

// hFile := FOpen( cFileName )

oXmlDoc := TXmlDocument():new() // HBXML_TYPE_CDATA HBXML_STYLE_NOESCAPE

oXmlDoc:read( Memoread( cFileName ) )
// oXmlDoc:read( hFile )

[kajot]

in FWH version 16.06 was ok

[Enrico Maria Giordano]

Please build a sample showing the problem that can be compiled and run here.

EMG

[kajot]

I send samples via mail

[Enrico Maria Giordano]

Sorry, Thunderbird freezes when I try to open your message. I had to delete it.

EMG

[kajot]

I send You compressed

[Enrico Maria Giordano]

Sorry, I need a reduced sample. You have to take the time to reduce it at the smallest size yet showing the problem. And please reduce the file xml accordingly.

EMG

[kajot]

my sample

t1.prg

//#include 'fivewin.ch'
#include 'hbxml.ch'

#define CRLF chr(13)+chr(10)

REQUEST DBFCDX
//------------------------------------------------------c---------------------//
function XML2RK()
local oDlg
local lSave := .f.
local oFont
local dd,mm,rr
LOCAL oXmlDoc,oXmlNode, oXmlRecScan, oXmlFieldScan

setpos(25,80)
cls

set_4_:=set(4,'yyyy-mm-dd')

begin sequence

cFileName := 'demo.xml'

If !file(cFileName)
break
Endif


cString:=Memoread( cFileName )
// cString:=strtran(cString,'<![CDATA[','')
// cString:=strtran(cString,']]>','')

oXmlDoc := TXmlDocument():new(,5) // ,HBXML_STYLE_NOESCAPE ) // HBXML_TYPE_CDATA HBXML_STYLE_NOESCAPE
if !( oXmlDoc:nError==HBXML_ERROR_NONE )
wait "xml file parsing error " + str(oXmlDoc:nError)
break
endif

oXMlDoc:read( cString )


oXmlNode00 := oXmlDoc:findFirst( "ROOT" )

oXmlRecScan0 := TXmlIteratorScan():new( oXmlNode00 )
oXmlNode0 := oXmlRecScan0:find( "REJESTRY_SPRZEDAZY_VAT" )

DO WHILE oXmlNode0 <> NIL
// oXmlFieldScan0 := TXmlIteratorScan():new( oXmlNode0 )

oXmlRecScan := TXmlIteratorScan():new( oXmlNode0 )
oXmlNode := oXmlRecScan:find( "REJESTR_SPRZEDAZY_VAT" )

DO WHILE oXmlNode <> NIL
tNUMER:=''
tDATA:=''
tNETTO:=''

oXmlFieldScan := TXmlIteratorScan():new( oXmlNode )

oXmlNode := oXmlFieldScan:find( "DATA" )
if oXmlNode#NIL
if oXmlNode:cData#NIL
tData:=oXmlNode:cData
endif
endif

oXmlNode := oXmlFieldScan:find( "NUMER" )
if oXmlNode#NIL
if oXmlNode:cData#NIL
tNUMER:=oXmlNode:cData
endif
endif

oXmlNode := oXmlFieldScan:find( "NETTO" )
if oXmlNode#NIL
if oXmlNode:cData#NIL
tNETTO:=oXmlNode:cData
endif
endif


alert('Data:'+tDATA+' '+'Numer:'+tNUMER+' '+'Netto:'+tNETTO)

oXmlNode := oXmlRecScan:next("REJESTR_SPRZEDAZY_VAT")

ENDDO
oXmlNode0 := oXmlRecScan0:next("REJESTRY_SPRZEDAZY_VAT")

ENDDO

end sequence

dbcloseall()
set(4,set_4_)


return
//------------------------------------------------------------------------------------//



demo.xml
-------------------------------------------------------------

<?xml version="1.0" encoding="UTF-8"?>
<ROOT xmlns="http://www.comarch.pl/cdn/optima/offline">
<REJESTRY_SPRZEDAZY_VAT>
<WERSJA>2.00</WERSJA>
<BAZA_ZRD_ID>SPRZE</BAZA_ZRD_ID>
<BAZA_DOC_ID>KSIEG</BAZA_DOC_ID>
<REJESTR_SPRZEDAZY_VAT>
<DATA>
<![CDATA[2016-12-01]]>
</DATA>
<NUMER>
<![CDATA[FA/1/12/2016/EXP]]>
</NUMER>
<NETTO>1400</NETTO>
</REJESTR_SPRZEDAZY_VAT>
</REJESTRY_SPRZEDAZY_VAT>
</ROOT>



t1.exe.xbp
-------------------------------------------------------------
CINI =
C_OUTPUTFOLDER =
DEFFILE =
INCLUDEFOLDERS =
LAUTORUN =
LDEBUG = .F.
LGUI = .F.
LIBFOLDERS =
LMT = .F.
LNOAUTOFWH = .F.
LPRG_CLASSICDEBUG = .F.
LPRG_DEBUG = .F.
LUSEDLL = .F.
MAPFILE =
MYC_FLAGS =
MYDEFINES =
MYLINK_FLAGS =
MYPRG_FLAGS =
MYRC_FLAGS =
MYSLY_FLAGS =
OUTPUTFOLDER =
PRG_OUTPUTFOLDER =
RC_OUTPUTFOLDER =
RUNARGUMENTS =
SLY_OUTPUTFOLDER =
STARTIN =
TARGETFOLDER =

[t1.prg]
MYC_FLAGS =
MYDEFINES =
MYPRG_FLAGS =

[Enrico Maria Giordano]

Using

Code: Select all  Expand view

oXmlNode:oChild:ToString()

at least you can read the string

Code: Select all  Expand view

<![CDATA[2016-12-01]]>

EMG

[kajot]

if so I do

tNUMER:=oXmlNode:oChild:ToString() //oXmlNode:cData

because I still getting empty tNumber

[Enrico Maria Giordano]

Works fine here.

EMG

[Enrico Maria Giordano]

You have to replace this

Code: Select all  Expand view

if oXmlNode:cData#NIL

with this

Code: Select all  Expand view

if !Empty( oXmlNode:oChild:ToString() )

and extract the useful data from

Code: Select all  Expand view

oXmlNode:oChild:ToString()

EMG

[cnavarro]

if so I do

tNUMER:=oXmlNode:oChild:ToString() //oXmlNode:cData

because I still getting empty tNumber

Are your variable names correct?

tNUMER or tNumber