Come posso salvare un MSXML2.DomDocument con indentazione? (Penso che usi MXXMLWriter)

Question

Ho un'istanza di MSXML2.DomDocument.

I wave per salvarlo, con indentazione.

Questo codice funziona, ma non si trattino:

var dom = new ActiveXObject("MSXML2.DomDocument"); 
// fiddle with dom here 
dom.save(filename); 

credo di poter utilizzare un oggetto MXXMLWriter per iniettare rientro.

Come?

Answer 1

Questo deve farlo.

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(); 
} 

usare in questo modo:

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); 
} 

io non riuscivo a capire come regolare il livello di rientro. Indacca sempre con una scheda .

Answer 2

C'è un altro modo per aumentare le uscite xml, inoltre è possibile regolare manualmente il livello di rientro: 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>&#xa;</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>&#xa;</xsl:text> 
     <xsl:value-of select="substring($indent,3)" /> 
    </xsl:if> 
    </xsl:template> 

</xsl:stylesheet> 

Answer 3

Se non si desidera utilizzare xsl, si può solo inserire vbcrlfs. Ogni ">" dovrebbe seguire vbcrlf, tranne quando ">" è seguito da un numero. Quindi crea un nuovo file xml da quella stringa - ora ha nuove linee e rientri. vba msaccess:

Dim objDom As DOMDocument 
Set objDom = CreateObject("MSXML2.DOMDocument") 

Crea documento con objDom.append, poi giocare con corda (il mio xml aveva solo numeri):

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)