How do I add whitespace/formatting to XML created in vbscript?

问题

I'm using vbscript to write form data to an XML file:

    Set objRecord = objDom.createElement("story")
    objRoot.appendChild objRecord


    Set objField = objDom.createElement("first")
    objField.Text = Request.Form("fName")
    objRecord.appendChild objField

which works, but the output has no formatting like you would expect from an XML file:

    <story><first>Jennifer</first></story><story><first>David</first></story><story><first>Austin</first></story><story><first>Steve</first></story>

I'm trying to achieve:

    <story>
        <first>Jennifer</first>
    </story>
    <story>
        <first>David</first>
    </story>

Thanks for any insight

回答1:

Oleg says You can pretty print an existing XML file using Javascript this way:

  var reader = new ActiveXObject("Msxml2.SAXXMLReader.4.0");
  var writer = new ActiveXObject("Msxml2.MXXMLWriter.4.0");        
  writer.indent = true;
  writer.standalone = true;
  reader.contentHandler = writer;            
  reader.putProperty("http://xml.org/sax/properties/lexical-handler", writer);
  reader.parseURL("source.xml");

That should be pretty easy to translate to VBScript.

来源：https://stackoverflow.com/questions/5883655/how-do-i-add-whitespace-formatting-to-xml-created-in-vbscript