Charger un fichier text dans un record

**miomikio** · 13/05/2007, 11h47

Salut je suis de retour pour vous embêter un peu

Problème : je dois créer une petite base de données, c-à-d créer un tableau de 5 colonnes.
J'ai créé sans aucun problème un fichier texte mais je dois ouvrir le fichier et charger le tableau pour le transférer dans un fichier binaire ensuite; bref mon problème c'est de charger le tableau du fichier texte dans un record ??? de 5 variables ?? J'espère que vous avez compris.

Le code : creation du fichier text

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
with ada.text_io,ada.integer_text_io,ada.Direct_Io;
use ada.text_io,ada.integer_text_io;
 
 
 
procedure db is 
 
type db_p is record 
id :positive ;
codice:positive;
nome : string(1..20):=(others =>' ');
club:string(1..30):=(others =>' ');
punteggio:positive;
end record ;
 --  package Transport_File is new Ada.Direct_Io (Element_Type => db_p);
  -- use     Transport_File;
 
 
data_base:db_p;
 
code :positive;
i_d :positive;
name :string(1..20);
length :integer ;
club_b: string(1..30);
punt : positive ;
F:file_type;
C:character;
 
 
begin 
 
create(file=>F,mode=>out_file ,name=>"mydate.txt");
 
loop 
 
put(" inedroduce informazione :" );
new_line;
put(" id : ");
get(i_d);
data_base.id:=i_d;
put(f,data_base.id);put(f,"  ");
put(" code : ");
get(code);
data_base.codice:=code;
put(f,data_base.codice);put(f,"  ");skip_line;
put(" name : ");
get_line(name,length);
data_base.nome(1..length):=name(1..length);
put(f,data_base.nome);put(f,"  ");
put(" club : ");
get_line(club_b,length);
data_base.club(1..length):=club_b(1..length);
put(f,data_base.club);put(f,"  ");
put(" punteggio : ");
get(punt);
data_base.punteggio:=punt;
put(f,data_base.punteggio, 1);put(f,"  ");
new_line(f);
Put("Ancora? (S/N)"); Get(C);
Skip_Line;
      exit when C = 'N' or C = 'n';
      END LOOP;
      close (file=> f );
 
 
end db ;