schnell Zeilen zählen

**akko5**

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.

zusammenfalten · markieren

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.

zusammenfalten · markieren

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!

schnell Zeilen zählen

schnell Zeilen zählen

Forumregeln