Visual FoxPro

Demonstrate XML SearchForTag2

Demonstrates how to use SearchForTag2. Visual FoxPro

LOCAL lnSuccess
LOCAL loXml
LOCAL i
LOCAL loXmlSearch
LOCAL loAfterPtr
LOCAL loPTemp
LOCAL loSbState

lnSuccess = 0

loXml = CreateObject('Chilkat.Xml')

*  Load the following XML:

*  	<Test>
*  	    <testchild1>
*  	        test
*  	    </testchild1>
*  	    <testchild1>
*  	        test1
*  	    </testchild1>
*  	    <testchild1>
*  	        test2
*  	    </testchild1>
*  	    <testchild1>
*  	        test3
*  	    </testchild1>
*  	    <testchild1>
*  	        test4
*  	    </testchild1>
*  	    <testchild1>
*  	        test5
*  	    </testchild1>
*  	    <testchild1>
*  	        test6
*  	    </testchild1>
*  	</Test>

lnSuccess = loXml.LoadXml("<Test><testchild1>test</testchild1><testchild1>test1</testchild1><testchild1>test2</testchild1><testchild1>test3</testchild1><testchild1>test4</testchild1><testchild1>test5</testchild1><testchild1>test6</testchild1></Test>")

i = 0
loXmlSearch = loXml.GetRoot()
loAfterPtr = loXml.GetRoot()

*  Alway begin the search from the root.
DO WHILE loXmlSearch.SearchForTag2(loAfterPtr,"testchild1")
    *  If successful, xmlSearch now points to the found element.
    i = i + 1

    *  Set afterPtr = xmlSearch (so we find the next match after the one we just found)
    *  Rest xmlSearch to the root of the XML tree to be searched.
    ? STR(i) + ": " + loXmlSearch.Content
    loPTemp = loAfterPtr
    loAfterPtr = loXmlSearch
    loPTemp.GetRoot2()
    loXmlSearch = loPTemp
ENDDO

RELEASE loXmlSearch
RELEASE loAfterPtr

? "----"

*  A better way:
loSbState = CreateObject('Chilkat.StringBuilder')
i = 0
DO WHILE loXml.NextInTraversal2(loSbState) <> 0
    IF (loXml.TagEquals("testchild1") = 1) THEN
        ? STR(i) + ": " + loXml.Content
        i = i + 1
    ENDIF

ENDDO
loXml.GetRoot2()

RELEASE loXml
RELEASE loSbState