Как может я исходный код XML структурной распечатки программы с помощью VB6 и MSXML?

Question

Как может я исходный код XML структурной распечатки программы с помощью VB6 и MSXML?

Быстрые повторения делают более счастливых программистов, и они не прибывают немного быстрее, чем интерактивный интерпретатор. Хорошая эксплуатация интерпретатора дает Вам песочницу, тестирование и разработку прототипа одновременно.

Остерегаются программирования перестановкой, как бы то ни было. Мое персональное эмпирическое правило - то, что это просто, потому что это работает, не означает, что это готово, когда можно объяснить, почему это работает, это готово.

20

vb6 msxml pretty-print

задан Daniel Rikowski 13 July 2009 в 09:54

1 ответ

Другие вопросы по тегам:

vb6 msxml pretty-print

Похожие вопросы:

score 31 · Accepted Answer

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