Variabiliser données string d'un fichier

Version imprimable

Bonjour,

Je cherche à récupérer des variables issues d'un fichier log.
Ce fichier log comporte des enregistrements sur deux lignes :
Nom
Prenom
il comporte 160 enregistrements. (320 lignes).

Dans le programme principal, je déclare un type d'enregistrement sur deux lignes, un file of type d'enregistrement sur deux lignes, un tableau d'enregistrements sur deux lignes.

Je fais un boucle for avec un seul tour, et lorsque je lis le contenu de l'enregsitrement, c'est plus de 4 fois un enregistrement?

Toute aide est bienvenue.
Code:

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 program TableauString; {$MODE DELPHI} uses sysutils; type PPersonne = record Nom, Prenom : string[20]; end; DataString = array of PPersonne; Fichier = file of PPersonne; var Enregistrement : Fichier; DataS : PPersonne; StringDatas : DataString; k : Integer; cpt : Integer; begin Datas.Nom := ''; Datas.Prenom := ''; writeln('Combien d''enregistrements de noms et prenoms voulez-vous charger?'); readln(k); assign(Enregistrement,'datastring.log'); reset(Enregistrement); for Cpt := 1 to k do begin read(enregistrement,Datas); write(DataS.Nom); //write(DataS.Prenom); end; {/rof} close(Enregistrement) end.
Code:

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 Butcher Mike Millar Kevin Bleacher Bob Slusarski Joe Butcher Mike Millar Kevin Cross Don Miller Damian Butcher Mike Millar Kevin Cross Don Miller ... ... etc ....
Citation:

./tableauString
Combien d'enregistrements de noms et prenoms voulez-vous charger?
1
utcher
Mike
Millar
Kevin
Bleacher
Bob
Sluvin
Bleacher
Bob
Slu

:aie:

03/04/2009, 13h37
droggo

Boe,

Les fichiers log sont des fichiers pur texte, pas des fichiers d'enregistrements au sens du Pascal.

Il faut les lire ligne par ligne, pas d'autre solution (sauf si tu veux parser toi-même les lignes, en lisant octet/octet, et en testant les séparations de lignes).

Merci Droggo pour l'éclairage.

J'ai changé l'extension du fichier datasring.log en fichier datasring.pas et refondu mon fichier source.
Reste plus qu'à l'implementer comme procedure de chargement de variables.

Merci ;)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 program ChargementId; {$MODE DELPHI} type fichiernom = text; var k : Integer; cpt : Integer; r : fichiernom; s : string; begin writeln('Combien d''enregistrements de noms et prenoms voulez-vous charger?'); readln(k); assign(r,'datastring.pas'); reset(r); for cpt := 1 to k do begin readln(r,s); writeln(s); end; {/rof} close(r) end.

03/04/2009, 21h41
droggo
Voe,

1) Pourquoi renommer ton fichier avec une extension .pas, qui ne correspond pas à son contenu ?
Inutile et trompeur.

2) Pourquoi définir
Code:

1 2 type fichiernom = text;
qui donne à un type un nom qui ne correspond pas à son usage (le nom d'un fichier est une chaîne de caractère) ?
Inutile et trompeur.

3) Il faut sécuriser toutes les lectures dans ton fichier, en vérifiant que les accès ne génèrent pas d'erreur, idem pour l'appel de Reset.

Merci Droggo de me donner une ligne de conduite à tenir en programmation, j'aime bien le principe ;)

Citation:

Envoyé par droggo

Voe,

1) Pourquoi renommer ton fichier avec une extension .pas, qui ne correspond pas à son contenu ?
Inutile et trompeur.

J'avais regardé un vieil exemple d'un fichier source pascal tournant sous Turbo Pascal 4, qui utilisait un fichier .pas pour récupérer des données, les extensions de fichiers sont importantes sous Microsoft, je suis sous Linux, mais c'est pas une excuse ...
Citation:
Envoyé par droggo
2) Pourquoi définir
Code:

1 2 type fichiernom = text;
qui donne à un type un nom qui ne correspond pas à son usage (le nom d'un fichier est une chaîne de caractère) ?
Inutile et trompeur.
Je me suis emmêlé les pinceaux, à force de tourner avec six ou huit sources différentes, je voulais donner comme nom de type, un fichier de noms.

Citation:

Envoyé par droggo

3) Il faut sécuriser toutes les lectures dans ton fichier, en vérifiant que les accès ne génèrent pas d'erreur, idem pour l'appel de Reset.

Sécurisé, c'est tant que je ne suis pas devant le eof(r) (* La fin de fichier r *)
faire traitement.

J'ai rajouté un type enregistrement qui contient deux elements de type string, un tableau de type enregistrement.
Cela permet de récupérer les futurs variables.
Code:

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 program ChargementId; {$MODE DELPHI} type fichierdedonnees = text; RPersonnes = record Nom,Prenom : String; end; {/Drocer} ARPers = array of RPersonnes; var k : Integer; cpt : Integer; tmp : Integer; r : fichierdedonnees; s : string; MonTableauPersonnes : ARPers; begin writeln('Combien d''enregistrements de noms et prenoms voulez-vous charger?'); readln(k); setlength(MonTableauPersonnes,k+1); assign(r,'datastring.log'); reset(r); cpt := 1; tmp := cpt; while (tmp < k * 2 ) do // deux elements par enregistrement begin if eof(r) then begin writeln('Nous sommes en Fin de Fichier (ligne ',tmp-1,') appuyer sur Return'); readln; break end else begin readln(r,s); MonTableauPersonnes[cpt].Nom := s; inc(tmp); readln(r,s); MonTableauPersonnes[cpt].Prenom := s; inc(tmp); inc(cpt); end; {/Fi} end; {/Elihw} writeln(tmp-1,' lignes survolees dans le fichier');writeln; writeln('Affichage des strings variabilises dans des enregistrements :');writeln; for tmp := 1 to k do begin writeln('--------------------------------------------':42); writeln('- ',MonTableauPersonnes[tmp].Nom:42); writeln('++++++++++++++++++++++++++++++++++++++++++++':42); writeln('- ',MonTableauPersonnes[tmp].Prenom:42); writeln('--------------------------------------------':42); end; {/Rof} close(r) end.

Noe,

La définition du type

Code:

fichiernom = text;

est toujours inutile, ton fichier est de type text, c'est suffisamment clair.

Je n'ai pas vérifié le code, mais je vois une indentation qui décale trop les blocs imbriqués. 2 ou 4 caractères sont suffisant pour la clarté, et ça évite de trop étaler le code sur l'écran.
Il faut également aérer un peu en séparant les blocs logiques par des lignes vides.

Voici un exemple de ce que ça peut donner :

Code:

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
program ChargementId;
{$MODE DELPHI}
 
type
  fichierdedonnees = Text;
  RPersonnes = record
    Nom, Prenom: string;
  end;
  {/Drocer}  
  ARPers = array of RPersonnes;
 
var
  k : integer;
  cpt : integer;
  tmp : integer;
  r : fichierdedonnees;
  s : string;  
  MonTableauPersonnes : ARPers;
 
begin
  Writeln('Combien d''enregistrements de noms et prenoms voulez-vous charger?');
  Readln(k);
  SetLength(MonTableauPersonnes, k + 1);
 
  Assign(r, 'datastring.log');
  Reset(r);
  cpt := 1;
  tmp := cpt;
  while (tmp < k * 2) do // deux elements par enregistrement
  begin
    if Eof(r) then
    begin
      Writeln('Nous sommes en Fin de Fichier (ligne ',
        tmp - 1,') appuyer sur Return');
      Readln;
      Break
    end
    else
    begin
      Readln(r, s);
      MonTableauPersonnes[cpt].Nom := s;
      Inc(tmp);
      Readln(r, s);
      MonTableauPersonnes[cpt].Prenom := s;
      Inc(tmp);
      Inc(cpt);            
    end;
    {/Fi}
  end;
 
  {/Elihw}
  Writeln(tmp - 1,' lignes survolees dans le fichier');
  Writeln;
  Writeln('Affichage des strings variabilises dans des enregistrements :');
  Writeln;
  for tmp := 1 to k do
  begin
    Writeln('--------------------------------------------': 42);
    Writeln('- ', MonTableauPersonnes[tmp].Nom: 42);
    Writeln('++++++++++++++++++++++++++++++++++++++++++++': 42);
    Writeln('- ', MonTableauPersonnes[tmp].Prenom: 42);
    Writeln('--------------------------------------------': 42);
  end;
 
  {/Rof}
  Close(r)
end.

Et bien entendu, la meilleure solution pour améliorer la lisibilité est de découper tout ça en fonctions/procédures, ET de mettre des commentaires. :)