Visual Basic 6.0

Demonstrates the ChilkatPath XML Method

Demonstrates how to use the ChilkatPath method. This example uses the XML sample file pigs.xml. The pigs.xml file contains this content:
Visual Basic 6.0

Dim success As Long
success = 0

Dim xml As New ChilkatXml

success = xml.LoadXmlFile("qa_data/xml/pigs.xml")
If (success <> 1) Then
    Debug.Print xml.LastErrorText
    Exit Sub
End If

' Get the content of the "species" node for the 1st animal:
Dim result As String
result = xml.ChilkatPath("animal|species|*")
' Output should be "pot belly pig"
Debug.Print result

' Get the content of the "type" node for the 2nd animal:
' Indexing begins at 0.  Therefore, the 2nd direct child having
' the tag "animal" is at index 1
result = xml.ChilkatPath("animal[1]|type|*")
' Output should be "House Pig"
Debug.Print result

' Find the pig having the name "Nigel" and display the
' birth date.  To do this, we&apos;ll navigate to the node having
' tag="name" with the exact content "Nigel", then navigate up, 
' and finally navigate back down to the "birth" node:
result = xml.ChilkatPath("/C/name,Nigel|..|birth|*")
' Output should be "June, 1991"
Debug.Print result

' Navigate to the 1st animal&apos;s picture and print the filename,
' description, and caption.
' The "$" updates the caller&apos;s internal pointer to reference
' the node that is the result of evaluating the path.
' An empty string is returned for success, and a NULL/nil/0
' pointer (reference) is returned on failure.  
result = xml.ChilkatPath("animal|picture|$")
If (xml.LastMethodSuccess <> 1) Then
    Debug.Print "Failed to navigate to animal|picture."
    Exit Sub
End If

' Display the contents of the file/description/caption child nodes
Debug.Print "Picture Info:"
Debug.Print xml.GetChildContent("file")
Debug.Print xml.GetChildContent("description")
Debug.Print xml.GetChildContent("caption")

' Return back to the root of the XML document:
xml.GetRoot2 

' Display the value of the "spay-neuter" attribute of the 1st animal:
Debug.Print "----"
result = xml.ChilkatPath("animal|gender|(spay-neuter)")
Debug.Print result