Bonjour, un petit source
il y a sans doute mieux mais je laisse à votre appréciation ..
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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45 { ce petit programme testé en FreePascal pour compter le nombre d'enregistrements dans un fichier texte principe le programme est stocké sur de disque dur disons c:\pgmutil\nbrenr.exe ensuite un raccourci est mis dans le dossier C:\Documents and Settings\utilisateur\SendTo\ pour utiliser clique droit sur un fichier texte et envoyer vers le raccourci ... Source libre de droits par JoseF sur http://www.developpez.com le 08/12/2007 fonctionne si compilé avec FreePascal testé avec "Free Pascal Compiler version 1.0.6 [2002/04/23] for i386" sous windows 32 bits } program nbrenr; var a,n :string; i:integer; f:TextFile; begin i:=0; assignfile(f,ParamStr(1)); reset(f); while not eof(f) do begin readln(f,a); i:=i+1; end; closefile(f); str(i,n); Writeln('dans le fichier ',ParamStr(1)); Writeln('il y a ',n,' enregistrements. '); Writeln; Write('Enter pour quitter ...'); Readln; end.
Partager