[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...

zusammenfalten · markieren

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:

zusammenfalten · markieren

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.

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...

zusammenfalten · markieren

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 Hier im Forum suchen

pos und

posex die gewünschten Wörter findet und wie man mit Hier im Forum suchen

SelText und Hier im Forum suchen

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.

[Richedit]einzelne Wörten hervorheben

[Richedit]einzelne Wörten hervorheben

Re: [Richedit]einzelne Wörten hervorheben

Re: [Richedit]einzelne Wörten hervorheben

Re: [Richedit]einzelne Wörten hervorheben

Re: [Richedit]einzelne Wörten hervorheben

Re: [Richedit]einzelne Wörten hervorheben

Re: [Richedit]einzelne Wörten hervorheben

Re: [Richedit]einzelne Wörten hervorheben

Re: [Richedit]einzelne Wörten hervorheben

Re: [Richedit]einzelne Wörten hervorheben

Forumregeln

Hansa Registriert seit: 9. Jun 2002 Ort: Saarland 7.554 Beiträge Delphi 8 Professional	#1 [Richedit]einzelne Wörten hervorheben 17. Jan 2008, 06:17 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. Gruß Hansa
	Zitat

semo Registriert seit: 24. Apr 2004 755 Beiträge Delphi 2010 Professional	#3 Re: [Richedit]einzelne Wörten hervorheben 17. Jan 2008, 07:28 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)
	Zitat

marabu Registriert seit: 6. Apr 2005 10.109 Beiträge	#4 Re: [Richedit]einzelne Wörten hervorheben 17. Jan 2008, 09:51 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
	Zitat

Hansa Registriert seit: 9. Jun 2002 Ort: Saarland 7.554 Beiträge Delphi 8 Professional	#5 Re: [Richedit]einzelne Wörten hervorheben 17. Jan 2008, 10:04 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. Gruß Hansa
	Zitat

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#6 Re: [Richedit]einzelne Wörten hervorheben 17. Jan 2008, 10:07 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. Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat