(Tcl) 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 Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# Note: This example requires Chilkat v9.5.0.64 or later.
set xml [new_CkXml]

CkXml_put_Tag $xml "animals"

set autoCreate 1

# When the autoCreate argument equals 1, the UpdateAttrAt
# method auto-creates the children as needed:
CkXml_UpdateAttrAt $xml "penguin" $autoCreate "feature" "flightless bird"
CkXml_UpdateAttrAt $xml "mammal|rodent|squirrel" $autoCreate "feature" "bushy tail"
CkXml_UpdateAttrAt $xml "mammal|rodent|rat" $autoCreate "feature" "long hairless tail"

# Show the XML
puts [CkXml_getXml $xml]

# 	<?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..
CkXml_UpdateAttrAt $xml "penguin" $autoCreate "feature" "black and white"
CkXml_UpdateAttrAt $xml "mammal|rodent|squirrel" $autoCreate "feature" "grey, red, or black"
CkXml_UpdateAttrAt $xml "mammal|rodent|rat" $autoCreate "feature" "brown, grey, white, or black"

puts [CkXml_getXml $xml]

# 	<?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>
# 

delete_CkXml $xml