StringReplace "String" durch "[b]String[/b]" ersetzen

[QStorm]

Hallo,

Ich möchte ein Wort innerhalb einer Zeichenkette mit bestimmten Styleattributen umgeben. Dabei soll die Groß- und Kleinschreibung auf JEDEN FALL erhalten bleiben.

Beispiel:Wort: ich
Zeichenkette: Ich wusste, dass ich in diesem Punkt falsch lag.
Ersetzen durch: Ich wusste, dass ich in diesem Punkt falsch lag.

Momentan mache ich das mit StringReplace:

Code:

StringReplace(Caption, Highlight, ('[b]' + Highlight + '[/b]'), [rfReplaceAll, rfIgnoreCase])

Leider geht damit die ursprüngliche Groß- und Kleinschreibung verloren.

Fällt euch dafür eine geeignete Lösung ein? Gibt es vielleicht schon eine passende Methode dafür?

Vielen Dank im voraus.

/Steven

[bernau]

Du verwendetst "rfIgnoreCase".

Nimm diesen Parameter weg.

Allerdings musst du dann die funktion einmal mit "Ich" und einmal mit "ich" durchführen.

[mkinzler]

Schalt mal die Beachtung der Groß-/Kleinschreibung an

[BUG]

Dein Problem ist das folgende: StringReplace hat keine Möglichkeit, das gefundene Wort mit in die Ersetzung einzubeziehen.

Ich sehe 3 Lösungsvarianten:

1. Case-Sensitives String-Replace mit möglichen Groß-/Kleinschreibungsvarianten.
   Das sind potenziell exponentiell viele, lassen sich sich vielleicht aber auf häufige Varianten eingrenzen: alles groß, nur Wortanfang groß, alles klein.
2. Benutzung einer ordentlichen Bibliothek für reguläre Ausdrucke mit Unterstützung für Gruppen
3. Selber programmieren.

1. ist wahlweise ineffizient oder ungenau, aber schnell implementiert.
2. bedeutet eine zusätzliche Bibliothek, ist aber effizient und einfach.
3. bedeutet Arbeit, ist aber ne saubere Lösung und stand-alone.

[QStorm]

Zitat:

Zitat von mkinzler (Beitrag 1184842)

Schalt mal die Beachtung der Groß-/Kleinschreibung an

Dann würde er bei "ich" jedoch nicht "Ich" ersetzen.

[Popov]

@QStorm

Ich hab lange mit Delphi 3 programmiert und das hatte kein StringReplace, also habe ich es mir selber programmiert. So eine Funktion kann man an seine Ansprüche modifizieren. Wenn du Interesse hast, sag Bescheid.

[Bummi]

Delphi-Quellcode:

Function Capsulate(From:String;const  find,l,r:String):String;
var
 F,s:String;
 i,lf:Integer;
begin
   f := Lowercase(From);
   s := Lowercase(find);
   i := pos(s,f);
   while i>0 do
      begin
        Result := Result + Copy(From,1,i-1) +l + Copy(From,i,Length(find)) + r;
        From := Copy(From,i + length(find),length(From));
        f := Lowercase(From);
        i := pos(s,f);
      end;
   REsult := Result + From;
end;


procedure TForm3.Button1Click(Sender: TObject);
begin
    memo2.Text := Capsulate(memo1.Text,'ich','[b]','[/b]')
end;

allerdings wird nicht auch zu nicht, da müsstest Du noch eine Prüfung einbauen ...

[QStorm]

Zitat:

Zitat von Bummi (Beitrag 1184851)

Delphi-Quellcode:

Function Capsulate(From:String;const  find,l,r:String):String;
var
 F,s:String;
 i,lf:Integer;
begin
   f := Lowercase(From);
   s := Lowercase(find);
   i := pos(s,f);
   while i>0 do
      begin
        Result := Result + Copy(From,1,i-1) +l + Copy(From,i,Length(find)) + r;
        From := Copy(From,i + length(find),length(From));
        f := Lowercase(From);
        i := pos(s,f);
      end;
   REsult := Result + From;
end;


procedure TForm3.Button1Click(Sender: TObject);
begin
    memo2.Text := Capsulate(memo1.Text,'ich','[b]','[/b]')
end;

allerdings wird nicht auch zu nicht, da müsstest Du noch eine Prüfung einbauen ...

Wunderbar, vielen Dank :)

P.S.: nicht auch zu nicht ist gewünscht.