(DataFlex) Get XML Attribute Value by Path

Demonstrates how to get an attribute value by path.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoXml
    Boolean iSuccess
    String sPath
    String sAttrValue
    Integer i
    String sTemp1

    // The XML used in this example contains the following:
    // This example will get the value of the "spay-neuter" attribute for each pig.

    // <pig-rescue>
    //   <herd name="Cathy">
    // 	<species name="pot belly pig">
    // 	    <animal>
    // 	        <name>Molly II</name>
    // 	        <birth>February, 1998</birth>
    // 			<in-date>January, 2000</in-date>
    // 			<from>Middle Ave.</from>
    // 			<gender spay-neuter="yes">F</gender>
    // 			<info>Molly came from a place where an old, ill man had too many animals.
    // 	              	The animals were seldom fed and rats would eat the newborn piglets.
    // 	             	 When Molly was found at one week old, she was the only piglet of 
    // 	              	her siblings who did not get stepped on by a cow. She is a sweet, 
    // 	              	friendly pig who likes to hang out on Cathy's porch on the lounge 
    // 	              	pad.
    // 			</info>
    // 		</animal>
    // 	    <animal>
    // 			<name>Nigel</name>
    // 			<birth>June, 1991</birth>
    // 			<in-date>August, 1991</in-date>
    // 			<from>Breeder</from>
    // 			<gender spay-neuter="no">M</gender>
    // 			<info>
    // 			 	Nigel was the first pig and the reason for the rescue in the
    // 			 	first place. He is 13 now and doing well, but takes a number 
    // 				of medications, as you can see below.
    // 			</info>
    // 		</animal>		
    // 	</species>
    //   </herd>
    // </pig-rescue>

    Get Create (RefClass(cComChilkatXml)) To hoXml
    If (Not(IsComObjectCreated(hoXml))) Begin
        Send CreateComObject of hoXml
    End
    Get ComLoadXmlFile Of hoXml "qa_data/xml/twoPigs.xml" To iSuccess

    // Use the ChilkatPath method to return the value of a particular attribute at a given path.
    // A path ending with "(attributeName)" will return the value for the given attribute.
    Move "herd|species|animal[0]|gender|(spay-neuter)" To sPath
    Get ComChilkatPath Of hoXml sPath To sAttrValue
    Showln "1st pig spay-neuter: " sAttrValue

    Move "herd|species|animal[1]|gender|(spay-neuter)" To sPath
    Get ComChilkatPath Of hoXml sPath To sAttrValue
    Showln "2nd pig spay-neuter: " sAttrValue

    // We could also do it like this:
    Move "herd|species|animal[i]|gender|(spay-neuter)" To sPath
    Move 0 To i
    While (i < (ComNumChildrenAt(hoXml, "herd|species")))
        Set ComI Of hoXml To i
        Get ComChilkatPath Of hoXml sPath To sTemp1
        Showln "spay-neuter for pig number " (i + 1) ": " sTemp1
        Move (i + 1) To i
    Loop



End_Procedure