Wie man XML programmatisch umformatiert?

Question

Ich habe ein XML-Dokument auf Eingabe, die furchtbar formatiert ist (es ist Delphi-Projektdatei, wenn jemand interessiert) - inkonsistente Einrückung, leere Zeilen, Knotenstrings zusammen:

<BorlandProject><Delphi.Personality><Parameters><Parameters Name="HostApplication">C:\Some\Path\Filename.exe</Parameters> <!--etc--> <Excluded_Packages> 


</Excluded_Packages> 

Ich möchte es in etwas nettes neu formatieren. Was ist der einfachste Weg, das programmatisch mit Win32/COM zu tun? Wenn MSXML, wie gehe ich vor?

Ich möchte auch die Einrückungseinheit angeben können (Tab/mehrere Leerzeichen).

Ich habe versucht, Delphi MSXML Wrapper TXmlDocument und es tatsächlich die leeren Zeilen und Einzug Knoten mit Tabs, aber es teilt keine Zeilen wie diese:

<BorlandProject><Delphi.Personality><Parameters><Parameters Name="HostApplication">C:\Some\Path\Filename.exe</Parameters> <!--etc--> <Excluded_Packages> 

Answer 1

ich die FormatXMLData Funktion in einem delphi getestet Projektdatei und funktioniert ok, alle Zeilen korrekt einrücken.

überprüfen Sie diesen Code.

uses 
XMLIntf, 
XMLDoc; 

Procedure FormatXMLFile(const XmlFile:string); 
var 
    oXml : IXMLDocument; 
begin 
    oXml := TXMLDocument.Create(nil); 
    try 
    oXml.LoadFromFile(XmlFile); 
    oXml.XML.Text:=xmlDoc.FormatXMLData(oXml.XML.Text); 
    oXml.Active := true; 
    oXml.SaveToFile(XmlFile); 
    finally 
    oXml := nil; 
    end; 
end;