(VBScript) Scrub Xml

Demonstrates the Scrub method for some common XML cleaning needs.

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' 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:

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

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml")
set xml = CreateObject("Chilkat.Xml")
success = xml.LoadXml(s)

outFile.WriteLine(xml.GetXml())

' 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>

xml.Scrub "AttrTrimEnds,AttrTrimInside,ContentTrimEnds,ContentTrimInside"
outFile.WriteLine(xml.GetXml())

' 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>

outFile.Close