schnelleres StringReplace und MultiStringReplace

[youuu]

Hi, ich verwende deine Stringreplace Routine, allerdings erhalte ich einen Fehler hier:

Delphi-Quellcode:

  Function StringReplaceX(Const S: String; Const OldPattern, NewPattern: Array of String; Flags: TReplaceFlags = []): String;
    Function GetNewPatt(i: Integer): String;
      Begin
        If i < Length(NewPattern) Then Result := NewPattern[i]
        Else If Length(NewPattern) = 1 Then Result := NewPattern[1]
        Else Result := '';
      End;

Fehlermeldung: Erste Gelegenheit für Exception bei $75F89617. Exception-Klasse EAccessViolation mit Meldung 'Zugriffsverletzung bei Adresse 75F89F11 in Modul 'KERNELBASE.dll'. Lesen von Adresse 00C81000'.

Wenn ich die Exception abfange, rennt er mit OutOfMemory

[mkinzler]

In welcher Zeile?
Was hast du als OldPattern bzw. NewPattern übergeben?

[youuu]

   Else If Length(NewPattern) = 1 Then Result := NewPattern[1] Ist rot markiert, was genau übergeben wurde, werde ich nun nach schauen

[himitsu]

joar, da stimmt was nicht.
tausch mal die 1 gegen eine 0 aus Result := NewPattern[0] [edit]
oder besser so ... ich denk mal das wäre logischer, wenn der Letzte, anstatt der erste Eintrag genutzt würde.

Delphi-Quellcode:

Function GetNewPatt(i: Integer): String;
  Begin
    If i < Length(NewPattern) Then Result := NewPattern[i]
    Else If Length(NewPattern) > 0 Then Result := NewPattern[High(NewPattern)]
    Else Result := '';
  End;

ich tausche die Anhänge auch gleich aus

[himitsu]

Im Post #1 wurde noch eine neuer Abschnitt eingefügt ... siehe "Ein Vorteil der gemeinsamen Ersetzung:"
'Old1' => '<New1 Old2>'
'Old2' => '<New2 Old1>'

Text old1 old2 Old1 Old2 old1 old2 Old1 Old2 Text
Text old1 old2 <New1 Old2> <New2 Old1> old1 old2 Old1 Old2 Text
Text old1 old2 <New1 <New2 Old1>> Old2 old1 old2 Old1 Old2 Text

[GPRSNerd]

Hi himitsu,

das neue Flag funktioniert einwandfrei! Jetzt ist es ein vollwertiger Ersatz für das originale StringReplace.

Danke,
Stefan

[GPRSNerd]

Hallo himitsu,

entschuldige, dass ich diesen etwas älteren Fred nochmal aufwärmen muss, bin aber auf einen Fehler/Exception gestoßen, die ich einfach nicht weg kriege.

Es wird immer eine Exception geschmissen, wenn im Suchstring das zu ersetzende Pattern ganz am Ende steht:

Erste Gelegenheit für Exception bei $75669617. Exception-Klasse ERangeError mit Meldung 'Fehler bei Bereichsprüfung'

in der Zeile: Move(S[i], Result[i2], i4 * SizeOf(Char)); Hier der Test-Code zum Nachvollziehen:

Delphi-Quellcode:

  dummy:='Text Old';
  ergebnis := StrRep.StringReplace(dummy, 'Old', 'New', [rfReplaceAll]);
  Assert(ergebnis='Text New');

Steht der Text am Anfang oder irgendwo in der Mitte (es folgt also noch mindestens ein Buchstabe), so läuft die Funktion einwandfrei.

Vielleicht kannst du mich/uns erhellen...

Danke,
Stefan

[himitsu]

Hmmm, hast du mal einen TestString parat?
Mir ist grade aufgefallen, daß in meinem Testcode das Pattern auch schon am Ende des Strings liegt.

und ebenso hier tritt kein Fehler auf.

Delphi-Quellcode:

S := '123Wort';
S2 := StringReplace(S, 'Wort', 'xxx', [rfReplaceAll]);

[GPRSNerd]

Steht doch oben als Delphi Code!

Ich benutze Delphi 2010 und du?

[GPRSNerd]

Dein Beispiel knallt bei mir auch!

exception number : 1
exception class : ERangeError
exception message : Range check error.

main thread ($17c4):
005376bc +03dc STGCommonUnitTest.exe StrRep 132 +37 StringReplace