Discussion :

[freemanqc]

Bonjour tout le monde,

J'ai écrit le programme ci-dessous et à quand je l'execute il me lit le fichier txt mais quant à l'écriture il me crée le fichier mais ne m'écrit pas mes données dedans:

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
 
program listechainee;
 
const
     path='C:\pascal\tp2\';
Var
     f1, f2 :text;
     tab : array [1..1000] of integer;
     n, i : integer;
 
begin
 
assign (f1, path+'listechainee.txt');
assign (f2, path+'sortie1.txt');
reset (f1);
rewrite(f2);
 
i:=0;
 
while not eof(f1) do
 
begin
i:= i+1;
read (f1, tab[i]);
write ('ligne', i:3, tab[i]:15);
readln;
end;
 
begin
n:=i;
for i:=1 to n do
write(f2, tab[i]);
end;
 
close (f1);
close (f2);
End.

Avec mes remerciements pour votre aide.

[droggo]

Die,

Pense à utiliser les balises code pour montrer ton code
(Il n'y a pas à chercher longtemps dans d'autres sujets pour apprendre ce que c'est, et comment s'en servir)

Sinon, je ne vois rien de problématique dans ton programme, à part que

Code :

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

    Read (f1, tab[i]);

serait avantageusement remplacé par

Code :

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

    ReadLn (f1, tab[i]);

(sous réserve que ton fichier contienne une valeur par ligne)


et surtout que

Code :

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

      Write(f2, tab[i]);

soit remplacé par

Code :

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

      WriteLn(f2, tab[i]);

sinon les données seront écrites les unes à la suite des autres, sans séparation, ce qui entraînera l'impossibilité de les relire correctement plus tard.

D'autre part, sécuriser le programme pour les entrées/sorties est une très bonne habitude à prendre (que se passe-t-il si le fichier f1 n'existe pas ? et s'il existe, si une des données n'est pas convertible en entier ? et pour le fichier f2, que se passe-t-il si on ne peut pas le créer ? et s'il est créé, si on ne peut pas écrire dedans [par exemple, plus de place sur le disque] ?

[freemanqc]

je te remercie pour ta réponse si rapide
mais les données ne sont pas toujours saisies au niveau du fichier de sortie

[droggo]

Fie,

je te remercie pour ta réponse si rapide
mais les données ne sont pas toujours saisies au niveau du fichier de sortie

Je ne vois pas vraiment ce que tu veux dire ?

[darrylsite]

je ne vois pas de probleme dans ton code. Seulement, il faut créer le fichier listechainée.txt (tu dois y mettre des valeur pour que i soit different de 0) avant d' executer le programme.

si tu as crée un fichier vide, ton i vaudra 0 et tu n' as donc rien à mettre dans le fichier sortie.

Je te conseil de faire des procedure pour les differentes operations.

si probleme persiste, explique nous plus en detail ce que tu as fait et ce que tu veux que je programme fasse.

[krachik]

Bonjour
@freemanqc : tu es sûr que tu ouvres ton fichier sortie1.txt une fois que le code à fini de s'executer? parce que si tu l'ouvre en cours d'excecution sans qu'il ait fini d'écrire dans le ficher tu n'auras rien dans le fichier
Comme le dit darrylsite
1-Verifes que ton fichier source n'est pas vide
2-Ouvres ton fichier de sortie enfin d'execution
Tu peux aussi mettre un "writeln(i)" pour juste voir ce que vaut i apres la lecture dans le fichier
Cordialement