Discussion :

[relena93]

bonjour, je voudrais manipuler des fichiers, mais j'ai pas bien compris le tutorial.
le fichier a lire est un fichier qui resemble a une table de base de donner ou un tableau, je ne sais pas comment ecrire se fichier, chaque colonne est d un type different ( string, int, date..). je pensais a faire un fichier d'enregistrement mais j ai pas compris comment on fait. j ai pensez aussi a designer le fichier comme un fichier text avec un ';' pour séparé les différent champs mais la je ne sais pas comment extraire les donners.
je dois mettre les données dans un tableau.

merci

[Loceka]

Je pense qu'un fichier d'enregistrement (record) conviendrait à ton problème.

Voilà 2 pages qui peuvent t'aider :
- Comment déclarer une constante typée de type structuré : record
- manipulation de fichiers

et bien sûr tu peux faire une recherche sur le forum pascal et dans l'aide de ton compilateur, tu trouveras normalement toutes les réponses à tes questions.

[relena93]

J'ai lu les lien que tu ma passer j'ai toujours pas compris comment on realiser un fichier d'enregistrrement.

[Loceka]

Voilà comment on utilise un fichier d'enregistrement :

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
(* déclaration de l'enregistrement *)
type donnee = record
  n : integer;
  s : string;
end;
 
(* déclaration du type de fichier (fichier de l'enregistrement ci-dessus) *)
type fichier_de_donnee = file of donnee; (* fichier d'enregistrement = file of ... *)
 
procedure ecriture(F : fichier_de_donnee, d : donnee);
begin
  Rewrite(F); (* là on crée notre fichier et on l'ouvre en écriture *)
 
  (* on écrit l'enregistrement dans le fichier *)
  write(F,d);
 
  (* ON FERME LE FICHIER ! *)
  close(F);
end;
 
procedure lecture(F : fichier_de_donnee, var d : donnee);
begin
  Reset(F); (* là on ouvre notre fichier en lecture *)
 
  (* on écrit l'enregistrement dans le fichier *)
  read(F,d);
 
  (* ON FERME LE FICHIER ! *)
  close(F);
end;
 
(* déclaration des variables *)
var
  d1, d2 : donnee;
  F : fichier_de_donnee;
 
(* code principal *)
begin
  Assign(F, "C:\donnees.dat"); (* on associe notre fichier à un nom sur le disque *)
 
  (* on remplit les champs de l'enregistrement *)
  d1.n = 1;
  d1.s = "test";
 
  (* affichage de l'enregistrement à l'écran *)
  writeln('notre enregistrement de depart est : n = ', d1.n, ' ; s = ', d1.s);
 
  (* on crée le fichier et on écrit l'enregistrement dedans *)
  ecriture(F, d1);
 
  (* on ouvre le fichier et on lit l'enregistrement que l'on vient d'écrire *)
  lecture(F, d2);
 
  (* affichage de l'enregistrement récupéré à l'écran *)
  write('notre enregistrement lu dans le fichier est : n = ', d2.n, ' ; s = ', d2.s);
end.

Bien sûr ce code est là simplement pour l'exemple. Il n'est pas optimisé et surtout il ne gère pas les problèmes. Il n'est donc pas à reprendre tel quel dans un exercice.

Là je t'ai juste montré comment :

• créer un enregistrement
• créer et écrire dans un fichier d'enregistrement
• ouvrir et lire dans un fichier d'enregistrement

[relena93]

merci je vais essayer ton code