Nach ein bischen suchen hab ich heraus gefunden woran es lag. Und zwar daran das ich die Funktion CompareMem aufgerufen hab. Wie im vorhergehenden post bereits geschrieben hatte ich vermutet das meine Funktion schneller ist weil die Funktionsaufrufe von PosEx weg fallen. Durch den Aufruf von CompareMem hab ich aber eben Funktionsaufrufe eingebaut. Nachdem jetzt diese Funktionsaufrufe auch noch weg sind (quelltext direkt eingebaut) ist das ganze fast doppelt so schnell wie die PosEx-Variante (zuvor war die PosEx-Variante ca. doppelt so schnell).
Und hier jetzt das optimierte Prachtstück:
Delphi-Quellcode:
function GetPosNumX(const ASubStr, AFullStr: String; AFoundCnt: Word): Integer;
var LFoundCnt : Word;
LGiveback : Integer;
LCompCnt,
LMax,
LPos,
LSubLen : Integer;
LPtr1,
LPtr2 : PChar;
begin
LGiveback := 0;
LFoundCnt := 0;
LSubLen := Length(ASubStr);
LMax := Length(AFullStr) - LSubLen + 2;
LPtr1 := PChar(AFullStr);
LPtr2 := PChar(ASubStr);
for LPos := 0 to LMax do
begin
LCompCnt := 0;
while (LCompCnt < LSubLen) and (LPtr1[LCompCnt] = LPtr2[LCompCnt]) do
inc(LCompCnt);
if LCompCnt = LSubLen then
begin
inc(LFoundCnt);
if LFoundCnt = AFoundCnt then
begin
LGiveback := LPos + 1;
Break;
end;
end;
inc(Cardinal(LPtr1));
end;
result := LGiveback;
end;
Anzumerken ist natürlich das diese Funktion nur das Xte Vorkommen sucht. Das ersetzen musst du dann natürlich selbst noch übernehmen. Aber das sollte nicht all zu schwer sein. Einfach mit copy den Teil bis zur Fundstelle + den neuen String + (mit copy) den Teil hinter der Fundstelle und schon ist's fertig.
Ergänzung:
Ich hab die Funktion jetzt nochmal erweitert so das man angeben kann ab welcher Position das Xte Vorkommen gesucht werden soll. Es ist jetzt also gleich zu setzen mit PosEx mit dem Zusatzfeature das man sagen kann das wievielte Vorkommen man haben will (wenn man in der Praxis wohl auch nur eines von beiden braucht - entweder angabe der Startsuchposition oder die Angabe das wievielte Vorkommen man sucht).
Delphi-Quellcode:
function GetPosNumX(
const ASubStr, AFullStr:
String; AFoundCnt: Word; AStartPos: Integer=1): Integer;
var LFoundCnt : Word;
LCompCnt,
LFullLen,
LGiveback,
LMax,
LPos,
LSubLen : Integer;
LPtr1,
LPtr2 : PChar;
begin
LFullLen := Length(AFullStr);
LSubLen := Length(ASubStr);
if (AStartPos < LFullLen - LSubLen + 2)
then
begin
//An dieser Stelle incrementieren da wir sonst an 2 anderen Stelle incrementieren müssten
dec(AStartPos);
LGiveback := 0;
LFoundCnt := 0;
LMax := LFullLen - LSubLen + 2;
LPtr1 := PChar(AFullStr) + AStartPos;
LPtr2 := PChar(ASubStr);
for LPos := AStartPos
to LMax
do
begin
LCompCnt := 0;
while (LCompCnt < LSubLen)
and (LPtr1[LCompCnt] = LPtr2[LCompCnt])
do
inc(LCompCnt);
if LCompCnt = LSubLen
then
begin
inc(LFoundCnt);
if LFoundCnt = AFoundCnt
then
begin
LGiveback := LPos + 1;
Break;
end;
end;
inc(Cardinal(LPtr1));
end;
result := LGiveback;
end else
result := 0;
end;