Louis Verbraak
[WD12] XMLFind July 02, 2009 11:34AM |
Quote
<myXMLFile>
__<header>
____<field11>Value11</field11>
____<field12>Value12</field12>
__</header>
__<secondPart>
____<field21>Value21</field21>
____<field22>Value22</field22>
__</secondPart>
</myXMLFile>
Quote
XMLRoot(myXMLDocument)
XMLFirst(myXMLDocument)
XMLChild(myXMLDocument)
WHILE NOT XMLOut(myXMLDocument)
____IF XMLElementName(myXMLDocument)~="secondPart" THEN
________XMLChild(myXMLDocument)
________WHILE NOT XMLOut(myXMLDocument)
____________IF XMLElementName(myXMLDocument))~="field22" THEN
________________// Found what I sought!
____________END
____________XMLNext(myXMLDocument)
________END
________XMLParent(myXMLDocument)
____END
____XMLNext(myXMLDocument)
END
DerekT
Re: [WD12] XMLFind July 02, 2009 07:13PM |
lsRes is string lsXMLDoc is string lsXMLDoc = fLoadText("c:\bucket\LouisTest.xml") XMLDocument("XML_Louis",lsXMLDoc) XMLRoot("XML_Louis") XMLFind("XML_Louis","Field22",XMLTag+XMLContinue+XMLChildItem,XMLExact) WHILE XMLFound("XML_Louis") lsRes = XMLElementName("XML_Louis") + " " + XMLData("XML_Louis") XMLNext("XML_Louis") END XMLClose("XML_Louis")
Louis Verbraak
Re: [WD12] XMLFind July 02, 2009 07:20PM |