Hallo,
Ich bin gerade dabei, einen Code zu schreiben, der
schnell die Zeilen einer Textdatei zählt.
Zuerst hatte ich das, funktioniert zwar sehr gut, ist aber für große Dateien einfach zu langsam.
Delphi-Quellcode:
function CountLines1(const sFile: String): Integer;
var
fInput: TextFile;
begin
Result := 0;
AssignFile(fInput, sFile);
try
ReSet(fInput);
try
while not EOF(fInput) do
begin
ReadLn(fInput);
Inc(Result);
end;
finally
CloseFile(fInput);
end;
except
//Result := -1;
end;
end;
Dann hatte ich die Idee, die Datei in Blöcken auszulesen und dann die Zeilenumbrüche zu zählen.
Diese Methode arbeitet viel schneller, nur leider gibt sie immer (meistens) zuviele Zeilen zurück.
Delphi-Quellcode:
function PosCount(const SubStr, S: String): Integer;
var
iPos: Integer;
begin
Result := 0;
iPos := 0;
repeat
iPos := PosEx(SubStr, S, Succ(iPos));
if iPos > 0 then Inc(Result);
until iPos = 0;
end;
function CountLines2(const sFile: String): Integer;
const
BUFFER_SIZE = 8192;
var
fInput: File;
cBuffer: Array[1..BUFFER_SIZE] of Char;
iRead: Integer;
begin
Result := 0;
AssignFile(fInput, sFile);
try
ReSet(fInput, 1);
try
while not EOF(fInput) do
begin
BlockRead(fInput, cBuffer, BUFFER_SIZE, iRead);
Inc(Result, PosCount(#10, cBuffer));
end;
finally
CloseFile(fInput);
end;
except
//Result := -1;
end;
end;
Wäre nett, wenn sich das mal jmd. anschauen könnte und mir sagen kann, wieso der 2. Code nicht richtig funktioniert.
Danke!