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 :
Mais le problème est que le programme s'arrête de compter à la première ligne "vide".
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;
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.
Partager