(Xojo Plugin) Traverse Direct Children via FirstChild / NextSibling, or LastChild / PreviousSibling

Demonstrates some ways to iterate over direct child nodes using the FirstChild / NextSibling and LastChild / PreviousSibling methods.

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

<root>
    <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>
</root>

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

Dim xml As New Chilkat.Xml
Dim child As Chilkat.Xml
Dim nextSibling As Chilkat.Xml
Dim prevSibling As Chilkat.Xml

Dim success As Boolean
success = xml.LoadXmlFile("qa_data/xml/fruit.xml")
If (success <> True) Then
    System.DebugLog(xml.LastErrorText)
    Return
End If

// Iterate over the direct children by using FirstChild / NextSibling
child = xml.FirstChild()
Dim bContinue As Boolean
bContinue = xml.LastMethodSuccess
While (bContinue = True)
    System.DebugLog(child.Tag + " : " + child.Content)
    nextSibling = child.NextSibling()
    bContinue = child.LastMethodSuccess

    child = nextSibling
Wend
System.DebugLog("-----")

// Do the same, but with FirstChild2 / NextSibling2 to avoid
// creating so many XML object instances:
success = xml.FirstChild2()
While success = True
    System.DebugLog(xml.Tag + " : " + xml.Content)
    success = xml.NextSibling2()
Wend
// Revert back up to the parent:
success = xml.GetParent2()

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

// Iterate in reverse order using LastChild / PreviousSibling
child = xml.LastChild()
bContinue = xml.LastMethodSuccess
While (bContinue = True)
    System.DebugLog(child.Tag + " : " + child.Content)
    prevSibling = child.PreviousSibling()
    bContinue = child.LastMethodSuccess

    child = prevSibling
Wend
System.DebugLog("-----")

// Do the same, but with LastChild2 / PreviousSibling2 to avoid
// creating so many XML object instances:
success = xml.LastChild2()
While success = True
    System.DebugLog(xml.Tag + " : " + xml.Content)
    success = xml.PreviousSibling2()
Wend
// Revert back up to the parent:
success = xml.GetParent2()