B4X

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.

B4X

'  Note: This example requires Chilkat v9.5.0.64 or later.
Dim xml As ChilkatXml
xml.Initialize

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

'  Show the XML in normal indented (pretty-printed) format:
Log(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 = True

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

'  The compact output:

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