Lecture et écriture sur un fichier txt
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:
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.
