Discussion :

[moncef357]

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.

[CapJack]

1) Quel est ton problème ?
2) Le traitement doit-il se faire sur fichier (gros fichier) ou peut-on supposer que le contenu peut être chargé en mémoire ?

[droggo]

Hak,

Premier problème qui saute aux yeux :

Code :

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

type tfile = file of string;

Pascal a un type générique pour les fichiers texte:

Code :

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

1
2
3
...
var
  f1,f2 : Text;

Eh oui, aussi simple que ça.

Sinon, +1 sur CapJack

[moncef357]

Hak,

Code :

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

1
2
3
...
var
  f1,f2 : Text;

Eh oui, aussi simple que ça.

désolé c'est pas aussi simple que ca, ca marche pas.

[CapJack]

Que contient le fichier c1, et comment a-t-il été créé ?

[moncef357]

Que contient le fichier c1, et comment a-t-il été créé ?

le fichier 'C1' a etais creer par moi, je l'ai creer sans extension, et il est rempli de quelque nom comme ceux que j'ai mit en exemple, mais y'a aussi des caracteres speciaux comme : ['@','[',']',....].

[moncef357]

1) Quel est ton problème ?
2) Le traitement doit-il se faire sur fichier (gros fichier) ou peut-on supposer que le contenu peut être chargé en mémoire ?

oui le traitement doit ce faire sur un gros fichier.