Comment reformater le XML par programme?

Question

J'ai un document XML sur l'entrée qui est terriblement formaté (il est Delphi fichier de projet si quelqu'un se soucie) - indenter incompatibles, lignes vides, chaînes de nœuds Regroupés:

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


</Excluded_Packages> 

Je veux reformater en quelque chose de bien . Quelle est la manière la plus simple de le faire par programmation, avec Win32/COM? Si MSXML, comment je vais faire?

J'aimerais aussi pouvoir spécifier l'unité d'indentation (onglet/plusieurs espaces).

J'ai essayé d'utiliser wrapper MSXML de TXMLDocument de Delphi et il ne supprime en effet les lignes vides et les nœuds des tabulations, mais il ne lignes fractionne pas comme celui-ci:

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

Answer 1

Je l'ai testé la fonction FormatXMLData dans un delphi fichier de projet et fonctionne bien, indent toutes les lignes correctement.

vérifiez ce 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;