(Xojo Plugin) XML SearchForTag Method

Demonstrates the SearchForTag and SearchForTag2 methods.

The input XML, available at http://www.chilkatsoft.com/data/fruitSearch.xml, is this:

<root>
    <searchRoot>
        <fruit color="red">apple</fruit>
        <fruit color="green">pear</fruit>
        <veg color="orange">carrot</veg>
        <meat animal="cow">beef</meat>
        <xyz>
            <fruit color="blue">blueberry</fruit>
            <veg color="green">broccoli</veg>
        </xyz>
        <fruit color="purple">grape</fruit>
        <cheese color="yellow">cheddar</cheese>
    </searchRoot>
    <fruit color="red">strawberry</fruit>
    <fruit color="orange">peach</fruit>
</root>

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

Dim xml As New Chilkat.Xml
Dim xSearchRoot As Chilkat.Xml
Dim xBeginAfter As Chilkat.Xml
Dim xFound As Chilkat.Xml

// The sample input XML is available at http://www.chilkatsoft.com/data/fruitSearch.xml
Dim success As Boolean
success = xml.LoadXmlFile("qa_data/xml/fruitSearch.xml")
If (success <> True) Then
    System.DebugLog(xml.LastErrorText)
    Return
End If

// Search the sub-tree rooted at "searchRoot"
xSearchRoot = xml.FindChild("searchRoot")

// Search for all nodes having the tag "fruit"
xBeginAfter = xSearchRoot.GetSelf()
xFound = xSearchRoot.SearchForTag(xSearchRoot,"fruit")
While (xSearchRoot.LastMethodSuccess = True)

    System.DebugLog(xFound.Content)

    xBeginAfter = xFound
    xFound = xSearchRoot.SearchForTag(xBeginAfter,"fruit")
Wend

System.DebugLog("--------------------------")

// ---------------------------------------------------------------------------------
// Now do the same, but instead use SearchForTag2
// which updates the internal reference of the caller instead
// of returning the found node.
Dim xSearch As Chilkat.Xml

xBeginAfter = xSearchRoot.GetSelf()
xSearch = xSearchRoot.GetSelf()

success = xSearch.SearchForTag2(xBeginAfter,"fruit")
While success = True

    System.DebugLog(xSearch.Content)

    // Copy the internal references so that the next search
    // begins after the found node.
    xBeginAfter.CopyRef xSearch
    xSearch.CopyRef xSearchRoot

    success = xSearch.SearchForTag2(xBeginAfter,"fruit")
Wend