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

load ./chilkat.dll

set xml [new_CkXml]

# carNode is a CkXml

# The sample input XML is available at http://www.chilkatsoft.com/data/car.xml
set success [CkXml_LoadXmlFile $xml "car.xml"]
if {$success != 1} then {
    puts [CkXml_lastErrorText $xml]
    delete_CkXml $xml
    exit
}

# Navigate to the "car" node, which is the 1st child:
set carNode [CkXml_FirstChild $xml]

# Get the value of the "model" attribute:
puts "model = [CkXml_getAttrValue $carNode model]"

# Get the value of the "hp" attribute as an integer:
set horsepower [CkXml_GetAttrValueInt $carNode "hp"]
puts "horsepower = $horsepower"

# Iterate over the attributes and show the name/value of each:
set numAttr [CkXml_get_NumAttributes $carNode]

set i 0
while {$i < $numAttr} {
    puts [CkXml_getAttributeName $carNode $i]: [CkXml_getAttributeValue $carNode $i]
    set i [expr $i + 1]
}

delete_CkXml $carNode


delete_CkXml $xml