(VBScript) Auto-Trim XML Content when Loading

This example explains the "autoTrim" argument that is passed to a method such as LoadXml2.

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)

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

' If autoTrim is 1, then the content inside an leaf element is trimmed.
' For example:
autoTrim = 1
success = xml.LoadXml2("<abc><xyz>  123   </xyz></abc>",autoTrim)
outFile.WriteLine(xml.GetXml())

' Output is:
' (notice the SPACE chars before and after "xyz" are trimmed)

' <?xml version="1.0" encoding="utf-8" ?>
' <abc>
'     <xyz>123</xyz>
' </abc>

' If autoTrim is 0, then the content inside leaf elements are not trimmed.
autoTrim = 0
success = xml.LoadXml2("<abc><xyz>  123   </xyz></abc>",autoTrim)
outFile.WriteLine(xml.GetXml())

' Output is:

' <?xml version="1.0" encoding="utf-8" ?>
' <abc>
'     <xyz>  123   </xyz>
' </abc>

' --------------------------------------------------------------------
' The EmitCompact property controls whether XML is emitted indented (pretty-printed)
' or compact.  For example:

' Auto-trim + emit compact:
autoTrim = 1
success = xml.LoadXml2("<abc><xyz>  123   </xyz></abc>",autoTrim)
xml.EmitCompact = 1
outFile.WriteLine(xml.GetXml())

' Output is:

' <?xml version="1.0" encoding="utf-8" ?>
' <abc><xyz>123</xyz></abc>

' No Auto-trim + emit compact:
autoTrim = 0
success = xml.LoadXml2("<abc><xyz>  123   </xyz></abc>",autoTrim)
xml.EmitCompact = 1
outFile.WriteLine(xml.GetXml())

' Output is:

' <?xml version="1.0" encoding="utf-8" ?>
' <abc><xyz>  123   </xyz></abc>

outFile.Close