Discussion :

[the watcher]

Salut les amis,
Je souhaite lire & écrit dans un fichier texte. Mias là où je suis un peu perdu est que mon code :

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
Procedure Enregistre;
begin
    Table[NE].N:=Form1.EditNom.Text;
    Table[NE].P:=Form1.EditPrenoms.Text;
    Table[NE].DTN:=Form1.EditDtNaiss.Text;
    Table[NE].L:=Form1.EditLieu.Text;
    Chr(13);
end;
 
procedure TForm1.QuitterClick(Sender: TObject);
begin
   if
   (EditNom.Text+EditPrenoms.Text+EditDtNaiss.Text<>'')
    then   Enregistre;
          Rewrite(F);
          For I:=1 to NbEnr do
          Write(F,Table[I]);
          CloseFile(F);
      Application.Terminate;
 
end;

suivant écrit mais pas comme je le souhaite dans mon fichier. Je voudrais avoir mes données sur plusieurs lignes de cette manière;
nom, prénoms, date de naissance, lieu de laissance
nom, prénoms, date de naissance, lieu de laissance
etc..
mais au conntraire mon programme les a écrit au kilométrique

Voici mon code pour la lecture :

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
procedure TForm1.FormActivate(Sender: TObject);
begin
      Adresse.Clear;
      AssignFile(F,'C:\Badges.txt');
      {$I-}
      Reset(F);
      {$I-}
      NE:=1;
      if IOResult=0 then
        begin
          repeat
            Read(F,Enreg);
              Table[NE]:=Enreg;
              NE:=NE+1;
            Until Eof(F);
            NbEnr:=NE-1;{Nombre d'enrégistrement dans le fichier}
            CloseFile(F);
            NE:=1;{Numéro de l'enrégistrement courant}
            Affiche(NE);{Affichage du premier enrégistrement}
        end
        else
        begin
          with Enreg do
            begin
              Table[1].N:='';
              Table[1].P:='';
              Table[1].DTN:='';
              Table[1].L:='';
            end;
            NbEnr:=1;
          end;
end;

Ça fonctionne mais avec la manière dont je souhaiterais avoir les données je crois qu'il risque d'avoir un bug.

[ShaiLeTroll]

Personnellement voir, des Reset dans un Activate et son Close sans un Event ... j'ai un peu de mal ... une fonction de lecture, avec chargement en mémoire pour l'affichage, une fonction d'écriture ... on ne laisse le fichier ouvert tout le temps comme ça (sauf en db mais c'est un serveur robuste qui tourne pas un QuitterClick ...)

ton Chr(13); ne sert à rien ...

Ensuite, si tu utilise un tableau de structure, j'ai fait quelque chose de similaire pour des tests (désolé c'est du code pourri de test, moins clean que du code de prod) ... je load le fichier dans une listbox, puis je veux modifier un item, je le modifie à la volée ... d'ailleurs dommage de ne pas avoir fourni la structure, cela aurait aidé à comprendre ..

Code :

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

1
2
3
4
5
6
7
type
   TStructRec = packed record
      ID: Integer;
      Nom: string[50];
      Memo: string[255];
      Date: TDateTime;
   end;

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
procedure TFrmTestFichier.BtnLoadClick(Sender: TObject);
var
   Fichier: file of TStructRec;
   TmpStructRec: TStructRec;
   i: Integer;
begin
   if not FileExists(EdPathStructFile.Text) then begin
      ListBoxRecords.Items.Clear();
      ListBoxRecords.Items.Add('New');
      Exit; // Rien à Charger
   end else begin
      ListBoxRecords.Items.Clear();
      ListBoxRecords.Items.Add('New');
 
      AssignFile(Fichier, EdPathStructFile.Text);
      Reset(Fichier); //
      try
         while not Eof(Fichier) do begin
            Read(Fichier, TmpStructRec);
            i := ListBoxRecords.Items.Add(IntToStr(TmpStructRec.ID) + ' : ' + TmpStructRec.Nom);
            ListBoxRecords.Items.Objects[i] := Pointer(TmpStructRec.ID);
         end;
      finally
        CloseFile(Fichier);
      end;
   end;
end;
 
 
procedure TFrmTestFichier.BtnEcrireClick(Sender: TObject);
var
   Fichier: file of TStructRec;
   TmpStructRec: TStructRec;
begin
   ZeroMemory(@TmpStructRec, SizeOf(TmpStructRec));
   TmpStructRec.ID := StrToInt(EdID.Text);
   TmpStructRec.Nom := EdName.Text;
   TmpStructRec.Memo := EdMemo.Text;
   TmpStructRec.Date := Now();
 
 
   AssignFile(Fichier, EdPathStructFile.Text);
   if not FileExists(EdPathStructFile.Text) then begin
      ReWrite(Fichier);
   end else begin
      Reset(Fichier);
      Seek(Fichier, TmpStructRec.ID); // Magique le BlockSize est SizeOf(TStructRec); mais faudrait peut-être un test de longueur de fichier ...
   end;
   try
      Write(Fichier, TmpStructRec);
   finally
      CloseFile(Fichier);
   end;
 
   BtnLoad.Click();
end;

Et Comme toi, c'est un fichier binaire, tout à fait normal, ...

donc pour toi je dirais de modifier

Code :

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

Table[NE].EndMark := #13#10; // EndMark étant un String[2];

[Pedro]

Salut
Si le fichier texte est relativement court, utilise une TStringList C'est beaucoup plus facile
Pour plus d'infos

[Yurck]

Je voudrais avoir mes données sur plusieurs lignes

Bonjour,
Tu souhaites pouvoir lire ton fichier dans un éditeur ?

Remplaces le write par writeln et read par readln

a+

[ShaiLeTroll]

Pour le moment, il semble écrire des Structures ... ça lui compliquerait la vie d'ajouter un Parsing pour découper les buffer lu dans un Fichier Texte via TStringList ou TextFile ...

Ensuite, il semble ne stocker QUE des chaines, il suffit d'ajouter deux octets pour avoir des lignes bon tout dépend si l'on déclare des Chaines Courtes qui vont ajouter leur longueur (du coup binaire) ou des Array[0..Max] of Char qui seront brut de décoffrage ...

[the watcher]

yurck a écrit

Tu souhaites pouvoir lire ton fichier dans un éditeur ?

Remplaces le write par writeln et read par readln

J'ai en éffet fais cela

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.QuitterClick(Sender: TObject);
begin
   if
   (EditNom.Text+EditPrenoms.Text+EditDtNaiss.Text<>'')
    then   Enregistre;
          Rewrite(F);
          For I:=1 to NbEnr do
          Writeln(F,Table[I]);
          CloseFile(F);
      Application.Terminate;
end;

Impossible de compiler le prog :
Type illegal dans une fonction write/writeln

[the watcher]

j'oubliais:
Voici mes déclarations :

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
Type
  Txt = record
    N, P : String[20];// Nom et Prenom
    DTN : String[10];//Date de naissance
    L : String[30];//Lieu de naissance
    T : String[20];
    M : String[20];
    end;
var
  Form1: TForm1;
  F : File of Txt;
  Enreg : Txt;
  Table : Array[1..100] of Txt;
  NE : LongInt; {Numéro de l'enrégistrement courant}
  NbEnr : Integer; {Nombre d'enrégistrement}
  I : Integer;
  Ligne : String;
 
implementation

[CapJack]

NB :

1) ton Chr(13) tout seul dans une procédure n'a aucun effet !

2) Un fichier typé n'a jamais, au grand jamais, produit un fichier texte.

Étudie la différence entre fichiers typés et fichiers texte.

[Yurck]

yurck a écrit des conneries

Impossible de compiler le prog :
Type illegal dans une fonction write/writeln

Désolé, utilises alors la solution de ShaiLeTroll (voir ci dessus) qui reste dans la même philosophie et me semble être la + rapide à mettre en place.

Code :

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

1
2
Table[NE].EndMark := #13#10; // EndMark étant un String[2];

a+

[ShaiLeTroll]

Personnellement, je n'ai toujours pas compris quel était le vrai format du fichier, ...

Code :

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

Le problème est que ce fichier est créer et rempli par un autre programme écrit dans un autre langage.

si un extrait d'un fichier de quelques enrecs était fourni on pourrait répondre, car j'ai vraiement l'impression qu'il y a confusion ...