(Visual FoxPro) Demonstrate the XML UpdateAttrAt Method

Demonstrates the XML UpdateAttrAt method to update attribute name/value pairs in XML.

Note: This example requires Chilkat v9.5.0.64 or later.

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

LOCAL loXml
LOCAL lnAutoCreate

* Note: This example requires Chilkat v9.5.0.64 or later.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xml')
loXml = CreateObject('Chilkat.Xml')

loXml.Tag = "animals"

lnAutoCreate = 1

* When the autoCreate argument equals 1, the UpdateAttrAt
* method auto-creates the children as needed:
loXml.UpdateAttrAt("penguin",lnAutoCreate,"feature","flightless bird")
loXml.UpdateAttrAt("mammal|rodent|squirrel",lnAutoCreate,"feature","bushy tail")
loXml.UpdateAttrAt("mammal|rodent|rat",lnAutoCreate,"feature","long hairless tail")

* Show the XML
? loXml.GetXml()

* 	<?xml version="1.0" encoding="utf-8" ?>
* 	<animals>
* 	    <penguin feature="flightless bird" />
* 	    <mammal>
* 	        <rodent>
* 	            <squirrel feature="bushy tail" />
* 	            <rat feature="long hairless tail" />
* 	        </rodent>
* 	    </mammal>
* 	</animals>
* 

* Now update each node's "feature" attribute..
loXml.UpdateAttrAt("penguin",lnAutoCreate,"feature","black and white")
loXml.UpdateAttrAt("mammal|rodent|squirrel",lnAutoCreate,"feature","grey, red, or black")
loXml.UpdateAttrAt("mammal|rodent|rat",lnAutoCreate,"feature","brown, grey, white, or black")

? loXml.GetXml()

* 	<?xml version="1.0" encoding="utf-8" ?>
* 	<animals>
* 	    <penguin feature="black and white" />
* 	    <mammal>
* 	        <rodent>
* 	            <squirrel feature="grey, red, or black" />
* 	            <rat feature="brown, grey, white, or black" />
* 	        </rodent>
* 	    </mammal>
* 	</animals>
* 

RELEASE loXml