Navigate to Content in XML

Demonstrates how to retrieve "Bears" from the following XML:

<?xml version="1.0" encoding="utf-8" ?>

<sports>
    <baseball>
        <mlb>
            <chicago>Cubs</chicago>
            <new_york>Yankees</new_york>
        </mlb>
    </baseball>
    <football>
        <chicago>Bears</chicago>
        <new_york>Jets</new_york>
    </football>
    <basketball>
        <chicago>Bulls</chicago>
        <new_york>Knicks</new_york>
    </basketball>
</sports>

Download Chilkat XML ActiveX

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)


set xml = CreateObject("Chilkat.Xml")

'  Assume the XML is contained in the file: sports.xml

success = xml.LoadXmlFile("sports.xml")
If (success <> 1) Then
    outFile.WriteLine(xml.LastErrorText)
    WScript.Quit
End If

' xml2 is a Chilkat.Xml
Set xml2 = xml.GetChildWithTag("football")

' xml3 is a Chilkat.Xml
Set xml3 = xml2.GetChildWithTag("chicago")

outFile.WriteLine(xml3.Content)


outFile.Close