Inno Setup：使用缩进保存 XML 文档

Question

我正在尝试向 Inno Setup 中的 XML 文件添加一个新节点。节点添加正确但下一个标签之前的换行符被删除或没有添加换行符。这是我添加节点的代码：

NewNode := XMLDoc.createElement('Test');
XMLDoc.setProperty('SelectionLanguage', 'XPath');
RootNode := XMLDoc.selectSingleNode('//Configuration/AppSettings');
RootNode.appendChild (NewNode);
RootNode.lastChild.text :='New Node';

这是我的 XML 文件：

<Configuration>
    <AppSettings Name="General Settings">
        <StartTime/>
        <StopTime/>
        <TimeBetweenTests>30</TimeBetweenTests>
        <Port>600</Port>
        <Test>New Node</Test></AppSettings>
</Configuration>

我期待标签

</AppSettings>

保留在添加新节点之前的换行符中。我怎样才能添加一个换行符来使格式更具可读性？

Answer 1

您可以使用 MXXMLWriter class 进行格式化：

procedure SaveXmlDocumentWithIndent(XmlDocument: Variant; FileName: string);
var
  Writer: Variant;
  Reader: Variant;
  FSO: Variant;
  TextStream: Variant;
begin
  Writer := CreateOleObject('Msxml2.MXXMLWriter');
  Reader := CreateOleObject('MSXML2.SAXXMLReader');
  FSO := CreateOleObject('Scripting.FileSystemObject');
  TextStream := FSO.CreateTextFile(FileName, True);
  Writer.Indent := True;
  Writer.OmitXMLDeclaration := True;
  Reader.ContentHandler := Writer;
  Reader.Parse(XmlDocument);
  TextStream.Write(Writer.Output);
  TextStream.Close();
end;

致谢：@cheeso 对 How can I save an MSXML2.DomDocument with indenting? (I think it uses MXXMLWriter) 的回答。
我刚刚用 Pascal 脚本重新实现了他的 JavaScript 代码。

以上解决方案将根据 MXXMLWriter class.

的喜好重新格式化完整的 XML 文档

如果您想保留您选择的某种格式，您必须通过添加所需的缩进来明确实现它。

要在添加的节点后添加新行 (#13#10 = CRLF) 并使用制表符 (#9) 缩进结束父标签，请使用：

RootNode.appendChild(XMLDoc.createTextNode(#13#10#9));

Inno Setup：使用缩进保存 XML 文档

Inno Setup: Save XML document with indentation

xml

inno-setup

pascalscript