Hello Everyone,
I am trying to read the following XML message with sample code below, however
<Transaction>
<MessageDate>2019-06-05T02:01:42</MessageDate>
<MessageFunction>DELTA</MessageFunction>
<Carrier>HLCU</Carrier>
<Schs Vsl="BARRY TRADER" Lloyds="9658446" Valid="Y" Voy="0011E" Service="IRA">
<Sch Id="864ccf4592f7e34d58b70f3212ea5b08" Act="C">
<Orig Type="POL" Code="SGSIN" Departs="2019-06-28T06:00:00"/>
<Dest Type="POD" Code="PHDVO" Arrives="2019-07-05T08:00:00"/>
</Sch>
<Sch Id="8528968ce125968263df42d67c05e57a" Act="C">
<Orig Type="POL" Code="SGSIN" Departs="2019-06-28T06:00:00"/>
<Dest Type="POD" Code="PHGES" Arrives="2019-07-03T10:00:00"/>
</Sch>
<Sch Id="4df56a5cace6e91d73115fbc47827d9b" Act="C">
<Orig Type="POL" Code="PHGES" Departs="2019-07-04T20:00:00"/>
<Dest Type="POD" Code="PHDVO" Arrives="2019-07-05T08:00:00"/>
</Sch>
</Schs>
</Transaction>
/*
Sample Code
/*
nXmlMax := LEN(aXmlFile)
cXmlFile := aXmlFile[nXmlMax,1]
cStart := TIME()
hFile := FOpen( cSource + cXmlFile )
oXmlDoc := TXmlDocument():New( hFile )
oXmlIter := TXmlIterator():New( oXmlDoc:oRoot )
WHILE .T.
oTagActual = oXmlIter:Next()
If oTagActual != nil
cTagName := ""
cTagData := ""
IF (oTagActual:cName != nil)
cTagName := oTagActual:cName
ENDIF
IF (oTagActual:cData != nil)
cTagData := oTagActual:cData
ENDIF
cXmlText += cTagName + '=' + cTagData + cEol
nXMlItems++
ELSE
EXIT
ENDIF
End
FCLOSE( hFile )
cEnd := TIME()
MEMOWRIT( 'xmldata.txt', cXmlText )
MsgInfo( cStart + cEol + cEnd + cEol + LTRIM(STR(nXmlItems,9)) )