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...:P

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.:thumb: 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.

[implementation]

Zitat:

Zitat von Dalai (Beitrag 1315865)

denn grep (gibt's auch für Windows) kann sowas indirekt

Wenn man sich schon Standard-UNIX-Tools rüberholt, dann bitte

Code:

wc -l pfad\zur\datei

The right tool for the right task und so ;)

[baumina]

Nimm einfach NodePad, schreib 1[Enter-Taste] 2[Enter-Taste] 3[Enter-Taste] rein, speicher das als txt-Datei ab und versuchs damit. Die for-Schleife ist für die Katz.

[Uwe Raabe]

Zitat:

Zitat von Nugi89 (Beitrag 1315882)

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

Die for-Schleife löst das Problem ja nicht, sondern macht nur dein Programm langsamer und die CPU heißer.

Gib dem Programm doch einfach mal die Source-Datei deines eigenen Programms zum zählen.

[Nugi89]

Ok die for-Schleife ist draußen.
Hab mir jetzt ein Textdokument erstellt mit 10 Zeilen.
Jetzt kommt das Problem das er das Dokument nicht findet.

[baumina]

8-) damit wären wir genauso weit wie hier

[Dalai]

Zitat:

Zitat von implementation (Beitrag 1315884)

Wenn man sich schon Standard-UNIX-Tools rüberholt, dann bitte

Code:

wc -l pfad\zur\datei

The right tool for the right task und so ;)

Ja, im Prinzip hast du recht. Ich weiß jetzt nicht, ob's wc auch für Windows gibt, bei grep weiß ich es definitiv, weil ich es selber häufiger benutze (weil das Windows find nix taugt). Von daher kenne ich diese Variante als billigen Ersatz für wc.

MfG Dalai

[Luckie]

Dann gib deinem Programm den korrekten Pfad zur Datei. :roll:

[Geda]

Um noch einmal auf den Vorschlag vom Anfang zurückzukommen: Kannst Du eine Beispieldatei zur Verfügung stellen - mit dem Hinweis, wie viele Zeilen es sein sollten?

[Michael II]

Wenn du noch keinen hast, dann wird es Zeit: Lade einen HEX Editor runter.

Öffne deine TXT-Datei im HEX Editor und prüfe deren Inhalt (Zeichen für Zeilenumbruch suchen).

Dann weisst du ganz genau, was dein Delphi Programm einliest.

Und wie's bereits gewünscht wurde: Es macht erst richtig Sinn über das Problem zu diskutieren, wenn du die Datei z.V. stellst.

Viel Glück...

[Luckie]

Rt hat ja nun wohl mittlerweile eine Datei mit Zeilenumbrüchen.

[p80286]

Wenn er Bauminas Vorschlag genutzt hat, dann ja.

@Nugi89

Delphi-Quellcode:

if FileExists(path) = true then
begin

ist nicht so gelungen,

Delphi-Quellcode:

if FileExists(path) then
  begin

ist voll und ganz ausreichend.

Gruß
K-H

[mkinzler]

Nicht nur weniger aufwendig uach weniger fehleranfällig, da True nicht immer gleich True ist.

(True ist nicht False; also <> 0)

[BadenPower]

Zitat:

Zitat von Nugi89 (Beitrag 1315882)

Ist den mein Quellcode soweit korrekt?

Nein.

1. Die Stringliste wird nicht freigegeben.

2. Wenn Du "Exit" eingibst, dann prüft Dein Programm erst, ob es die Datei "Exit" gibt und gibt dann "Existiert nicht!" aus bevor es zum Programmende kommt, ausser es gibt eine Datei "Exit" dann erhälst Du die Zeilenanzahl vor dem Beenden des Programms.

[Nugi89]

Danke für die Hilfe
Hatte meine Fehler selber gefunden, hatte den Wald vor lauter Bäumen nicht gefunden:oops:

[Rollo62]

Du bist mein Held ...
Welche Fehler waren denn das ?

Rollo