Ersatz für StringReplace

**sakura**

ReplaceString ist sehr mächtig, aber aufgrund seiner Optionen sehr langsam, vor allem, wenn die Strings sehr lang werden. Die folgende Funktion ist zwar case-sensitive, aber wenn das kein Problem darstellt, ist diese zu empfehlen, da sie ca. 40-80% Zeitersparniss mit sich bringt. Je größer der zu durchsuchende String und je mehr Ersetzungen stattfinden, destso langsamer wird Delphis StringReplace.

Auch folgende Lösung hat noch viel Optimierungsbedarf, aber als Schnellschuss ist diese alle Male besser als das Original

zusammenfalten · markieren

Delphi-Quellcode:

			function ConvertCharacters(aString, FromStr, ToStr: AnsiString): AnsiString;

var

   I: Integer;

begin

  // check whether string are equal

   if FromStr = ToStr then

   begin

      Result := aString;

      Exit;

   end;

   Result := '';

  // find fromstr

   I := Pos(FromStr, aString);

   while I > 0 do

   begin

    // copy all characters prior fromstr

      if I > 1 then

         Result := Result + Copy(aString, 1, I - 1);

    // append tostr

      Result := Result + ToStr;

    // delete all until after fromstr

      Delete(aString, 1, I + Length(FromStr) - 1);

    // find next fromstr

      I := Pos(FromStr, aString);

   end;

   Result := Result + aString;

end;

...

**toms**

Und

hier noch schnellere...

zusammenfalten · markieren

Delphi-Quellcode:

			function FastAnsiReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;

procedure FastCharMove(const Source; var Dest; Count : Integer);

function FastCharPos(const aSource : string; const C: Char; StartPos : Integer): Integer;

function FastCharPosNoCase(const aSource : string; C: Char; StartPos : Integer): Integer;

function FastPos(const aSourceString, aFindString : string; const aSourceLen, aFindLen, StartPos : Integer) : Integer;

function FastPosNoCase(const aSourceString, aFindString : string; const aSourceLen, aFindLen, StartPos : Integer) : Integer;

function FastPosBack(const aSourceString, aFindString : string; const aSourceLen, aFindLen, StartPos : Integer) : Integer;

function FastPosBackNoCase(const aSourceString, aFindString : string; const aSourceLen, aFindLen, StartPos : Integer) : Integer;

function FastReplace(const aSourceString : string; const aFindString, aReplaceString : string;

  CaseSensitive : Boolean = False) : string;

function FastTagReplace(const SourceString, TagStart, TagEnd: string;

  FastTagReplaceProc: TFastTagReplaceProc; const UserData: Integer): string;

function SmartPos(const SearchStr,SourceStr : string;

                  const CaseSensitive : Boolean = TRUE;

                  const StartPos : Integer = 1;

                  const ForwardSearch : Boolean = TRUE) : Integer;

Ersatz für StringReplace

Ersatz für StringReplace

Forumregeln