(Visual FoxPro) Methods for Getting Attributes

Demonstrates some methods for getting attribute name/values.

The input XML, available at http://www.chilkatsoft.com/data/car.xml, is this:

<root>
    <car color="black" make="mercedes" model="C350" hp="302" engine="v6" type="sedan">Mercedes Benz C350</car>
</root>

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

LOCAL loXml
LOCAL loCarNode
LOCAL lnNumAttr
LOCAL lnHorsepower
LOCAL i
LOCAL lnSuccess

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xml')
loXml = CreateObject('Chilkat.Xml')

* The sample input XML is available at http://www.chilkatsoft.com/data/car.xml
lnSuccess = loXml.LoadXmlFile("car.xml")
IF (lnSuccess <> 1) THEN
    ? loXml.LastErrorText
    RELEASE loXml
    CANCEL
ENDIF

* Navigate to the "car" node, which is the 1st child:
loCarNode = loXml.FirstChild()

* Get the value of the "model" attribute:
? "model = " + loCarNode.GetAttrValue("model")

* Get the value of the "hp" attribute as an integer:
lnHorsepower = loCarNode.GetAttrValueInt("hp")
? "horsepower = " + STR(lnHorsepower)

* Iterate over the attributes and show the name/value of each:
lnNumAttr = loCarNode.NumAttributes

i = 0
DO WHILE i < lnNumAttr
    ? loCarNode.GetAttributeName(i) + ": " + loCarNode.GetAttributeValue(i)
    i = i + 1
ENDDO

RELEASE loCarNode

RELEASE loXml