Buen código para formatear una cadena xml

Question

¿Alguien tiene una función preparada que tomará una cadena XML y devolverá una cadena correctamente sangrada?

por ejemplo

<XML><TAG1>A</TAG1><TAG2><Tag3></Tag3></TAG2></XML> 

y volverá Cadena formato agradable en retorno después de insertar saltos de línea y las pestañas o espacios?

Answer 1

El RTL tiene FormatXMLData en XMLDoc.pas que acepta y devuelve cadenas.

Answer 2

Usando OmniXML:

program TestIndentXML; 

{$APPTYPE CONSOLE} 

uses 
    SysUtils, 
    OmniXML, 
    OmniXMLUtils; 

function IndentXML(const xml: string): string; 
var 
    xmlDoc: IXMLDocument; 
begin 
    Result := ''; 
    xmlDoc := CreateXMLDoc; 
    if not XMLLoadFromAnsiString(xmlDoc, xml) then 
    Exit; 
    Result := XMLSaveToAnsiString(xmlDoc, ofIndent); 
end; 

begin 
    Writeln(IndentXML('<XML><TAG1>A</TAG1><TAG2><Tag3></Tag3></TAG2></XML>')); 
    Readln; 
end. 

El fragmento de código anterior es liberada al dominio público.

Answer 3

mediante XSLT ...

<?xml version="1.0" encoding="UTF-8"?> 
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0"> 
    <xsl:output method="xml" indent="yes" /> 
    <xsl:template match="/"> 
     <xsl:copy-of select="."/> 
    </xsl:template> 
</xsl:stylesheet> 

Answer 4

El objeto DOM XML Document construir en Delphi tiene una opción de formato bastante. Simplemente cargue su XML en él y guárdelo de nuevo, y si tiene esa opción configurada, todo resulta muy bonito.

Lo buscaré y actualizaré esta respuesta.

Answer 5

He usado Tidy con libtidy de Michael Elsdörfer. Le da un montón de opciones y puede configurarlas externamente a la aplicación. También aplicable a HTML.

Este es un código muy difícil que he usado. Hazlo como quieras.

function TForm1.DoTidy(const Source: string): string; 
var 
    Tidy    : TLibTidy; 
begin 
    if not TidyGlobal.LoadTidyLibrary('libtidy.dll') then 
    begin 
    // Application.MessageBox('TidyLib is not available.', 'Error', 16); 
    // exit; 
    raise Exception.Create('Cannot load TidyLib.dll'); 
    end; 
    Tidy := TLibTidy.Create(Self); 
    try 
    Tidy.LoadConfigFile(ExtractFilePath(Application.ExeName) + 
     'tidyconfig.txt'); 
    // Tidy.Configuration.IndentContent := tsYes; 
    // Tidy.Configuration.IndentSpaces := 5; 
    // Tidy.Configuration.UpperCaseTags := False; 
    // Tidy.Configuration.NumEntities := True; 
    // Tidy.Configuration.AccessibilityCheckLevel := 2; 
    // Tidy.Configuration.InlineTags := 'foo,bar'; 
    // Tidy.Configuration.XmlDecl := True; 
    // Tidy.Configuration.XmlTags := True; 
    // Tidy.Configuration.CharEncoding := TidyUTF8; 
    // Tidy.Configuration.WrapLen := 0; 
    // Tidy.SaveConfigFile('tidyconfig.txt'); 
    Tidy.ParseString(Source); 
    Result := Tidy.RunDiagnosticsAndRepair; 
    finally 
    Tidy.Free; 
    end; 
end;