Visual FoxPro

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. Visual FoxPro

LOCAL lnSuccess
LOCAL loXml
LOCAL lcNotUsed

lnSuccess = 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:

loXml = CreateObject('Chilkat.Xml')
loXml.Tag = "cdr"
loXml.AddAttribute("id","4e5d3e7f41bf6201ad81000c29703270")
loXml.AddAttribute("e164","6207")
loXml.UpdateAttrAt("user|grp",1,"name","wfln")
loXml.UpdateAttrAt("user|grp",1,"mode","active")
loXml.UpdateAttrAt("event",1,"msg","setup-to")
loXml.UpdateAttrAt("event",1,"time","287069")
loXml.UpdateAttrAt("event",1,"e164","5034")
loXml.UpdateAttrAt("event[1]",1,"msg","alert-from")
loXml.UpdateAttrAt("event[1]",1,"time","287069")
loXml.UpdateAttrAt("event[1]",1,"e164","5034")
loXml.UpdateAttrAt("event[2]",1,"msg","rel-to")
loXml.UpdateAttrAt("event[2]",1,"time","287079")
loXml.UpdateAttrAt("event[2]",1,"e164","5034")

* Show that we have the above XML
? loXml.GetXml()

* Find the element where msg = "alert-from"
* This updates the xml object's reference to the found element (if successful).
lcNotUsed = loXml.ChilkatPath("/A/event,msg,alert-from|$")
IF (loXml.LastMethodSuccess = 0) THEN
    ? "Not found."
    RELEASE loXml
    CANCEL
ENDIF

* Get the value of the "time" attribute.
? "time = " + loXml.GetAttrValue("time")

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

RELEASE loXml