Copier le contenu d'un fichier dans un autre
bonjour, je veux creer un programme qui supprime les chaines de caracteres dupliquer dans un fichier.
exemple :
fichier d'origine :.........................................2em fichier {modifiier} :
- george....................................................- george
- michael...................................................- michael
- johana....................................................- johana
- george....................................................- jack
- jack........................................................- kami
- kami
- michael
voila mon code jespere que vous trouverez le probleme pour m'aider.
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
46
47
48
49
| program contact;
uses fdelay,crt;
type tfile = file of string;
procedure copy_f(nom1,nom2:string);
var f1,f2 : tfile;
i,r,mok : integer;
x,y : string;
begin
{$I-}
assign(f1,nom1);
assign(f2,nom2);
reset(f1);
rewrite(f2);
{$I+}
if ioresult<>0 then begin
writeln('erreur');
writeln('taper une touche pour quitter');
halt(1);
end;
{for i:=0 to taille-1 do}
i:=0;r:=0;
while not EOF(f1) do
begin
{ seek(f1,i); }
seek(f1,r);
read(f1,x);
r:=i;
while not EOF(f1) do
begin
seek(f1,i+1);
read(f1,y);
if (x=y) then mok:=1;
i:=i+1;
end;
if (mok=0) then write(f2,x);
mok:=0;
r:=r+1;;
end;
close(f1);close(f2);
end;
begin
copy_f('c1','c2');
end. |
