Here is a working code :
Code: Select all
Structure Position
x.l
y.l
EndStructure
NewList Positions.Position()
Xml$ = "<report>" +
"<element>" +
"<x>100</x>" +
"<y>200</y>" +
"</element>" +
"<element>" +
"<x>200</x>" +
"<y>400</y>" +
"</element>" +
"</report>"
If ParseXML(0, Xml$) And XMLStatus(0) = #PB_XML_Success
ExtractXMLList(MainXMLNode(0), Positions(), #PB_XML_NoCase)
Debug ListSize(Positions())
ForEach Positions()
Debug Positions()\x
Debug Positions()\y
Next
Else
Debug XMLError(0)
EndIfCode: Select all
Structure Position
x.l
y.l
EndStructure
NewList Positions.Position()
Xml$ = "<report>" +
"<elem>" +
"<x>100</x>" +
"<y>200</y>" +
"</elem>" +
"<elem>" +
"<x>200</x>" +
"<y>400</y>" +
"</elem>" +
"</report>"
If ParseXML(0, Xml$) And XMLStatus(0) = #PB_XML_Success
ExtractXMLList(MainXMLNode(0), Positions(), #PB_XML_NoCase)
Debug ListSize(Positions())
ForEach Positions()
Debug Positions()\x
Debug Positions()\y
Next
Else
Debug XMLError(0)
EndIf


