(Tcl) Update an XML Attribute

Demonstrates how to update XML attributes.

The output XML is this:

<abc b="pear" c="orange" a="130">Test</abc>

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set xml [new_CkXml]

set success [CkXml_LoadXml $xml "<abc a=\"123\" b=\"apple\">Test</abc>"]

# The UpdateAttribute and AddOrUpdateAttribute methods
# are identical.  Both will replace the attribute's value if it
# already exists, or insert a new attribute if it does not yet exist.

# Change the value of attribute "b" to "pear".
set success [CkXml_UpdateAttribute $xml "b" "pear"]

# Because no attribute named "c" exists, UpdateAttribute
# will create it:
set success [CkXml_UpdateAttribute $xml "c" "orange"]

# If an attribute's value is an integer, the AddToAttribute
# method may be called to update it by adding an integer value.
# For example, update the value of "a" to "130" by adding 7.
CkXml_AddToAttribute $xml "a" 7

# Examine the result:
puts [CkXml_getXml $xml]

delete_CkXml $xml