如何使用VB6和MSXML打印XML源代码？

I've been looking after this for months now and I mostly found sites asking the same question.

我几个月来一直在关注这个问题,而且我主要发现网站都在问同样的问题。

The answers I did found were always for .NET or C++ or involved XSLT.

我发现的答案总是用于.NET或C ++或涉及XSLT。

1 个解决方案

#1

After months of research I've come up with this.

经过数月的研究,我想出了这个。

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

Using a document:

使用文件:

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

#1