PowerBuilder

Find XML Element where Attribute = Value

See more XML Examples

Finds an XML element at a particular location where an attribute has a specified value. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Xml
string ls_NotUsed

li_Success = 0

// We have the following XML and wish to find the value of the time attribute where msg = "alert-from".

// <cdr id="4e5d3e7f41bf6201ad81000c29703270" e164="6207">
//     <user>
//         <grp name="wfln" mode="active"/>
//     </user>
//     <event msg="setup-to" time="287069" e164="5034"/>
//     <event msg="alert-from" time="287069" e164="5034"/>
//     <event msg="rel-to" time="287079" e164="5034"/>
// </cdr>

// First, build the above XML:

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
loo_Xml.Tag = "cdr"
loo_Xml.AddAttribute("id","4e5d3e7f41bf6201ad81000c29703270")
loo_Xml.AddAttribute("e164","6207")
loo_Xml.UpdateAttrAt("user|grp",1,"name","wfln")
loo_Xml.UpdateAttrAt("user|grp",1,"mode","active")
loo_Xml.UpdateAttrAt("event",1,"msg","setup-to")
loo_Xml.UpdateAttrAt("event",1,"time","287069")
loo_Xml.UpdateAttrAt("event",1,"e164","5034")
loo_Xml.UpdateAttrAt("event[1]",1,"msg","alert-from")
loo_Xml.UpdateAttrAt("event[1]",1,"time","287069")
loo_Xml.UpdateAttrAt("event[1]",1,"e164","5034")
loo_Xml.UpdateAttrAt("event[2]",1,"msg","rel-to")
loo_Xml.UpdateAttrAt("event[2]",1,"time","287079")
loo_Xml.UpdateAttrAt("event[2]",1,"e164","5034")

// Show that we have the above XML
Write-Debug loo_Xml.GetXml()

// Find the element where msg = "alert-from"
// This updates the xml object's reference to the found element (if successful).
ls_NotUsed = loo_Xml.ChilkatPath("/A/event,msg,alert-from|$")
if loo_Xml.LastMethodSuccess = 0 then
    Write-Debug "Not found."
    destroy loo_Xml
    return
end if

// Get the value of the "time" attribute.
Write-Debug "time = " + loo_Xml.GetAttrValue("time")

// Restore the xml object's internal reference to the root of the XML document
loo_Xml.GetRoot2()


destroy loo_Xml