Discussion :

[yinyann86]

Code :

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

1
2
3
 
assign(rapport,'rapport.txt');
write(rapport,numeroclient:5,nbcasquette:2,nbepingles:2);

quelqun peut me dire l'erreur qu'il y a la dedans car c'est a la 2ième ligne quil a erreur?

[Auteur]

bonjour,

Si mes souvenirs sont bons : la fontion write ne prends que 2 paramètres dans ce cas. Le premier est la référence du fichier et le second est la variable ou la liste des variables à écrire (et il ne faut pas de virgule pour les séparer). Dans l'exemple ci-dessous, je les concatène et les sépare par un espace.

Déclaration de la variable rapport :

Code :

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

1
2
 
var rapport : text;

Code :

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

1
2
3
 
Assign(rapport,'rapport.txt');
Write(rapport, numeroclient:5+' '+nbcasquette:2+' '+nbepingles:2);

ou :

Code :

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

1
2
3
4
5
6
7
 
Assign(rapport,'rapport.txt');
Write(rapport, numeroclient:5);
Write(rapport, ' ');
Write(rapport, nbcasquette:2);
Write(rapport, ' ');
Write(rapport, nbepingles:2);

petite remarque : si tu écris dans un fichier texte pense à séparer les données écrites (par une tabulation -chr($09)- ou un retour à la ligne, writeln() fonctionne également pour les fichiers textes), comme ceci les données seront lisibles par un programme du genre NotPad.

[diden138]

Oula si tous le monde utilisais les fichier comme vous faite
-ou est le reset ou est le close(f)
Pour utiliser un fichier deja existant :

Code :

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

1
2
3
4
5
6
7
8
 
var F:text;
 
begin
assign(f,'chemin du fichier');
reset(f);
Write(rapport, numeroclient:5+' '+nbcasquette:2+' '+nbepingles:2);
close(f);

Tien un lien ça pourra t'aider http://cyberzoide.developpez.com/info/turbo/chap10.php3
Je te le dis et je le repete il y'a tout sur ce site avant de poster lis bien les tuto recherche dans les forums +Faq+Google ensuite poste sur le forum .....

[Auteur]

Oui en effet, j'ai oublié le reset(f) pour ouvrir le fichier et placer le pointeur au début du fichier. Néanmoins, le reset n'est valable que pour les fichers qui existent sinon une erreur est renvoyée.

Code :

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

1
2
3
4
5
6
7
8
 
var F:text;
 
begin
assign(f,'chemin du fichier');
reset(f);
Write(rapport, numeroclient:5+' '+nbcasquette:2+' '+nbepingles:2);
close(f);

même si le pascal n'est pas "case sensitive", je voudrais apporter une petite correction :

Code :

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

1
2
 
var f:text;

avec un f minuscule.
et

Code :

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

Write(f, numeroclient:5+' '+nbcasquette:2+' '+nbepingles:2);

dans ce cas et non rapport.

[yinyann86]

Code :

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

1
2
3
4
5
6
7
 
numeroclient : string ;                 
nbcasquette : integer ;                  
nbepingles :  integer ; 
assign(rapport,'rapport.txt');
rewrite(rapport);
writeln(rapport, numeroclient:5+' ',nbcasquette:2+,' ',+nbepingles:2);

quand le programme arrive au writeln , ca stop car il a un erreur d'incompatibilité , comment régler cela?

[diden138]

Effectivement il y'a une incompatibilité les variables nbcasquette ,nbepingles sont de type integer alors que ton fichier est un fichier texte donc il ne peut contenir que des chaines de caractére pour remédier à cela tu doit transformer tes variables integer en chaine "transtypage"
regarde du coté des fonction str et val dans la Faq

[yinyann86]

jessaie avec la variable str mais ca ne fontionne pas :

Code :

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

1
2
3
4
5
6
7
 
nbcasquette : integer ;                 
nbepingles :  integer ;
a : string ;
b : string ;
str(nbcasquette:5:0:a);
str(nbepingles:5:b);

il me dise pas assez de paramètres originaux ? comment régler ca?

[diden138]

Tu a oublié la virgule

Code :

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

1
2
3
 
str(nbcasquette:5:0,a);
str(nbepingles:5,b);

maintenant ça devrais marcher ...

[yinyann86]

ouais ca marche pour les str mais la pour écrire dans le fichier rapport.txt ca marche pas du tout:

Code :

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

1
2
3
4
5
6
7
8
 
numeroclient : string ;
clientz : integer ;
e : integer ;
assign(rapport,'rapport.txt');
reset(rapport);
val(numeroclient,clientz,e);
writeln(rapport,clientz:5);

moi je veux juste écrire le numero du client dans le fichier texte c'est tout

[diden138]

Je comprend pas numéroclient c'est une chaine de caractére laisse la comme elle est ,donc si je reprend ton code:

Code :

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

1
2
3
4
5
 
numeroclient : string ;
assign(rapport,'rapport.txt');
reset(rapport);
writeln(rapport,numeroclient);

[yinyann86]

non ca me dit tout le temps une erreur lors'quil arrive pour l'écriture !! erreur 105 ?? je sais pas c koi mais jai mis

Code :

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

1
2
 
writeln(rapport,numeroclient);

peut etre write ??

[diden138]

Est ce que ton fichier existe sur le disque ou tu tente de le créer??si c'est la deuxiéme remplace reset par rewrite(rapport);
Ps:l'erreur ne vient pas de writeln

[diden138]

D'aprés ton programme est ce que tu veux faire ça

Code :

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

1
2
3
4
5
6
7
8
9
10
 
numeroclient : string ;
numero:integer;
writeln('entrez le numero du client');
readln(numero);
str(numero,numerclient);
assign(rapport,'rapport.txt');
rewrite(rapport);
writeln(rapport,numeroclient);
close(f);

essaye ça..

[yinyann86]

ca fonctionne mais sa l'écrit pas dans le fichier .txt biz ;\

[diden138]

chez moi le code marche normalement :

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
 
program fichier;
var
numeroclient : string ;
numero:integer;
rapport:text;
begin
writeln('entrez le numero du client');
readln(numero);
str(numero,numeroclient);
assign(rapport,'rapport.txt');
rewrite(rapport);
writeln(rapport,numeroclient);
close(rapport);
end .

[yinyann86]

ca écris seulement lorsque le programme est terminé mais moi je veux que ca lécrire au fur et a mesure comment faire cela??

[diden138]

J'ai rien compris qu'est ce que tu veux faire???
je t'ai donner assez d'element pour commencer à toi de faire le reste ..

[JoseF]

Bonjour,

ca écris seulement lorsque le programme est terminé mais moi je veux que ca lécrire au fur et a mesure comment faire cela??

si je ne me trompe pas, le programme met dans une mémoire tampon et de temps en temps, (selon la taille du tampon), il le vide pour écrire sur le disque.

avec l'instruction close, tu vides et écris sur le dique ce qui restait dans le tampon et ça ferme le fichier.