Хороший кусок кода для форматирования строки XML - PullRequest
Новая
       27

Хороший кусок кода для форматирования строки XML

15 голосов
/ 24 октября 2008

Кто-нибудь получил готовую функцию, которая будет принимать строку XML и возвращать строку с правильным отступом?

например 

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

и будет возвращать красиво отформатированную строку в ответ после вставки переносов строк и табуляции или пробелов?

Ответы [ 5 ]

16 голосов
/ 25 октября 2008

RTL имеет FormatXMLData в XMLDoc.pas, который принимает и возвращает строки.

10 голосов
/ 24 октября 2008

Использование 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.

Приведенный выше фрагмент кода передан в общественное достояние.

4 голосов
/ 30 октября 2008

Я использовал Tidy с libtidy от Michael Elsdörfer. Это дает вам кучу вариантов, и вы можете настроить их внешне для приложения. Также применимо к HTML.

Это очень грубый код, который я использовал. Делай с этим, как пожелаешь. 

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;
4 голосов
/ 24 октября 2008

Использование 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>
1 голос
/ 24 октября 2008

Сборка объекта XML Document DOM в Delphi имеет привлекательную опцию форматирования. Вы просто загружаете в него свой XML-файл и сохраняете его обратно, и если у вас установлен этот параметр, то все становится красиво.

Я посмотрю и обновлю этот ответ.

...