Visual FoxPro

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 FoxPro

LOCAL lnSuccess
LOCAL loXml
LOCAL lcResult

lnSuccess = 0

loXml = CreateObject('Chilkat.Xml')

lnSuccess = loXml.LoadXmlFile("qa_data/xml/pigs.xml")
IF (lnSuccess <> 1) THEN
    ? loXml.LastErrorText
    RELEASE loXml
    CANCEL
ENDIF

*  Get the content of the "species" node for the 1st animal:

lcResult = loXml.ChilkatPath("animal|species|*")
*  Output should be "pot belly pig"
? lcResult

*  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
lcResult = loXml.ChilkatPath("animal[1]|type|*")
*  Output should be "House Pig"
? lcResult

*  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:
lcResult = loXml.ChilkatPath("/C/name,Nigel|..|birth|*")
*  Output should be "June, 1991"
? lcResult

*  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.  
lcResult = loXml.ChilkatPath("animal|picture|$")
IF (loXml.LastMethodSuccess <> 1) THEN
    ? "Failed to navigate to animal|picture."
    RELEASE loXml
    CANCEL
ENDIF

*  Display the contents of the file/description/caption child nodes
? "Picture Info:"
? loXml.GetChildContent("file")
? loXml.GetChildContent("description")
? loXml.GetChildContent("caption")

*  Return back to the root of the XML document:
loXml.GetRoot2()

*  Display the value of the "spay-neuter" attribute of the 1st animal:
? "----"
lcResult = loXml.ChilkatPath("animal|gender|(spay-neuter)")
? lcResult

RELEASE loXml