File user
Contenu du snippet
Ceci est un petit programme de démonstration d'enregistrement et d'ouverture dans des fichiers.
Merci de laisser vos commentaires
Source / Exemple :
Program Fileuser;
uses crt,dos;
var f1,f2:text;
var ln,i:integer;
var enter,buff,dir,rep,fin,dateyn:string;
begin
fin:='n';
clrscr;
writeln();
writeln('File user 1.00');
writeln('Ecrit par Xalamar');
writeln('');
while fin='n' do
begin
write('Voulez-vous ecrire ou lire dans un fichier(e/l):');
readln(rep);
if rep='e' then
begin
writeln('Ecrire un fichier');
write('Combien de lignes:');
readln(ln);
write('Emplacement:');
readln(dir);
assign(f1,dir);
rewrite(f1);
for i :=1 to ln do
begin
write('Ligne');
write(i);
write(':');
readln(enter);
writeln(f1,enter);
end;
close(f1);
writeln('Le fichier '+dir+'a ete ecrit avec succes!');
readln();
end;
if rep='l' then
begin
writeln('Lire un fichier');
write('Combien de lignes dans le fichier:');
readln(ln);
write('Emplacement:');
readln(dir);
assign(f2,dir);
reset(f2);
for i:=1 to ln do
begin
readln(f2,buff);
writeln(Buff);
end;
readln();
close(f2);
end;
write('Voulez vous quitter(o/n):');
readln(fin);
end;
end.
Conclusion :
Merci de laisser vos commentaires
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.