Zeilen einer Datei zählen

[Nugi89]

Hallo habe folgendes Problem,
hab mir eine Konsolenanwendung erstellt in der ich einen Dateipfad angeben und die Zeilen der Datei zählen kann.
Das Programm zählt immer nur eine Zeile und mehr nicht.

Hier mal der Code:

Delphi-Quellcode:

uses
  SysUtils,
  Classes;

var
 path: string;
 zeilen: integer;
 datei: TStringList;
begin
 writeln('Gebens Sie den Dateipfad an oder Exit um zu beenden:');
 Readln(path);
 datei:= TStringList.Create;

 if FileExists(path) = true then
 begin
   writeln('Existiert!');
   datei.LoadFromFile(path);
   zeilen:= datei.Count;
   writeln('Die Datei hat ' + IntToStr(zeilen) + ' Zeilen!');
 end
 else
 begin
   writeln('Existiert nicht!');
 end;

 if path = 'Exit' then
 begin
   Halt;
 end;

 Readln;
end.

Zählt datei.count nicht eigentlich alle Zeilen?
Vielleich kann mir irgend wer helfen.

[haentschman]

Hallöle...

Zitat:

Zählt datei.count nicht eigentlich alle Zeilen?

Das kommt auf die Datei an. Wenn z.B. in ihr keine Zeilenumbrüche sind gibt es nur eine Zeile. Kannst du zwecks Analyse so eine Datei (klein) anhängen?

[Dalai]

Hat die Datei denn mehr als eine Zeile, die durch CRLF (#13#10) voneinander getrennt sind?

Übrigens muss man sich dafür nicht unbedingt selbst ein Programm schreiben, denn grep (gibt's auch für Windows) kann sowas indirekt:

Code:

grep -c "." pfad\zur\datei

MfG Dalai

[Rollo62]

Wenn Zeilenumbrücke da sind könnte es trotzdem sein das sie nicht passen.
Mit Delimiter kann man das dem StringGrid einstellen.
Danach sollte es dann eigentlich funktionieren.

Edit:
Sorry: LineBreak ist der richtige Link

Rollo

[Bjoerk]

Alternative wäre auch der TSJMmfFileReader von Sebastian Jänicke. Ist schnell und man kann den Delimiter einstellen auch (voreingetsllt ist #$000D (#13)).

[Nugi89]

die Datei hat mehrere Zeilen. Hat es auch mit anderen Dateien probiert und es kommt immer wieder nur eine Zeile raus.

Und danke für den Windows-Tipp. Hab ich noch nicht gewusst.

[Luckie]

Woher weißt du denn, dass sie mehrere Zeilen hat?

[Nugi89]

Ich hab sie mir zum testen erstellt. Hab mir dazu einen Text von Wikipedia kopiert mit ca 20 Zeilen.
Dann sollte das Programm doch auch 20 Zeilen zählen oder?

[Luckie]

Öhm. Du hast nicht zufällig den automatischen Zeilenumbruch im Texteditor aktiviert? Fließtext von Webseiten hat keine festen Zeilenumbrüche.

[Nugi89]

nee glaube der Zeilenumbruch fehlt. Ich werde das mal überprüfen.
Ist den mein Quellcode soweit korrekt?

hab jetzt noch eine for-Schleife eingebaut und hab immer noch das selber Problem.

Hier nochmal mein Code:

Delphi-Quellcode:

uses
  SysUtils,
  Classes;

var
 path: string;
 zeilen, i: integer;
 datei: TStringList;
begin
 writeln('Gebens Sie den Dateipfad an oder Exit um zu beenden:');
 Readln(path);
 datei:= TStringList.Create;
 zeilen:= 0;
 
 if FileExists(path) = true then
 begin
   writeln('Existiert!');
   datei.LoadFromFile(path);
   for i:= 0 to datei.Count -1 do
   begin
     zeilen:= zeilen +1;
   end;
   writeln('Die Datei hat ' + IntToStr(zeilen) + ' Zeilen!');
 end
 else
 begin
   writeln('Existiert nicht!');
 end;

 if path = 'Exit' then
 begin
   Halt;
 end;

 Readln;
end.