(VBScript) Xml.ChildContent Example #2

Another Xml.UpdateChildContent example...

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")
xml.Tag = "abc"

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

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

outFile.WriteLine(xml.GetXml())

' Output is:

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

outFile.Close