RTF to plain text (without formats)

[GuenterS]

Hallo,

ich habe in einem Datenbankfeld den Inhalt eines RichText Feldes mit all den Formatierungsanweisungen. Gibt es eine einfache Möglichkeit diese komplett zu entfernen und damit nur den unformatierten Text zu bekommen?

[mkinzler]

In TRichEdit gibt es dafür die Eigenschaft .PlainText;

[GuenterS]

Hm, das habe ich schon versucht, bin aber schon daran gescheitert den Text überhaupt in die TRichEdit Komponente zu bekommen.

Ich verwende übrigens Delphi5 Enterprise ... die Turbo Delphi Professional Version habe ich nur privat.

Ich habs so probiert:

Delphi-Quellcode:

var
  lText, lText2: string;
begin
   ...
   lText := GetText(); //Hier ist der RTF Formatierte Text drinnen
   ...

   with TRichEdit.Create(nil) do
   try
      Parent := Self;
      Lines.Text := lText; //<--- Das will er so nicht
      PlainText := true;
      lText2 := Lines.Text;
   finally
      Free;
   end;
end;

[mkinzler]

-was meinst du mit will er nicht?
TDBRichEdit ?

[GuenterS]

Nein ich meinte schon TRichEdit.

Es kommt zur Laufzeit eine Meldung, dass man so keine lines hinzufügen kann. Kompilierbar ist es aber.

[mkinzler]

Hast du mal die db-aware Variante getestet?

[Poelser]

Diese Funktion mal probieren:

Delphi-Quellcode:

function RTF2PlainText(s: Integer): 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;

[GuenterS]

@MKinzler:

Ich bin mir nicht ganz sicher, man zum Entfernen der Rich Text Formatierungen jetzt eine Datenbank dazumachen muss... bzw. sehe ich jetzt den Sinn dahinter nicht, was mir die Datenbankgebunden Version der RichText Komponente helfen soll.



@Poelser:
Deine Funktion hat leider nur den Nachteil, dass im Ergebnis immer noch die RTF Formatierung enthalten ist.

[mkinzler]

Zitat:

Zitat von GuenterS

@MKKinzler:

Ich bin mir nicht ganz sicher, man zum Entfernen der Rich Text Formatierungen jetzt eine Datenbank dazumachen muss... bzw. sehe ich jetzt den Sinn dahinter nicht, was mir die Datenbankgebunden Version der RichText Komponente helfen soll.

Zitat:

Ich habe in einem Datenbankfeld...

[Poelser]

Zitat:

Zitat von GuenterS

@Poelser:
Deine Funktion hat leider nur den Nachteil, dass im Ergebnis immer noch die RTF Formatierung enthalten ist.

War ja auch aus dem Bauch heraus. Probier mal vor Result := noch ein PlainText := True.

[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