Discussion :

[Loceka]

Bonjour,
Je sais que ça peut ne pas paraître très passionnant de prime abord, mais ça peut quand même s'avérer très utile, et ce n'est pas si simple que ça à réaliser.

En fait, ce que je voudrais faire, c'est compter le nombre de lignes qu'il y a dans un fichier quelconque.

J'avais bien pensé à ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure CptLgn(var F : text; var nb : integer);
var i:integer;
    ligne:string;
begin
i:=0;
readln(F,ligne);
while ligne <> '' do
      begin
           inc(i);
           readln(F,ligne);
      end;
nb:=i;
end;

Mais le problème est que le programme s'arrête de compter à la première ligne "vide".

A vrai dire, je crois que c'est une impasse, car je ne vois pas comment faire autrement, mais c'est justement pour ça que je poste !

Alors, si vous savez comment faire, ou si vous croyez avoir une piste, merci de me le signaler.

[charly]

presque bon remplace le
While ligne<>'' do
par
While not eof(F) do

Bon courage

[Eric Sigoillot]

Plusieurs éléments à prendre en compte.

D'une part, le pointeur du fichier doit se trouver au début du fichier pour être sûr de ne louper aucune ligne.

Ensuite, la fin d'un fichier est indiqué par la fonction Eof(var f).

On pourrait donc avoir un truc dans le genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
var
  f: Text;
  LineCount: Integer;
begin
LineCount := 0;
{$I-}
Assign(f, 'FICHIER.TXT');
Reset(f); { Remise du pointeur du fichier à zéro }
while (IOResult = 0) and not Eof(f) do
  begin
  ReadLn(f, S);
  Inc(LineCount);
  end;
Close(f);
{$I+}

A+

[Loceka]

Merci, ça fonctionne (enfin, ça ne doit pas vous surprendre plus que ça, vu que vous aviez l'air de savoir ce que vous faisiez).

Il y a quand même une chose étrange, pas dérangeante, mais juste étrange, c'est que si le fichier contient une (et une seule) ligne vide à la fin, elle n'est pas comptée.

[Eric Sigoillot]

Normalement, elle doit être comptée.

Seulement voilà, es-tu sûr de la présence de cette ligne vide finale ? Car souvent, les éditeurs de texte n'écrivent pas dans un fichier une ligne vide finale.

C'est par exemple le cas pour l'IDE de Turbo Pascal.

Pour t'assurer de l'existance de cette ligne, ouvre ton fichier texte avec un éditeur hexadécimal : le fichier doit se terminer par 0D 0A 0D 0A, autrement dit deux marqueurs de passage à la ligne (le premier pour l'avant dernière ligne, le dernier pour la dernière ligne)

A+

[the_clansman]

Et si tu fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
If (IOResult = 0) Then
Begin
  Repeat
    ReadLn(f,S);
    Inc(LineCount);
  Until (Eof(f));
End;

à la place de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
while (IOResult = 0) and not Eof(f) do
begin
  ReadLn(f, S);
  Inc(LineCount);
end;

Ca te compte ta ligne finale ?

[Eric Sigoillot]

Le code que tu proposes the_clansman plante sur un fichier vide, car tu tente de lire au moins une ligne avec la boucle repeat là où il n'y en a peut-être même pas une.

Il faut toujours travailler avec une boucle while pour les fichiers pour prévoir justement l'éventualité d'un fichier vide.

A+

[the_clansman]

Le code que tu proposes the_clansman plante sur un fichier vide, car tu tente de lire au moins une ligne avec la boucle repeat là où il n'y en a peut-être même pas une.

Il faut toujours travailler avec une boucle while pour les fichiers pour prévoir justement l'éventualité d'un fichier vide.

A+

Très bien vu mon cher Hdd34...mais sous Delphi7, ça ne plante pas...et j'en suis le premier surpris