(Tcl) XML Accumulate Tag Content

Demonstrates how to use the AccumulateTagContent method of the XML class.

Imagine the XML document for this test contains the following:

<?xml version="1.0" encoding="utf-8"?>
<abc>
	<zzz>The quick brown fox</zzz>
	<xyz>
	    <zzz>hello world!</zzz>
	</xyz>
	<mmm>
	    <zzz>jumped over the lazy dog.</zzz>
	</mmm>
</abc>

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set xml [new_CkXml]

set success [CkXml_LoadXmlFile $xml "my_document.xml"]
if {$success != 1} then {
    puts [CkXml_lastErrorText $xml]
    delete_CkXml $xml
    exit
}

# Accumulate the textual content within the "zzz" nodes of this
# XML.  Skip sub-trees rooted at nodes having the tag "xyz".
# For the given test XML, the resulting accumulated text should be:
# "The quick brown fox jumped over the lazy dog."
puts [CkXml_accumulateTagContent $xml zzz xyz]

delete_CkXml $xml