PowerBuilder

XML SearchForTag Method

See more XML Examples

Demonstrates the SearchForTag and SearchForTag2 methods.

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>

PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Xml
oleobject loo_XSearchRoot
oleobject loo_XBeginAfter
oleobject loo_XFound
oleobject loo_XSearch

li_Success = 0

loo_Xml = create oleobject
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/fruitSearch.xml
li_Success = loo_Xml.LoadXmlFile("qa_data/xml/fruitSearch.xml")
if li_Success <> 1 then
    Write-Debug loo_Xml.LastErrorText
    destroy loo_Xml
    return
end if

// Search the sub-tree rooted at "searchRoot"
loo_XSearchRoot = loo_Xml.FindChild("searchRoot")

// Search for all nodes having the tag "fruit"
loo_XBeginAfter = loo_XSearchRoot.GetSelf()
loo_XFound = loo_XSearchRoot.SearchForTag(loo_XSearchRoot,"fruit")
do while (loo_XSearchRoot.LastMethodSuccess = 1)

    Write-Debug loo_XFound.Content

    destroy loo_XBeginAfter
    loo_XBeginAfter = loo_XFound
    loo_XFound = loo_XSearchRoot.SearchForTag(loo_XBeginAfter,"fruit")
loop

destroy loo_XBeginAfter

Write-Debug "--------------------------"

// ---------------------------------------------------------------------------------
// Now do the same, but instead use SearchForTag2
// which updates the internal reference of the caller instead
// of returning the found node.

loo_XBeginAfter = loo_XSearchRoot.GetSelf()
loo_XSearch = loo_XSearchRoot.GetSelf()

li_Success = loo_XSearch.SearchForTag2(loo_XBeginAfter,"fruit")
do while li_Success = 1

    Write-Debug loo_XSearch.Content

    // Copy the internal references so that the next search
    // begins after the found node.
    loo_XBeginAfter.CopyRef(loo_XSearch)
    loo_XSearch.CopyRef(loo_XSearchRoot)

    li_Success = loo_XSearch.SearchForTag2(loo_XBeginAfter,"fruit")
loop

destroy loo_XSearch
destroy loo_XBeginAfter

destroy loo_XSearchRoot


destroy loo_Xml