RTF to plain text (without formats)

[GuenterS]

Das habe ich probiert (mit true and false), aber das hat auch nichts gebracht.

[Poelser]

Das habe ich mal schnell in leeres Projekt eingebaut:

Delphi-Quellcode:

function RTF2PlainText(s: String): string;
var
  RichEdit: TRichEdit;
begin
  RichEdit := TRichEdit.CreateParented(HWND(-3));
  try
    with RichEdit do
    begin
      SelectAll;
      SelText := s;
      Result := Text;
    end;
  finally
    RichEdit.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  rtf: string;
begin
  rtf := '{\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl{\f0\fnil Arial;}{\f1\fnil\fcharset0 Arial;}}\viewkind4\uc1\pard\f0\fs18 Ein Testtext\par \f0\par }';
  ShowMessage(RTF2PlainText(rtf));
end;

Es funktioniert anstandslos. Ich habe das Gefühl, dass du entweder kein "richtiges" RTF hast, oder deine RichEd32.dll in deinem Windows macht da Mist. :?

[marabu]

Hallo Günter,

schau mal hier: Plaintext aus RTF auslesen

Freundliche Grüße

[xaromz]

Hallo,

irgendwo in den Tiefen meines MWKEdit habe ich einen RTF-Parser versteckt. Den kannst Du Dir ja mal anschauen.

Gruß
xaromz