Anzahl Zeilen in einem Textfile

[TomDooley]

Hallo

Ich möchte die Anzahl Zeilen in einem Textfile auslesen (Typ: textfile).

Sollte das nicht mit

Delphi-Quellcode:

anzZeilen := FileSize(filename);

funktionieren?? Mir werden aber immer genau die Hälfte der Zeilen ausgegeben.... :gruebel:

Gruss

Tom

[Anubis]

also laut Hilfe

Zitat:

Hinweis
FileSize kann nicht für Textdateien verwendet werden.

[TomDooley]

hmm... das heisst alle Zeilen mit ReadLn einlesen und inkrementieren bis EoF erreicht?

[MarcusB]

Ist vielleicht umständlich, aber dürfte funzen :

Delphi-Quellcode:

var
  txt: textfile;
  anzahl: integer;
begin
  AssignFile(txt, 'xyz.txt');
  reset(txt);
  while not EOF(txt) do
  begin
    inc(anzahl);
  end;
  CloseFile(txt);
  
  ShowMessage(IntToStr(anzahl));
end;

Gruß

MarcusB

[toms]

Hi,

Probier mal diese Funktion:

Delphi-Quellcode:

function TextLineCount_BufferedStream(const Filename: TFileName): Integer;
const
  MAX_BUFFER = 1024 *1024;
var
  oStream: TFileStream;
  sBuffer: string;
  iBufferSize: Integer;
  iSeek: Integer;
  bCarry: Boolean;
begin
  Result := 0;
  bCarry := False;
  oStream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    SetLength(sBuffer, MAX_BUFFER);
    repeat
      iBufferSize := oStream.Read(sBuffer[1], MAX_BUFFER);
      if iBufferSize <= 0 then
        break;
      {Skip LFs that follow a CR - even if it falls in seperate buffers}
      iSeek := 1;
      if bCarry and (sBuffer[1] = #10) then
        Inc(iSeek);
      while iSeek <= iBufferSize do
      begin
        case sBuffer[iSeek] of
        #10:
          Inc(Result);
        #13:
          if iSeek = iBufferSize then
            Inc(Result)
          else
          if sBuffer[iSeek + 1] <> #10 then
            Inc(Result)
          else
          begin
            Inc(Result);
            Inc(iSeek);
          end;
        end;
        Inc(iSeek);
      end;
      {Set carry flag for next pass}
      bCarry := (sBuffer[iBufferSize] = #13);
    until
      iBufferSize < MAX_BUFFER;
  finally
    FreeAndNil(oStream);
  end;
end;

[Gollum]

Hallo,

wie wäre es damit?

Delphi-Quellcode:

var sl:TStringList;
...
sl:=TStringList.Create;
try
  sl.LoadFromFile('c:\test.txt');
  ShowMessage(Format('Datei enthält %d Zeilen.', [sl.Count]));
finally
  sl.Free;
end; // try

[IngoD7]

Jo, bei Textfiles empfiehlt der Apotheker TStringList. :wink:

@MarcusB
Dein Code zählt sich tot. 8)

[TomDooley]

Danke. Das mit der Stringliste hört sich ganz gut an... Jetzt dazu noch ein kleines Problem: Wie kann ich eine Strinliste mit dem Inhalt einer geöffneten Datei befüllen? Also so in etwas:

Delphi-Quellcode:

WriteLn(File,Text);  //File befüllen
meineStringListe.ladeVon(File);  //File in meineStrinListe laden
anzahl := meineStringListe.count; //Zeilen zählen

Oder muss ich das File erst schliessen? Oder jede Zeile mit ReadLn aus File lesen (ist etwas umständlich nur um an die Anzahl zu kommen....)

es dankt und grüsst

Tom

[s14]

Gollum hat mit seinem Beitrag die Frage bereits, mit Code-Beispiel, beantwortet :wink:

[TomDooley]

:gruebel: Gollums Datei ist aber geschlossen und nicht wie meine Datei geöffnet... Geht das trotzdem irgendwie?