XML Tidy - Untuk Merapikan File XML

Public Function PrettyPrintXML(XML As String) As String

    Dim Reader As New SAXXMLReader60
    Dim Writer As New MXXMLWriter60

    Writer.Indent = True
    Writer.standalone = False
    Writer.omitXMLDeclaration = False
    Writer.encoding = "utf-8"

    Set Reader.contentHandler = Writer
    Set Reader.dtdHandler = Writer
    Set Reader.errorHandler = Writer

    Call Reader.putProperty("http://xml.org/sax/properties/declaration-handler", _
    Writer)
    Call Reader.putProperty("http://xml.org/sax/properties/lexical-handler", _
    Writer)

    Call Reader.parse(XML)

    PrettyPrintXML = Writer.output

End Function

Public Function PrettyPrintDocument(Doc As DOMDocument60) As String
    PrettyPrintDocument = PrettyPrintXML(Doc.XML)
End Function