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 : 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
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.