Discussion :

[alfnet]

Salut,

J'ai vus dans plusieurs tutos que pour écrire le contenu d'un tableau de RECORD dans un fichier séquentiel, on utilise qque chose comme:

Code :

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

1
2
3
4
5
6
7
8
9
PROCEDURE Tab2File (VAR tab:tIndividu ; VAR fOut : fIndividu; lt : INTEGER);
(* Tab initialsé, fOut assigné et fermé, lt>0 *)
VAR i:INTEGER;
BEGIN
   REWRITE (fOut);
   FOR i := 1 TO lt DO
      WRITE (fOut, tab[i]);
   CLOSE (fOut);
END;

Alors que pour écrire le contenu d'un fichier séquentiel dans un tableau de RECORD, on utilise qque chose comme:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
PROCEDURE File2Tab (VAR fIn : fIndividu, VAR tabOut:tIndividu );
VAR i:INTEGER;
 
BEGIN
   i:=0;
   RESET (fIn);
   WHILE NOT eof(fIn) DO
      BEGIN
         i:=i+1;
         READ (fIn, tabOut[i]);
      END;
   CLOSE (fIn);
END;

J'aurais voulu savoir s'il y avait un rapport entre

Code :

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

WRITE (fOut, tab[i]);

et

Code :

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

READ (fIn, tabOut[i]);

En d'autres termes, doit-on toujours utiliser WRITE pour écrire dans un fichier ce que l'on a lu dans un tableau et READ pour écrire dans un tableau ce qu'on a lu dans un fichier?

L'instruction de type

Code :

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

READ (tab[i], fOut);

aurait-elle comme effet d'écrire dans le fichier, ce qui vient du tableau et

Code :

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

WRITE (tabOut[i], fIn);

d'écrire dans le tableau ce qui a été lu dans le fichier?

Merci d'avance pour votre aide à toutes et tous...

[Alcatîz]

Bonjour et bienvenue !

Pour lire le contenu d'un fichier (en général, donc pas seulement dans le cas que tu présentes), ce dernier doit avoir été ouvert en lecture avec Reset et il faut utiliser la procédure Read (ou ReadLn) pour lire.
Pour écrire dans un fichier, ce dernier doit avoir été ouvert en écriture avec Reset ou Append et il faut utiliser la procédure Write (ou WriteLn) pour écrire.

[ALT]

Mmmmm.
Rafraîchis donc ma mémoire : Rewrite n'est-il pas fait pour créer un fichier (ou vider un fichier avant d'écrire dedans) ?

[droggo]

Hie,

Mmmmm.
Rafraîchis donc ma mémoire : Rewrite n'est-il pas fait pour créer un fichier (ou vider un fichier avant d'écrire dedans) ?

C'est bien ça.

Par défaut, Reset ouvre un fichier binaire en lecture/écriture, et en lecture seulement pour les fichiers texte.

[Alcatîz]

J'ai corrigé mon lapsus dans le post en question : point question évidemment de rewrite pour ouvrir le fichier en écriture, mais bien reset.
Merci de votre vigilance...