Connaître le nombre d'enregistrements par un clic droit
Bonjour, un petit source
il y a sans doute mieux mais je laisse à votre appréciation ..
Code:
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. |