Discussion :

[pierrot2908]

à tous
J'aimerai savoir comment enregistrer une liste dans un fichier.
Je ne veux pas la stocker dans un tableau.
je souhaite utiliser Ada.Sequential_Io. Cependant je ne comprend pas bien son fonctionnement

Merci d'avance

[Lowelace]

Bonjour,


Ada.Sequential_Io est un paquetage générique qui permet d'écrire séquentiellement des "données" dans un fichier que je nommerai de binaire : ce n'est pas du texte.

Pour l'utilisation de ce paquetage, il faut tout d'abord l'instancier :

Code :

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

1
2
3
 
 
package My_item_io is new Ada.Sequential_io(My_Item);

Ensuite, il faut créer un fichier :

Code :

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

1
2
3
4
 
My_file : My_item_io.File_Type;
begin
My_item_Io.Create(My_file, My_item_io.Out_File, "Mon_Fichier");

Puis ecrire les items un après l'autre :

Code :

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

1
2
3
4
5
6
7
8
 
while not "fin de ma liste" loop
   My_Item_Io.Write(My_file, "l'élément courant de ma liste");
  "mon élément courant" := "l'élement suivant";
end loop;
 
-- Fermer le fichier.
My_item_io.Close(My_file);

Pour lire même principe, en remplacant Write par Read.
Avant de lire un fichier, il faut d'abord l'ouvrir (Open) s'il est fermé, ou alors faire un Reset pour changer le mode d'accès au fichier et le réinitialiser au début s'il n'est pas fermé.

J'espère avoir été complet.
Bonne chance .

[pierrot2908]

merci bcp

[pierrot2908]

Salut
Une petite question comment pressiser que l'on se trouve a la fin d'un fichier sequential
merci

[Lowelace]

Bonjour,

Il suffit de tester (exemple):

Code :

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

1
2
3
4
5
 
 
while not My_item_io.End_of_file(My_file) loop
...
end loop

[pierrot2908]

Merci!!!!
TROP BIEN ca MARCHE...