Tôi có thể in mã nguồn XML bằng cách sử dụng VB6 và MSXML như thế nào?

Question

Tôi đã chăm sóc điều này trong nhiều tháng nay và tôi chủ yếu tìm thấy các trang web hỏi cùng một câu hỏi.

Câu trả lời tôi đã làm được tìm thấy luôn là .NET hoặc C++ hoặc XSLT liên quan.

Answer 1

Sau nhiều tháng nghiên cứu, tôi đã tìm ra điều này.

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 

Sử dụng một tài liệu:

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