(PowerBuilder) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Xml
oleobject loo_Child
oleobject loo_NextSibling
oleobject loo_PrevSibling
integer li_Success
integer li_BContinue

loo_Xml = create oleobject
// Use "Chilkat_9_5_0.Xml" for versions of Chilkat < 10.0.0
li_rc = loo_Xml.ConnectToNewObject("Chilkat.Xml")
if li_rc < 0 then
    destroy loo_Xml
    MessageBox("Error","Connecting to COM object failed")
    return
end if

li_Success = loo_Xml.LoadXmlFile("qa_data/xml/fruit.xml")
if li_Success <> 1 then
    Write-Debug loo_Xml.LastErrorText
    destroy loo_Xml
    return
end if

// Iterate over the direct children by using FirstChild / NextSibling
loo_Child = loo_Xml.FirstChild()
li_BContinue = loo_Xml.LastMethodSuccess
do while (li_BContinue = 1)
    Write-Debug loo_Child.Tag + " : " + loo_Child.Content
    loo_NextSibling = loo_Child.NextSibling()
    li_BContinue = loo_Child.LastMethodSuccess
    destroy loo_Child
    loo_Child = loo_NextSibling
loop
Write-Debug "-----"

// Do the same, but with FirstChild2 / NextSibling2 to avoid
// creating so many XML object instances:
li_Success = loo_Xml.FirstChild2()
do while li_Success = 1
    Write-Debug loo_Xml.Tag + " : " + loo_Xml.Content
    li_Success = loo_Xml.NextSibling2()
loop
// Revert back up to the parent:
li_Success = loo_Xml.GetParent2()

Write-Debug "-----"

// Iterate in reverse order using LastChild / PreviousSibling
loo_Child = loo_Xml.LastChild()
li_BContinue = loo_Xml.LastMethodSuccess
do while (li_BContinue = 1)
    Write-Debug loo_Child.Tag + " : " + loo_Child.Content
    loo_PrevSibling = loo_Child.PreviousSibling()
    li_BContinue = loo_Child.LastMethodSuccess
    destroy loo_Child
    loo_Child = loo_PrevSibling
loop
Write-Debug "-----"

// Do the same, but with LastChild2 / PreviousSibling2 to avoid
// creating so many XML object instances:
li_Success = loo_Xml.LastChild2()
do while li_Success = 1
    Write-Debug loo_Xml.Tag + " : " + loo_Xml.Content
    li_Success = loo_Xml.PreviousSibling2()
loop
// Revert back up to the parent:
li_Success = loo_Xml.GetParent2()


destroy loo_Xml