(Lianja) 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 Lianja Extension Download Chilkat Lianja Extension

loXml = createobject("CkXml")

llSuccess = loXml.LoadXmlFile("qa_data/xml/fruit.xml")
if (llSuccess <> .T.) then
    ? loXml.LastErrorText
    release loXml
    return
endif

// Iterate over the direct children by using FirstChild / NextSibling
loChild = loXml.FirstChild()
llBContinue = loXml.LastMethodSuccess
do while (llBContinue = .T.)
    ? loChild.Tag + " : " + loChild.Content
    loNextSibling = loChild.NextSibling()
    llBContinue = loChild.LastMethodSuccess
    release loChild
    loChild = loNextSibling
enddo
? "-----"

// Do the same, but with FirstChild2 / NextSibling2 to avoid
// creating so many XML object instances:
llSuccess = loXml.FirstChild2()
do while llSuccess = .T.
    ? loXml.Tag + " : " + loXml.Content
    llSuccess = loXml.NextSibling2()
enddo
// Revert back up to the parent:
llSuccess = loXml.GetParent2()

? "-----"

// Iterate in reverse order using LastChild / PreviousSibling
loChild = loXml.LastChild()
llBContinue = loXml.LastMethodSuccess
do while (llBContinue = .T.)
    ? loChild.Tag + " : " + loChild.Content
    loPrevSibling = loChild.PreviousSibling()
    llBContinue = loChild.LastMethodSuccess
    release loChild
    loChild = loPrevSibling
enddo
? "-----"

// Do the same, but with LastChild2 / PreviousSibling2 to avoid
// creating so many XML object instances:
llSuccess = loXml.LastChild2()
do while llSuccess = .T.
    ? loXml.Tag + " : " + loXml.Content
    llSuccess = loXml.PreviousSibling2()
enddo
// Revert back up to the parent:
llSuccess = loXml.GetParent2()


release loXml