Code: Select all
Structure Person
Name$
Age.l
EndStructure
Xml$ = ~"<Person><Name attribute=\"foo\">John Smith</Name><Age>42</Age></Person>"
If ParseXML(0, Xml$) And XMLStatus(0) = #PB_XML_Success
Define P.Person
ExtractXMLStructure(MainXMLNode(0), @P, Person)
Debug P\Name$
Debug P\Age
Else
Debug XMLError(0)
EndIf
Code: Select all
<o t="18" s="6" x="5950000" y="0" z="-13510000" gid="1" gx="0" gy="1" gtid="0" a="-22528" b="9216" g="0"/>