(VB.NET) 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 .NET Downloads Chilkat .NET Framework Chilkat for .NET Core

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 = xml.LoadXmlFile("qa_data/xml/fruitSearch.xml")
If (success <> True) Then
    Debug.WriteLine(xml.LastErrorText)
    Exit Sub
End If


' Search the sub-tree rooted at "searchRoot"
xSearchRoot = xml.FindChild("searchRoot")
If (xml.LastMethodSuccess = False) Then
    Debug.WriteLine("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)

    Debug.WriteLine(xFound.Content & ": " & xFound.GetAttrValue("color"))


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

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



Debug.WriteLine("--------------------------")

' ---------------------------------------------------------------------------------
' 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

    Debug.WriteLine(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")
End While