Hallo,
nach längerer Suche habe ich eine Funktion gefunden, mit der ich eine Datei nach einem String durchsuchen kann:
Delphi-Quellcode:
function ScanFile(const filename: string; const forString: string; caseSensitive: Boolean ): LongInt;
const BufferSize= $8001;
var
pBuf, pEnd, pScan, pPos: Pchar;
filesize: LongInt;
bytesRemaining: LongInt;
bytesToRead: Integer;
F: File;
SearchFor: Pchar;
oldMode: Word;
begin
result := -1;
if (Length(forString) = 0) or (Length(filename) = 0) then Exit;
SearchFor := nil;
pBuf := nil;
AssignFile(F, filename);
oldMode := FileMode;
FileMode := 0;
Reset(F, 1);
FileMode := oldMode;
try
SearchFor := StrAlloc(Length(forString) + 1);
StrPCopy(SearchFor, forString);
if not caseSensitive then AnsiUpper(SearchFor);
GetMem(pBuf, BufferSize);
filesize := System.Filesize(F);
bytesRemaining := filesize;
pPos := nil;
while bytesRemaining > 0 do
begin
if bytesRemaining >= BufferSize then bytesToRead := Pred(BufferSize)
else bytesToRead := bytesRemaining;
BlockRead(F, pBuf^, bytesToRead, bytesToRead);
pEnd := @pBuf[bytesToRead];
pEnd^:= #0;
pScan := pBuf;
while pScan < pEnd do
begin
if not caseSensitive then AnsiUpper(pScan);
pPos := StrPos(pScan, SearchFor);
if pPos <> nil then
begin
result := FileSize - bytesRemaining + LongInt(pPos) - LongInt(pBuf);
break;
end;
pScan := StrEnd(pScan);
Inc(pScan);
end;
if pPos <> nil then break;
bytesRemaining := bytesRemaining - bytesToRead;
if bytesRemaining > 0 then
begin
seek(F, FilePos(F) - Length(forString));
bytesRemaining := bytesRemaining + Length(forString);
end;
end;
finally
CloseFile(F);
if SearchFor <> nil then StrDispose(SearchFor);
if pBuf <> nil then FreeMem(pBuf, BufferSize);
end;
end;
Leider habe ich es nicht geschafft, den Code so zu modifizieren, das ich eine Startposition angeben kann.
Der String, den ich suche, kommt öfters vor, so das ich gerne ab einer bestimmten Position suchen möchte statt immer bei 0.
Vermutlich haben pPos und pBuf etwas mit dem "Index" zu tun, aber Versuche wie
pPos:=PChar(85); <-85 sei hier eine Startposition
schlugen fehl.
Wer kann mir da weiterhelfen?
Gruß, Andreas