How can I pretty-print XML source using VB6 and MSXML?

by

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

More Related Contents:

  1. Is there a Visual Basic 6 decompiler? [closed]
  2. Your favorite Visual Basic 6.0 tools and tips [closed]
  3. Does the VB6 IDE run on Windows 7 / 8 / 10 64-bit?
  4. How can you force VB6 to use the DLLs and OCXs from the app directory?
  5. Stop Visual Basic 6 from changing my casing
  6. Recordset .value property
  7. Where should I store application specific settings?
  8. Escaping quotes in a string in VB6
  9. Self Inspection of VB6 UDTs
  10. what is the better way to handle errors in VB6
  11. VB6 IDE cannot load MSCOMCTL.OCX after update KB 2687323
  12. Download File – VB6
  13. What does DIM stand for in Visual Basic and BASIC?
  14. VB6: I Can’t Figure Out Why This Code Works
  15. Is it possible to retrieve the call stack programmatically in VB6?
  16. Does VBA have Dictionary Structure?
  17. How to pretty print XML from Java?
  18. Pretty printing XML with javascript
  19. Difference between Visual Basic 6.0 and VBA
  20. A Simple C# DLL – how do I call it from Excel, Access, VBA, VB6?
  21. Print a list of space-separated elements
  22. Access-SQL: Inner Join with multiple tables
  23. NumPy: Pretty print tabular data
  24. C# DLL cannot affect value of a number passed by reference from a VB6 application
  25. Assignment of objects in VB6
  26. 64 bit C# with a 32 bit VB6 COM object
  27. Javascript: How to generate formatted easy-to-read JSON straight from an object? [duplicate]
  28. Using colons to put two statements on the same line in Visual Basic [closed]
  29. Making a C# kill event for a vb6 app?
  30. Traversing all nodes in an XML file with VBScript

Leave a Comment