How to use GetParent and GetParent2

Download Chilkat XML ActiveX

How to use GetParent and GetParent2. This is a snippet of the document used in this example:

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)


set xml0 = CreateObject("Chilkat.Xml")

'  The Chilkat XML component is freeware.

'  Load an XML document.  Typically you might call LoadXml
'  to load an XML file.  This example loads an XML file from
'  a URL:
Set xml = xml0.HttpGet("http://www.chilkatsoft.com/testData/bookstore.xml")

'  The xml object points to the root node of the XML document.

'  Set bookNode equal to the 1st child of the root.

Set bookNode = xml.GetChild(0)

'  Set titleNode equal to the title child of bookNode:

Set titleNode = bookNode.GetChildWithTag("title")

'  Call GetParent to return a new object pointing to the parent node:

Set bookNode2 = titleNode.GetParent()

'  bookNode2 and bookNode point to the same node.

'  Call GetParent2 (which returns nothing) to modify the internal
'  pointer within the calling object so that it points to the immediate parent:
titleNode.GetParent2 

'  Now titleNode points to the same node as bookNode2 and bookNode.
'  To prove it, generate the XML sub-tree rooted at the calling
'  node and display each:

str1 = bookNode.GetXml()
str2 = bookNode2.GetXml()
str3 = titleNode.GetXml()

outFile.WriteLine(str1)
outFile.WriteLine(str2)
outFile.WriteLine(str3)

outFile.Close