(VBScript) Update an XML Attribute

Demonstrates how to update XML attributes.

The output XML is this:

<abc b="pear" c="orange" a="130">Test</abc>

Download Chilkat XML ActiveX

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

set xml = CreateObject("Chilkat.Xml")

xml.LoadXml "<abc a=""123"" b=""apple"">Test</abc>"

'  The UpdateAttribute and AddOrUpdateAttribute methods
'  are identical.  Both will replace the attribute's value if it
'  already exists, or insert a new attribute if it does not yet exist.

'  Change the value of attribute "b" to "pear".
xml.UpdateAttribute "b","pear"

'  Because no attribute named "c" exists, UpdateAttribute
'  will create it:
xml.UpdateAttribute "c","orange"

'  If an attribute's value is an integer, the AddToAttribute
'  method may be called to update it by adding an integer value.
'  For example, update the value of "a" to "130" by adding 7.
xml.AddToAttribute "a",7

'  Examine the result:
outFile.WriteLine(xml.GetXml())
outFile.Close