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

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

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

Wunderbar, vielen Dank

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