我有MSXML2.DomDocument的一个实例。
我挥手保存它，与缩进。
此代码的工作，但不缩进：
var dom = new ActiveXObject("MSXML2.DomDocument");
// fiddle with dom here
dom.save(filename);
我想我可以用一个MXXMLWriter对象注入缩进。
怎么样？
Answer 1:
这个现在应该做的。
function saveDomWithIndent(dom, filename) {
var writer = new ActiveXObject("MSXML2.MXXMLWriter"),
reader = new ActiveXObject("MSXML2.SAXXMLReader"),
fso = new ActiveXObject("Scripting.FileSystemObject"),
textStream = fso.CreateTextFile(filename, true);
writer.indent = true;
writer.omitXMLDeclaration = true;
reader.contentHandler = writer;
reader.parse(dom);
textStream.Write(writer.output);
textStream.Close();
}
使用这样的：
var root, node, newnode,
dom = new ActiveXObject("MSXML2.DOMDocument.6.0");
dom.async = false;
dom.resolveExternals = false;
dom.load(fullpath);
root = dom.documentElement;
node = root.selectSingleNode("/root/node1");
if (node !== null) {
newnode = dom.createElement('node2');
newnode.text = "hello";
root.appendChild(newnode);
saveDomWithIndent(dom, fullpath);
}
我无法弄清楚如何调整缩进级别。 它总是以标签缩进。
Answer 2:
还有另一种方式来美化XML输出，再加上你可以手动调整缩进级别：XSL。
var adSaveCreateOverWrite = 2
var Indent = new ActiveXObject("MSXML2.DomDocument");
Indent.async = false;
Indent.resolveExternals = false;
Indent.load("indent.xsl");
var Doc = new ActiveXObject("MSXML2.DomDocument");
Doc.async = false;
Doc.resolveExternals = false;
Doc.load("dirty.xml");
with(new ActiveXObject("ADODB.Stream")){
Charset = "utf-8";
Open();
WriteText(Doc.transformNode(Indent));
SaveToFile("pretty.xml", adSaveCreateOverWrite);
Close();
}
indent.xsl
<?xml version="1.0" encoding="ISO-8859-15"?>
<!-- http://x443.wordpress.com/2011/page/34/ -->
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
<xsl:output method="xml"/>
<xsl:template match="@*">
<xsl:copy/>
</xsl:template>
<xsl:template match="text()">
<xsl:value-of select="normalize-space(.)" />
</xsl:template>
<xsl:template match="*">
<xsl:param name="indent" select="''"/>
<xsl:text>
</xsl:text>
<xsl:value-of select="$indent" />
<xsl:copy>
<xsl:apply-templates select="@*|*|text()">
<xsl:with-param name="indent" select="concat($indent, ' ')"/>
</xsl:apply-templates>
</xsl:copy>
<xsl:if test="count(../*)>0 and ../*[last()]=.">
<xsl:text>
</xsl:text>
<xsl:value-of select="substring($indent,3)" />
</xsl:if>
</xsl:template>
</xsl:stylesheet>
Answer 3:
如果你不想使用XSL，你可以只插入vbcrlfs。 每一个“>”应遵循vbcrlf，当“>”后面的数除。 然后创建一个从该字符串新的XML文件 - 现在它有了新的生产线和缩进。 MSACCESS VBA：
Dim objDom As DOMDocument
Set objDom = CreateObject("MSXML2.DOMDocument")
创建文件与objDom.append，然后用绳子打（我的XML刚刚号）：
ss = objectDom.XML
For i = 1 To Len(ss)
c = Mid(ss, i, 1)
If InStr(1, Mid(ss, i, 1), ">") > 0 Then
a = Asc(Mid(ss, i + 1, 1))
If a < 48 Or a > 57 Then
ss1 = Mid(ss, 1, i)
ss2 = Mid(ss, i + 1, Len(ss))
ss = Mid(ss, 1, i) & vbCrLf & Mid(ss, i + 1, Len(ss))
End If
End If
Next i
objDom.loadXML ss
objDom.Save (file_path)
文章来源: How can I save an MSXML2.DomDocument with indenting? (I think it uses MXXMLWriter)
