Chilkat ActiveX Downloads

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)
set xml = CreateObject("Chilkat_9_5_0.Xml")
' The sample input XML is available at http://www.chilkatsoft.com/data/fruit.xml
success = xml.LoadXmlFile("fruit.xml")
If (success <> 1) Then
outFile.WriteLine(xml.LastErrorText)
WScript.Quit
End If' The RemoveChild method removes (discards) all direct' children having the specified tag:
xml.RemoveChild"fruit"' Show the resulting XML:
outFile.WriteLine("Result with all direct children having a tag equal to ""fruit"" removed:")
outFile.WriteLine(xml.GetXml())
' The XML with the "fruit" direct children removed is shown below:' Notice that the "fruit" node beneath "xyz" was not removed.' This correct because it was not a direct child of the calling node.
/*

*/
' --------------------------------------------------------------------------' Restore the original XML:
success = xml.LoadXmlFile("fruit.xml")
' The RemoveChildWithContent method removes the child' having the exact content specified, regardless of the tag.' For example:
xml.RemoveChildWithContent"pear"' Show the resulting XML:
outFile.WriteLine("Result with the node containing ""pear"" removed:")
outFile.WriteLine(xml.GetXml())
' --------------------------------------------------------------------------' Restore the original XML:
success = xml.LoadXmlFile("fruit.xml")
' The RemoveChildByIndex method removes the Nth direct' child. Indexing begins at 0. The "xyz" child is at index 4:
xml.RemoveChildByIndex4' Show the resulting XML:' Notice that the entire "xyz" subtree is removed.
outFile.WriteLine("Result with the node at index 4 removed:")
outFile.WriteLine(xml.GetXml())
' --------------------------------------------------------------------------' Restore the original XML:
success = xml.LoadXmlFile("fruit.xml")
' Navigate to the node with tag "xyz";' xyz is a Chilkat_9_5_0.Xml
Set xyz = xml.FindChild("xyz")
' Remove the "xyz" subtree making it it's own XML document' with the "xyz" node at the root:
xyz.RemoveFromTree' Show both XML documents:
outFile.WriteLine(xyz.GetXml())
outFile.WriteLine(xml.GetXml())
' Also, the TreeId property is an integer value assigned' to nodes in an XML document. All nodes belonging to' the same XML document will have the same TreeId.' Notice that the "xyz" node now has a different TreeId:
outFile.WriteLine("xyz TreeId = " & xyz.TreeId)
outFile.WriteLine("xml TreeId = " & xml.TreeId)
outFile.Close