(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>

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")

success = 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".
success = xml.UpdateAttribute("b","pear")

' Because no attribute named "c" exists, UpdateAttribute
' will create it:
success = 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