Sucht in Gesamtstring nach AltString und ersetzt ihn mit Neu

[Nalincah]

Delphi-Quellcode:

uses sysutils, Windows;

function ErsetzeString(AltString:String; NeuString:String; GesamtString:String):String;
var
  PosAlt,LengthAlt:Integer;
begin
  while not pos(AltString,GesamtString) <> -1 do
  begin
    PosAlt := pos(AltString,GesamtString);
    LengthAlt := Length(AltString);
    Delete(GesamtString,PosAlt,LengthAlt);
    Insert(NeuString,GesamtString,PosAlt);
  end;
  Result := GesamtString;
end;

[Sanchez]

oder:

Delphi-Quellcode:

  neuerstring := StringReplace(GesamtString, altstring, neustring, [rfReplaceAll]);

[Nalincah]

WAHH..Das passiert wenn man das Rad neu erfinden will...VERDAMMT!!!

[Sanchez]

... der Wille zählt :zwinker:

[mirage228]

Das Problem ist, das es bei Leuten mit z.B. Delphi 3, wie mir, kein(!) StringReplace gibt ;-)

mfG
mirage228

[Tom]

Wenn man das Rad neu erfindet, sollte man es richtig tun. Aus der Delphi-Hilfe zu Pos:

Zitat:

Wird der Teil-String gefunden, gibt Pos den Integer-Index des ersten Zeichens von Substr in S zurück. Die Groß/Kleinschreibung wird von Pos nicht berücksichtigt. Ist Substr nicht vorhanden, wird der Wert Null zurückgegeben.

Was soll das -1 im obigen Source?

[Nalincah]

Jupp, stimmt...Hab mich schon gewundert warum das manchmal spinnt

[Nalincah]

StringReplace hat aber einen kleine Schönheitsfehler:

Der String wird nur einmal ersetzt..Wenn AltString später nochmal vorhanden ist, wird da nichts ersetzt

[Tom]

Du weist, dass Dein Source spinnt und veröffentlichst diesen in der Code-Libary? :roll:

[Sanchez]

mit rfReplaceAll werden alle vorkommen ersetzt. Hier mal ein Auszug aus der OH

Zitat:

type
TReplaceFlags = set of (rfReplaceAll, rfIgnoreCase);
function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;

Beschreibung

Mit StringReplace ersetzen Sie in dem angegebenen String den im Parameter OldPattern festgelegten Sub-String mit dem im Parameter NewPattern übergebenen neuen Sub-String. StringReplace nimmt an, daß der String Multibyte-Zeichen enthalten kann.

Wenn im Parameter Flags nicht rfReplaceAll enthalten ist, wird nur das erste Vorkommen von OldPattern im String S ersetzt. Andernfalls werden alle Instanzen von OldPattern durch NewPattern ersetzt.

Wenn der Parameter Flags rfIgnoreCase enthält, wird die Groß-/Kleinschreibung nicht berücksichtigt.

[Nalincah]

Weil ich dachte, ich hätte das ausgemerzt

[Tom]

Zitat:

Zitat von General2003

StringReplace hat aber einen kleine Schönheitsfehler:

Der String wird nur einmal ersetzt..Wenn AltString später nochmal vorhanden ist, wird da nichts ersetzt

Hast Du keine Delphi-Hilfe?

Zitat:

Wenn im Parameter Flags nicht rfReplaceAll enthalten ist, wird nur das erste Vorkommen von OldPattern im String S ersetzt. Andernfalls werden alle Instanzen von OldPattern durch NewPattern ersetzt.

[Alexander]

StringReplace ist allerdings aufgrund seiner Möglichkeiten recht langsam.

[Nalincah]

Besteht also die Chance das meine Replace-Funktion in die CL kommt? Nachdem ich sie ausgebessert habe.... :coder:

[roderich]

Zitat:

Besteht also die Chance das meine Replace-Funktion in die CL kommt? Nachdem ich sie ausgebessert habe....

ich vermute frühstestens dann, wenn du die Endlos-Schleife beseitigt hast, falls AltString = NeuString.

Roderich

[Nalincah]

Das hab ich vorhin auch schon bemerkt und ne lösung is inner mache

[sakura]

Wenn Du eine Lösung hast, bitte noch einmal neu in die CodeLib posten ;-)

...:cat:...

[Luckie]

Wie wäre es hiermit: http://www.delphi-forum.de/viewtopic.php?t=5709 ?