मैं वीबी 6 और एमएसएक्सएमएल का उपयोग कर एक्सएमएल स्रोत को कैसे प्रिंट कर सकता हूं?

Question

मैं अब महीनों के लिए इसकी देखभाल कर रहा हूं और मुझे ज्यादातर एक ही प्रश्न पूछने वाली साइटें मिलीं।

उत्तर पाया गया था हमेशा .NET या C++ या XSLT शामिल थे।

Answer 1

महीनों के शोध के बाद मैं इसके साथ आया हूं।

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