(Xojo Plugin) XML SearchForAttribute Method

Demonstrates the SearchForAttribute method.

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

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")
If (xml.LastMethodSuccess = False) Then
    System.DebugLog("searchRoot not found, searching from root.")
    xSearchRoot = xml.GetRoot()
End If

// Search for all "fruit" nodes having a color attribute
// where the name of the color ends in "e"
xBeginAfter = xSearchRoot.GetSelf()
xFound = xSearchRoot.SearchForAttribute(xBeginAfter,"fruit","color","*e")
While (xSearchRoot.LastMethodSuccess = True)

    System.DebugLog(xFound.Content + ": " + xFound.GetAttrValue("color"))

    xBeginAfter = xFound
    xFound = xSearchRoot.SearchForAttribute(xBeginAfter,"fruit","color","*e")
Wend

// The correct output is:
// grape: purple
// blueberry: blue

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

// ---------------------------------------------------------------------------------
// Now do the same, but instead use SearchForAttribute2
// 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.SearchForAttribute2(xBeginAfter,"fruit","color","*e")
While success = True

    System.DebugLog(xSearch.Content + ": " + xSearch.GetAttrValue("color"))

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

    success = xSearch.SearchForAttribute2(xBeginAfter,"fruit","color","*e")
Wend