[Richedit]einzelne Wörten hervorheben

[Hansa]

Hi,

ich habe hier einen längeren Text. Einzelne Wörter davon müssen direkt auffallen. Mit einem RichEdit müsste das doch gehen, oder ? Aber wie ? Wenn es damit geht, dann ist noch die Frage, ob ein vorhandener Text dazu genutzt werden kann oder nicht.

[omata]

Vielleicht so...

Delphi-Quellcode:

procedure HtmlToRTF(RichEdit:TRichEdit; Html:string);
var RegExpr:TRegExpr;
begin
  RegExpr:=TRegExpr.Create;
  try
    RegExpr.ModifierG:=false;
    RegExpr.Expression:='[b](.*)[/b]';
    RichEdit.SelectAll;
    RichEdit.SelText:=
      '{\rtf1' +
      RegExpr.Replace(Html, '{\\b $1}', true) +
      '}';
  finally
    RegExpr.Free;
  end;
end;

Aufruf...
HtmlToRTF(RichEdit1, '[b]Wichtig:[/b] Ich bin [b]fett[/b] gedruckt.'); Edit: Und hier nochmal eine allgemeinere Lösung:

Delphi-Quellcode:

procedure HtmlToRTF(RichEdit:TRichEdit; Html:string);
type
  TMyResult = record
    HB, HE, R:string;
  end;
const
  cAttribs: array[1..3] of TMyResult = (
    (HB:'[b]'; HE:'[/b]'; R:'\b $1'),
    (HB:'[i]'; HE:'[/i]'; R:'\i $1 '),
    (HB:'<u>'; HE:'</u>'; R:'\ul $1')
  );
var
  RegExpr:TRegExpr;
  i:integer;
  result:string;
begin
  RegExpr:=TRegExpr.Create;
  try
    result:=Html;
    RegExpr.ModifierG:=false;
    for i:=low(cAttribs) to high(cAttribs) do begin
      RegExpr.Expression:=cAttribs[i].HB + '(.*)' + cAttribs[i].HE;
      result:=
        '{\rtf1' +
        RegExpr.Replace(
          result,
          '{' + StringReplace(cAttribs[i].R, '\', '\\', [rfReplaceAll]) + '}',
          true
        ) +
        '}';
    end;
    RichEdit.SelectAll;
    RichEdit.SelText:=result;
  finally
    RegExpr.Free;
  end;
end;

Aufruf...
HtmlToRTF(RichEdit1, 'normal, [b]fett[/b], [i]kursiv[/i], <u>unterstrichen</u>');
RegExpr

Gruss
Thorsten

[semo]

schau dir doch mal die demos an die von borland mitgeliefert wurden.
zu finden unter C:\Program Files (x86)\Borland\Delphi6\Demos\RichEdit (abhängig von deiner Delphi Version)

[marabu]

Hallo,

die Hilfsangebote gehen alle von dem trivialen Fall aus, dass der "längere Text" irgendeine Form von Markup enthält. Ist das denn so - oder liegen die hervorzuhebenden Wörter extern vor?

Freundliche Grüße

[Hansa]

Wieso soll was markiert sein ? Es geht auch nicht um HTML. Man stelle sich einen Text vor. Wird der ausgedruckt, dann soll überall, wo das vorher eingegebene Wort vorkommt genau dieses fett oder sonstwie anders gedruckt werden. Es geht darum, "in der Nähe" dieses Worts mal genauer zu gucken.

[Luckie]

Was ist nun das Problem, das Wort zu finden oder das Wort hervorzuheben? Zu beiden Problemen sollte die Forensuche genug Beiträge finden, die man sich mal angucken könnte.

[s-off]

Marabu meint wohl eher, dass die beiden ersten Lösungen zwingend voraussetzen, dass die hervorzuhebenden Wörter in Deinem Text irgendwie gekennzeichnet sind. Wie das Markup genau aussieht, ist ja erstmal vollkommen egal.

Die Frage, die sich stellt ist doch, wie willst Du die entsprechenden Wörter, die formatiert ausgedruckt werden sollen, erkennen?

Und da gibt es nur zwei Möglichkeiten:

• Kennzeichnung direkt im Text
• externe Kennzeichnung

[Hansa]

Luckie, benutze doch mal die Forensuche für den Fall selber. Habe überall gesucht, nicht nur in DP. Es wird einiges gefunden, aber es passt nicht. Ein Wort muss natürlich zuerst gesucht werden, um es danach anders zu drucken. Herauskommen soll so etwas :

Zitat:

safdffsa gesucht asffds sdf gfdh gfd hf j fjhf jfh gesucht gd sdg f fsgf fg s sg s s fg fg s fgfdgsdfgds gesucht sdgfd hjhgj jh fjh jh jhf hfjjhfj gesucht hgj

Ich hoffe, dass den Satz jetzt jeder versteht.

[omata]

Zitat von Hansa:

Wieso soll was markiert sein ? Es geht auch nicht um HTML. Man stelle sich einen Text vor. Wird der ausgedruckt, dann soll überall, wo das vorher eingegebene Wort vorkommt genau dieses fett oder sonstwie anders gedruckt werden. Es geht darum, "in der Nähe" dieses Worts mal genauer zu gucken.

Sorry, das sich mir deine Gedankenwelt nicht gleich so erschlossen hat.
HTML war nur ein Vorschlag, hätte ja sein können das du die markierten Textstellen gespeichert ablegen wolltest.

Ich hatte das etwas anders verstanden, trotzdem kann man aus deinem Text schliessen, das du das nichtmal ausprobiert hat.

Naja egal, hier nochmal ein neuer Vorschlag...

Delphi-Quellcode:

procedure WordHighlighting(RichEdit:TRichEdit;
                           Text:string; Words:array of string);
var
  RegExpr:TRegExpr;
  i:integer;
  result:string;
begin
  RegExpr:=TRegExpr.Create;
  try
    result:=Text;
    RegExpr.ModifierG:=false;
    for i:=low(Words) to high(Words) do begin
      RegExpr.Expression:=Words[i];
      result:=
        '{\rtf1' +
        RegExpr.Replace(
          result,
          '{\\b ' + Words[i] + '}',
          false
        ) +
        '}';
    end;
    RichEdit.SelectAll;
    RichEdit.SelText:=result;
  finally
    RegExpr.Free;
  end;
end;

procedure TForm.ButtonClick(Sender: TObject);
var Words:array of string;
begin
  setlength(Words, 2);
  Words[0]:='hervorgehobender';
  Words[1]:='wichtig';
  WordHighlighting(
    RichEdit1,
    'Dies ist ein hervorgehobender Text mit wichtigen Wörtern.',
    Words
  );
end;

[Luckie]

Zitat von Hansa:

Luckie, benutze doch mal die Forensuche für den Fall selber. Habe überall gesucht, nicht nur in DP. Es wird einiges gefunden, aber es passt nicht. Ein Wort muss natürlich zuerst gesucht werden, um es danach anders zu drucken. Herauskommen soll so etwas :

Zitat:

safdffsa gesucht asffds sdf gfdh gfd hf j fjhf jfh gesucht gd sdg f fsgf fg s sg s s fg fg s fgfdgsdfgds gesucht sdgfd hjhgj jh fjh jh jhf hfjjhfj gesucht hgj

Ich hoffe, dass den Satz jetzt jeder versteht.

Das es keinen Thread gibt, der genau eine passende Lösung für den Problem hat, kann schon sein. Aber es sollte sich was finden lassen, wie man mit pos und posex die gewünschten Wörter findet und wie man mit SelText und SelAttributes die Wörter fett macht. Hinzu kommt die Delphi Hilf eund ie Demos von Borland / Codegear, wo es einen vollständig impelenmtierten RTF-Texteditor hat.