Discussion :

[heimfield]

quel est le programme pour lire combien de ligne compte un fichier sachant que chaque ligne et commence par un begin et termine par un end ; il faut faire un compteur mais mon problème c comment acceder au fichier pour faire la lecture
merci bien

[rsc]

Est-ce que ton fichier est un fichier texte ?
Que cherches-tu à compter, les lignes réellement, ou les blocs begin..end ?
Pour un fichier texte et le nombre de lignes, le plus simple à mon avis est de charger le fichier dans une TStringList et d'en récupérer le Count.

Code :

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

1
2
3
MaListe := TStringList.Create;
MaListe.LoadFromFile('MonFichier.txt');
NbLignes := MaListe.Count;

[ShaiLeTroll]

Quelle Horreur, chargée le fichier en mémoire pour compter les lignes !!!


voir ce sujet "Compter le nombre de lignes d'un fichier ? "

tu peux aussi utiliser ma fonction SearchString, tient la version SearchStringInBigFile en mettant comme chaine de recherche sLineBreak, c'est encore plus rapide !

[Gilbert Geyer]

Bonjour ShaiLeTroll et bonne année.

Pour info je te signale qu'un click sur les deux liens de ton message de 11h14 n'aboutit nulle part.

A+

[ShaiLeTroll]

Etrange, chez moi, cela fonctionne très bien ! Pour les Deux Liens ! Anti-Popup ?

Voici une fonction utilisable directement donc

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
17
procedure CountLineInFile(const FileName: string);
var
  FLNC: TextFile;
begin
  Result := 0;
  AssignFile(FLNC, FileName);
  Reset(FLNC);
  try
    while Eof(FLNC) do
    begin
      Inc(Result);
      Readln(FLNC);
    end;
  finally
    CloseFile(FLNC);
  end;
end;

[Gilbert Geyer]

Re-bonjour,

Bizarre en re-testant les liens ça remarche de nouveau.
Tout à l'heure ça n'affichait qu'une main avec un point d'exclamation!

A+