(PowerBuilder) Find Direct Child with Specific Tag

Demonstrates how to find a direct child having a specific tag.

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
integer li_Success
oleobject loo_Child

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

// The sample input XML is available at http://www.chilkatsoft.com/data/fruit.xml
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

// Find the direct child node having the tag "meat", and 
// return a new instance of the XML object referencing the
// child node, if found.
loo_Child = loo_Xml.FindChild("meat")
if loo_Xml.LastMethodSuccess = 0 then
    Write-Debug "No direct child having the tag ~"meat~" was found."
else
    Write-Debug "Content = " + loo_Child.Content
    destroy loo_Child
end if

// The same can be accomplished without creating a new 
// XML object instance.  Instead, the FindChild2 method updates
// the caller's internal reference to the found child, if successful.
li_Success = loo_Xml.FindChild2("meat")
if li_Success = 1 then
    // Success!  The xml object now references the found child.
    Write-Debug "Content = " + loo_Xml.Content
    // Restore the reference back to the parent.
    li_Success = loo_Xml.GetParent2()
else
    Write-Debug "No direct child having the tag ~"meat~" was found."
end if



destroy loo_Xml