(VBScript) ExtractChildByName using a Tag Path

Demonstrates calling ExtractChildByName with a tag path.

This example requires Chilkat v9.5.0.64 or greater.

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 = "world"

' This example uses features introduced in v9.5.0.64
xml.NewChild2 "north_america|united_states|california|san_francisco","Silicon Valley"
xml.NewChild2 "north_america|united_states|california|san_diego","Birthplace of California"
xml.NewChild2 "north_america|united_states|illinois|chicago","Windy City"

outFile.WriteLine(xml.GetXml())

' Produces the following XML
' 
' 	<?xml version="1.0" encoding="utf-8" ?>
' 	<world>
' 	    <north_america>
' 	        <united_states>
' 	            <california>
' 	                <san_francisco>Silicon Valley</san_francisco>
' 	                <san_diego>Birthplace of California</san_diego>
' 	            </california>
' 	            <illinois>
' 	                <chicago>Windy City</chicago>
' 	            </illinois>
' 	        </united_states>
' 	    </north_america>
' 	</world>
' 

' xCalif is a Chilkat.Xml
Set xCalif = xml.ExtractChildByName("north_america|united_states|california","","")

outFile.WriteLine(xCalif.GetXml())

' xCalif contains:

' 	<?xml version="1.0" encoding="utf-8" ?>
' 	<california>
' 	    <san_francisco>Silicon Valley</san_francisco>
' 	    <san_diego>Birthplace of California</san_diego>
' 	</california>

outFile.WriteLine(xml.GetXml())

' xml now contains:

' 	<?xml version="1.0" encoding="utf-8" ?>
' 	<world>
' 	    <north_america>
' 	        <united_states>
' 	            <illinois>
' 	                <chicago>Windy City</chicago>
' 	            </illinois>
' 	        </united_states>
' 	    </north_america>
' 	</world>

outFile.Close