Bonjour,

j'ai fait un programme à la volée qui devrait me concaténer 2 fichiers (ou plus) ascii (par clic droit ...) mais je ne vois pas pourquoi le fichier en sortie ne s'ouvre pas...

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
Program concat;
 
Var
  i : Integer;
  f :array[1..255] of text;
  g :text;
  a :string;
Begin
 
  for i := 1 to ParamCount do
  begin 
    if i=1 then
    begin
      assign(g,'concat.tmp'); // ne semble pas le créer sur le dd !
      rewrite(g);
      Writeln(g,'******** Entete *************');
    end;
 
    WriteLn('fichier en entree n° ',i,' ',ParamStr(i));
    assign(f[i],ParamStr(i));
    reset(f[i]);
 
    while not eof(f[i]) do
    begin
        readln(f[i],a);
        writeln(a); // là ça affiche bien à l'écran
        writeln(g,a); // là ça ne me remplit pas le fichier ..
    end;
    close(f[i]);
 
  end; 
 
  close(g);  
  Write('Programme terminé. Enter pour quitter');  
  Readln;  
End.

merci de votre avis ..