VBScript

XML EmitCompact

See more XML Examples

Demonstrates the XML EmitCompact property to generate XML that is not pretty-printed, but is instead compact with whitespace removed.

Note: This example requires Chilkat v9.5.0.64 or later.

VBScript

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

' Note: This example requires Chilkat v9.5.0.64 or later.
set xml = CreateObject("Chilkat.Xml")

xml.Tag = "aaa"
xml.NewChild2 "red|green|blue","sky"

' Show the XML in normal indented (pretty-printed) format:
outFile.WriteLine(xml.GetXml())

' The output:

' 	<?xml version="1.0" encoding="utf-8" ?>
' 	<aaa>
' 	    <red>
' 	        <green>
' 	            <blue>sky</blue>
' 	        </green>
' 	    </red>
' 	</aaa>

' Now set the EmitCompact property.
xml.EmitCompact = 1

' Show the XML in compact form:
outFile.WriteLine(xml.GetXml())

' The compact output:

' 	<?xml version="1.0" encoding="utf-8" ?>
' 	<aaa><red><green><blue>sky</blue></green></red></aaa>
' 

outFile.Close