' ===============================================================
'  FORMAT XML DEMO
' ===============================================================

Controls OpenTextBox
Button 1 Text ORIGINAL XML
Button 3 Text Format_WithReplace
Button 4 Text Format_DefaultSpaces
Button 5 Text Format_0-Spaces
Button 6 Text Format_5-Spaces
Stop

Variable String XML

Label ORIGINAL XML
	Load XML "NotebookTest.xml"
	Controls ClearTextBox 
	Print XML
Return

Label Format_WithReplace
	Load XML "NotebookTest.xml"
	XML = Replace(XML, "><", ">" + CRLF + "<")
	Controls ClearTextBox
	Print XML
Return

Label Format_DefaultSpaces
	Load XML "NotebookTest.xml"
	XML = FormatXML(XML)
	Controls ClearTextBox 
	Print XML
Return

Label Format_0-Spaces
	Load XML "NotebookTest.xml"
	XML = FormatXML(XML, 0)
	Controls ClearTextBox 
	Print XML
Return

Label Format_5-Spaces
	Load XML "NotebookTest.xml"
	XML = FormatXML(XML, 5)
	Controls ClearTextBox 
	Print XML
Return


'WATCH v1
'WATCH GetSeparatedString(SequenceCmd, 1)
'WATCH str1
