VBScript

Xml.UpdateAttrAt Example #2

Another Xml.UpdateAttrAt example... VBScript

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

set xml = CreateObject("Chilkat.Xml")
xml.Tag = "abc"

set sbValue = CreateObject("Chilkat.StringBuilder")

i = 0
Do While i < 10
    xml.I = i
    sbValue.Clear 
    success = sbValue.AppendInt(i)
    success = xml.UpdateAttrAt("xyz|test[i]",1,"index",sbValue.GetAsString())
    i = i + 1
Loop

outFile.WriteLine(xml.GetXml())

' Output is:

' 	<?xml version="1.0" encoding="utf-8" ?>
' 	<abc>
' 	    <xyz>
' 	        <test index="0" />
' 	        <test index="1" />
' 	        <test index="2" />
' 	        <test index="3" />
' 	        <test index="4" />
' 	        <test index="5" />
' 	        <test index="6" />
' 	        <test index="7" />
' 	        <test index="8" />
' 	        <test index="9" />
' 	    </xyz>
' 	</abc>

outFile.Close