(VBScript) 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.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' 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:

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml")
set xml = CreateObject("Chilkat.Xml")
xml.Tag = "cdr"
success = xml.AddAttribute("id","4e5d3e7f41bf6201ad81000c29703270")
success = xml.AddAttribute("e164","6207")
success = xml.UpdateAttrAt("user|grp",1,"name","wfln")
success = xml.UpdateAttrAt("user|grp",1,"mode","active")
success = xml.UpdateAttrAt("event",1,"msg","setup-to")
success = xml.UpdateAttrAt("event",1,"time","287069")
success = xml.UpdateAttrAt("event",1,"e164","5034")
success = xml.UpdateAttrAt("event[1]",1,"msg","alert-from")
success = xml.UpdateAttrAt("event[1]",1,"time","287069")
success = xml.UpdateAttrAt("event[1]",1,"e164","5034")
success = xml.UpdateAttrAt("event[2]",1,"msg","rel-to")
success = xml.UpdateAttrAt("event[2]",1,"time","287079")
success = xml.UpdateAttrAt("event[2]",1,"e164","5034")

' Show that we have the above XML
outFile.WriteLine(xml.GetXml())

' Find the element where msg = "alert-from"
' This updates the xml object's reference to the found element (if successful).
notUsed = xml.ChilkatPath("/A/event,msg,alert-from|$")
If (xml.LastMethodSuccess = 0) Then
    outFile.WriteLine("Not found.")
    WScript.Quit
End If

' Get the value of the "time" attribute.
outFile.WriteLine("time = " & xml.GetAttrValue("time"))

' Restore the xml object's internal reference to the root of the XML document
xml.GetRoot2 

outFile.Close