Discussion :

[JoseF]

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

[Ultima]

Bonjour,
Il n'y a aucun problème chez moi (FPC 2.0.4).
J'obtiens bien un fichier concat.tmp qui contient les lignes du fichier 1 ensuite celles du fichier 2.

Pour ouvrir le fichier en sortie, tu peux faire ouvrir avec >> bloc notes ou note pad
Oui sinon, au lieu de mettre une extension tmp, tu mets une extension txt (concat.txt)

[JoseF]

Merci d'avoir essayé

J'utilise WIndows 2000 PRO et Scite comme éditeur et mon FPC est la version 1.0.6
ça ne génère pas de fichier en sortie...


voici ce que dit ma console dos

fichier en entree n░ 1 W:\pgm\LOUISAA.txt
xxx 1
xxx 2
xxx 3
fichier en entree n░ 2 W:\pgm\LOUISBB.txt
yyy 1
yyy 2
yyy 3
Programme terminÚ. Enter pour quitter

ça ne m'était même pas venu à l'esprit que ça pouvait venir d'une version de FPC (vu que le progamme est tellement simple...)

mais je viens de prendre la 2.0.4 et ça ne marche pas mieux !

donc ça vient peut-être de windows 2000 PRO ...

je vais essayer sur mon vieux win98SE !


concernant ouvrir avec je fais envoyer vers scite (quand ça marchera !)

[JoseF]

sous windows 2000 Pro avec la version 1.0.6 ça fonctionnait et je ne l'avais pas vu...

le fichier généré va se loger dans c:\windows\system32

je pensais que de ne pas mettre de chemin, il restait dans le repertoire courant (celui que j'utilise pour glisser-déposer sur mon executable)

en fait c'est ce que je souhaite que mon concat.tmp (par exemple) reste dans le meme dossier

mais j'essaierai quand même sous win98 et XP pour voir si c'est pareil ...

[droggo]

Loz,

sous windows 2000 Pro avec la version 1.0.6 ça fonctionnait et je ne l'avais pas vu...

le fichier généré va se loger dans c:\windows\system32

je pensais que de ne pas mettre de chemin, il restait dans le repertoire courant (celui que j'utilise pour glisser-déposer sur mon executable)

en fait c'est ce que je souhaite que mon concat.tmp (par exemple) reste dans le meme dossier

mais j'essaierai quand même sous win98 et XP pour voir si c'est pareil ...

C'est parce que ton répertoire courant = c:\windows\system32, et c'est celui dans lequel ton application va écrire/lire par défaut.
(essaye à partir d'un autre dossier, ça devrait confirmer)

Soit tu mets un chemin absolu pour le fichier, soit tu commences par récupérer le répertoire d'exécution, et tu crées le chemin+nom de fichier.

Sinon, tu auras régulièrement ce genre de problème.

Je ne sais plus sur quelles versions de Windows se produit ce genre d'inconvénient (toutes ?), mais il faut y faire attention.
Ton problème aura au moins une utilité : tu y feras attention, désormais

[JoseF]

Bonjour,

merci oui la leçon sera bénéfique...

mais le fait que Ultima ait dit

Il n'y a aucun problème chez moi (FPC 2.0.4).

m'a laissé pensé, à tord que j'avais un bug qq. part.

en effet sous Windows 98SE le fichier va se loger sous c:\ à la racine !

alors dernière question, comment récupérer le répertoire d'execution ?


merci