(VBScript) Methods for Getting Attributes

Demonstrates some methods for getting attribute name/values.

The input XML, available at http://www.chilkatsoft.com/data/car.xml, is this:

<root>
    <car color="black" make="mercedes" model="C350" hp="302" engine="v6" type="sedan">Mercedes Benz C350</car>
</root>

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)

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml")
set xml = CreateObject("Chilkat.Xml")

' The sample input XML is available at http://www.chilkatsoft.com/data/car.xml
success = xml.LoadXmlFile("car.xml")
If (success <> 1) Then
    outFile.WriteLine(xml.LastErrorText)
    WScript.Quit
End If

' Navigate to the "car" node, which is the 1st child:
' carNode is a Chilkat.Xml
Set carNode = xml.FirstChild()

' Get the value of the "model" attribute:
outFile.WriteLine("model = " & carNode.GetAttrValue("model"))

' Get the value of the "hp" attribute as an integer:
horsepower = carNode.GetAttrValueInt("hp")
outFile.WriteLine("horsepower = " & horsepower)

' Iterate over the attributes and show the name/value of each:
numAttr = carNode.NumAttributes

i = 0
Do While i < numAttr
    outFile.WriteLine(carNode.GetAttributeName(i) & ": " & carNode.GetAttributeValue(i))
    i = i + 1
Loop


outFile.Close