20
A
回答
30
經過幾個月的研究,我已經想出了這個。
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
+6
很不錯的。我一直在尋找這麼簡單的東西 - 這並不需要額外的庫或遞歸 - 很長一段時間。 – jveazey 2010-11-07 08:51:35
相關問題
- 1. 如何漂亮打印VBA代碼?
- 2. 源代碼漂亮的打印機與DocBook或XML輸出?
- 3. .NET XML漂亮打印機?
- 4. Coldfusion - XML漂亮打印
- 5. 使用Emacs漂亮地打印ActionScript 3.0
- 6. 漂亮的打印代碼爲PDF
- 7. 如何漂亮地打印GumTreeDiff ITree?
- 8. 漂亮打印
- 9. Angular2打字稿 - 打印漂亮的XML
- 10. 如何漂亮打印HttpServletRequest和HttpServletResponse
- 11. 如何在Java中漂亮地打印XML屬性?
- 12. 如何從命令行部分漂亮地打印XML文件?
- 13. 如何不使用C#DataSet中的漂亮打印編寫XML
- 14. 用C API漂亮地打印Z3
- 15. 漂亮打印JSON
- 16. 在Java中漂亮地打印地圖
- 17. 如何用System.Json漂亮打印?
- 18. Groovy漂亮打印XML斷言失敗
- 19. JSP中漂亮的打印XML數據
- 20. 打開巨大的XML文件,並漂亮地打印
- 21. 如何漂亮地打印字節數組和字符數組?
- 22. 如何用括號漂亮地打印JSON?
- 23. 如何用GoogleTest框架漂亮地打印QString?
- 24. 在Eclipse Console中從顯示視圖中漂亮地打印XML
- 25. 在Clojure漂亮打印
- 26. 漂亮打印OCaml for windows
- 27. JavaScript +漂亮的打印JSON
- 28. 漂亮的打印JSON Rails
- 29. 使用javax.xml.transform.Transformer爲漂亮打印排序xml屬性
- 30. 用於XML字符串的Python漂亮XML打印機
您也可以看看這裏:http://stackoverflow.com/q/10202576/18771 – Tomalak 2012-04-18 09:21:05