(Tcl) Scrub Xml

Demonstrates the Scrub method for some common XML cleaning needs.

Note: This example requires Chilkat v9.5.0.77 or greater.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# The Scrub method has options for trimming whitespace from the ends of attributes and content,
# trimming inside whitespace, and for case conversion for tags and attribute names.

# Trimming inside whitespace is defined as replacing CR, LF, and tab chars with SPACE chars, and 
# removing extra SPACE chars so that at most one SPACE separates non-SPACE chars.

# For example, load the following XML:

set s "<xyz><td class=\" colHoldingPercent col7\" style=\"border-bottom-color: rgb(221, 221, 221);               border-image-outset: 0;  \"> abc\r\n123    456</td></xyz>"

set xml [new_CkXml]

set success [CkXml_LoadXml $xml $s]

puts [CkXml_getXml $xml]

# The XML before scrubbing is:

# <xyz>
#     <td class=" colHoldingPercent col7" style="border-bottom-color: rgb(221, 221, 221);               border-image-outset: 0;  ">abc
# 123    456</td>
# </xyz>

CkXml_Scrub $xml "AttrTrimEnds,AttrTrimInside,ContentTrimEnds,ContentTrimInside"
puts [CkXml_getXml $xml]

# The XML after scrubbing is:

# <?xml version="1.0" encoding="utf-8"?>
# <xyz>
#     <td class="colHoldingPercent col7" style="border-bottom-color: rgb(221, 221, 221); border-image-outset: 0;">abc 123 456</td>
# </xyz>

delete_CkXml $xml