(VBScript) XML NewChild2 using a Tag Path

Demonstrates the XML NewChild2 method using a tag path.

Note: This example requires Chilkat v9.5.0.64 or later.

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)

' Note: This example requires Chilkat v9.5.0.64 or later.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml")
set xml = CreateObject("Chilkat.Xml")

xml.Tag = "aaa"

' A single tag can be passed to NewChild2, and this behaves as it always has:
xml.NewChild2 "penguin","flightless bird"
xml.NewChild2 "mammal",""
outFile.WriteLine(xml.GetXml())

' The output:

' 	<?xml version="1.0" encoding="utf-8" ?>
' 	<aaa>
' 	    <penguin>flightless bird</penguin>
' 	    <mammal />
' 	</aaa>
' 
' Starting in v9.5.0.64, a tag path can be used.
' It will cause nodes to be automatically created as needed.
xml.NewChild2 "red|green|blue","sky"
xml.NewChild2 "mammal|rodent|squirrel","bushy tail"
outFile.WriteLine(xml.GetXml())

' The output:

' 	<?xml version="1.0" encoding="utf-8" ?>
' 	<aaa>
' 	    <penguin>flightless bird</penguin>
' 	    <mammal>
' 	        <rodent>
' 	            <squirrel>bushy tail</squirrel>
' 	        </rodent>
' 	    </mammal>
' 	    <red>
' 	        <green>
' 	            <blue>sky</blue>
' 	        </green>
' 	    </red>
' 	</aaa>
' 

outFile.Close