Enregistrement d'un tableau (array) dans un fichier texte

Version imprimable

08/01/2006, 00h00
BECHE

Enregistrement d'un tableau (array) dans un fichier texte

Voila, je me demande quelle est la méthode pour enregistrer les valeurs d'un tableau du genre

Code:

tab:Array[1..100] of intenger;

dans un fichier texte sur une ligne du genre

Code:

Writeln(F,IntToStr(tab[1]),IntToStr(tab[2]),.......);

D'une part, la longueur et d'autre part le nombre d'index du tableau n'est pas forcement le maxi déclaré

Je suppose qu'il faut placer une boucle for mais où, comment ?

Merci d'avance
08/01/2006, 00h31
bjl
Bonjour,

si vous n'utilisez pas toujours les 100 items de votre tableau, utilisez un tableau dynamique

tab : Array of integer;

attention, il faudra gérer vous même la longueur à l'aide de la fonction setlength

Autre point : vous commencez le tableau à l'index 1. en général, sous delphi, les tableaux commencent à l'index 0 (ce serait le cas avec un tableau dynamique)

au niveau de la boucle, utilisez un string que vous remplissez et que vous recopierez ensuite.
Code:

1 2 3 4 5 6 7 8 9 10 Var Index : Integer; S : String; begin . . S := ''; // initialise le string; For Index := 1 to 100 do S := S + IntToStr(Tab[Index]; Writeln(F, S);
Attention, les valeurs 1 et 100 de la boucle sont explicitement celles de votre tableau.

Par contre, dites ce que vous comptez en faire : laà vous allez obtenit une suite de chiffres (si vos valeurs sont des nombres à plusieurs chiffres, il sera impossible de savoir ou ils commencent à la lecture). il faut peut être prévoir des séparateurs.
09/01/2006, 10h33
LadyWasky
Writeln écrit et passe à la ligne, pour ne pas passer à la ligne, il faut utiliser Write tout court !

Ainsi, pour ce qui t'intéresse, vous devrez écrire :
Code:

1 2 3 4 5 6 7 Var I : Integer; begin ... ... for I := 1 to 100 do Write(F, tab[I]); end;
celà écrira tous les éléments du tableau sur la même ligne (sans espace qui les sépare)

Dans le cas ou vous souhaitez rajouter un espace derrière chaque élément :
Code:

1 2 3 4 5 6 7 Var I : Integer; begin ... ... for I := 1 to 100 do Write(F, tab[I],' '); end;
Vous pouvez terminez l'écriture dans le fichier avec un saut de ligne supplémentaire comme ceci :
Code:

1 2 3 4 5 6 7 8 Var I : Integer; begin ... ... for I := 1 to 100 do Write(F, tab[I],' '); writeln(F); end;
Bon codage :)
09/01/2006, 13h40
Andry
Citation:
Envoyé par waskol

Writeln écrit et passe à la ligne, pour ne pas passer à la ligne, il faut utiliser Write tout court !

Ainsi, pour ce qui t'intéresse, vous devrez écrire :

Code:

1 2 3 4 5 6 7 Var I : Integer; begin ... ... for I := 1 to 100 do Write(F, tab[I]); end;

celà écrira tous les éléments du tableau sur la même ligne (sans espace qui les sépare)

Dans le cas ou vous souhaitez rajouter un espace derrière chaque élément :

Code:

1 2 3 4 5 6 7 Var I : Integer; begin ... ... for I := 1 to 100 do Write(F, tab[I],' '); end;

Vous pouvez terminez l'écriture dans le fichier avec un saut de ligne supplémentaire comme ceci :

Code:

1 2 3 4 5 6 7 8 Var I : Integer; begin ... ... for I := 1 to 100 do Write(F, tab[I],' '); writeln(F); end;

Bon codage :)
Le code est peut être correcte mais si t'as 1000 elements tu vas ecrire milles fois sur disque.
Pourquoi ne pas utiliser une variable temporaire, construire la ligne à ecrire et ensuite ecrire une fois sur disque.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Var I : Integer; StrTemp : String; begin ... ... StrTemp := ''; for I := 1 to 100 do StrTemp := StrTemp + ' '+ tab[i] ; Writeln(F, StrTemp); end;
A+

Oui, cela correspond à ce bjl a écrit, et c'est exactement ce que je souhaitais faire, en prenant soin de mettre un ';' en 2 données, ce qui me permet d'écrire par la suite le même type de données en dessous (le tout sera exploité par excel)
Par contre, j'ai eu plus de difficuté pour gérer le tableau dynamique mais avec l'embryon d'information et la recherche sur 'developpez.com' je pense avoir une solution correcte.
Ci après cette solution .Je la mets en réponse (avant de placer un résolu) telle est ma modeste contribution car je trouve ce forum vraiment extra.
J'en profite pour remercier sincèrement toutes les personnes qui alimentent ce forum en DONNANT (choses rares de nos jours) , de leur temps, et leur aide pour des débutants comme moi.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Var Tab:array of Integer; //déclaré précedemment pour l'alimenter F: TextFile; ind:integer; ligne: string; begin Ligne:=''; //initialisation de variable ligne Ligne:= TimeToStr(Now); //mettre l'heure dans variable ligne setlength(tab,1000); For ind:=Low(tab) to High(tab) do Ligne:=Ligne+';'+ FloatTostr(tab[ind]); if not FileExists(Fich) then exit; //contrôle de l'existence du fichier Assign(F,Fich); Append(F); Writeln(F,ligne); //écrire la ligne variable temporaire dans le fichier à la fin Close(F); end;
Encore une fois , un gros MERCI et bonne année à tous

Salut à tous,
J'ai beaucoup aimé cette discussion, mais j'ai une préoccupation: comment mettre sur un fichier texte un tableau d'enregistrement?
exemple:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 type Tpersonne=record nom :string[20]; pnom :string[20]; prenom :string[20]; age :byte; sexe :string[10]; adresse:string[70]; tel :extended; end;
Je compte sur vous!

Citation:

Envoyé par masala

Je compte sur vous!

Bonjour ! C'est gentil de compter sur nous mais il y a des cours sur le sujet : le mieux serait de les consulter.

http://pascal.developpez.com/cours/c...ge=pg_Fichiers
http://turbo-pascal.developpez.com/t...anier_fichier/
http://pascal.developpez.com/exercices/?page=Sect7

Pour sauvegarder un tableau d'enregistrements dans un fichier, le plus simple est d'utiliser un fichier du type file of MonType. Maintenant si vous voulez un fichier texte, je pense qu'il n'y a pas d'autre solution que d'écrire une à une les données de chaque enregistrement. Un exemple vite fait pour montrer le principe :
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 68 69 program exemple; { Écrire et lire un tableau d'enregistrements dans un fichier texte. } uses SysUtils; type TEnreg = record i: integer; s: shortstring; end; var arr: array[0..2] of TEnreg; fich: Text; index: integer; begin Randomize; { Remplir le tableau de valeurs aléatoires. } for index := Low(arr) to High(arr) do begin arr[index].i := Random(100); arr[index].s := 'A' + IntToStr(Random(100)); end; { Sauvegarder le tableau dans un fichier texte. } AssignFile(fich, 'fichier.txt'); Rewrite(fich); for index := Low(arr) to High(arr) do begin WriteLn(fich, arr[index].i); WriteLn(fich, arr[index].s); end; { Effacer le contenu du tableau. } for index := Low(arr) to High(arr) do begin arr[index].i := 0; arr[index].s := ''; end; { Recharger le tableau à partir du fichier. } Reset(fich); for index := Low(arr) to High(arr) do begin ReadLn(fich, arr[index].i); ReadLn(fich, arr[index].s); end; { Afficher le contenu du tableau. } for index := Low(arr) to High(arr) do begin WriteLn(arr[index].i); WriteLn(arr[index].s); end; CloseFile(fich); ReadLn; end.

15/04/2016, 16h35
guillemouze
Juste une petite remarque ... 10 ans après.
Les tableaux sont contigus en mémoire, donc on peut écrire tout d'un seul bloc, en utilisant un TFileStream :
Code:

1 2 3 4 5 6 var f: TFileStream; begin f := TFileStream.Create(AFilename, fmCreate or fmShareExclusive); f.write(ATab[0], Length(ATab) * SizeOf(ATab[0])); f.Free;
22/04/2016, 02h49
masala
Citation:
Envoyé par guillemouze

Juste une petite remarque ... 10 ans après.
Les tableaux sont contigus en mémoire, donc on peut écrire tout d'un seul bloc, en utilisant un TFileStream :

Code:

1 2 3 4 5 6 var f: TFileStream; begin f := TFileStream.Create(AFilename, fmCreate or fmShareExclusive); f.write(ATab[0], Length(ATab) * SizeOf(ATab[0])); f.Free;
Merci beaucoup!
j'aimerai apprendre davantage sur le " TFILESTREAM" expliquez-vous un peu bien avec un code plus precis (exemple d'une application banale). le Tfilestream est-il valable pour la version de delphi que j'utilise? je travaille sous Dephi7.
merci.

Le filestream est bien dispo en D7.
l'exemple que je t'ai donné est assez complet, il ne manque pas grand chose. Après la touche F1 t'en dira beaucoup plus.
Cadeau, un fileStream pour ton type :

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
 
type
  Tpersonne=record
    nom    :string[20];
    pnom   :string[20];
    prenom :string[20];
    age    :byte;
    sexe   :string[10];
    adresse:string[70];
    tel      :extended;
  end;
 
  TpersonneDynArray = array of Tpersonne;
 
...
 
procedure SavePersonneArray(const AFilename: string; const AArray: TpersonneDynArray);
var
  f: TFileStream;
begin
  f := TFileStream.Create(AFilename, fmCreate or fmShareExclusive);
  f.write(AArray[0], Length(AArray) * SizeOf(AArray[0]));
  f.Free;
end;
 
function LoadPersonneArray(const AFilename: string): TpersonneDynArray;
var
  f: TFileStream;
begin
  if FileExists(AFilename) then
  begin
    f := TFileStream.Create(AFilename, fmOpenRead or fmShareDenyWrite);
    SetLength(Result, f.Size div SizeOf(TPersonne));
    f.Read(Result[0], Length(Result) * SizeOf(Result[0]));
    f.Free;
  end
  else
    SetLength(Result, 0);
end;

26/04/2016, 00h52
masala

Merci beaucoup,
Je vais l'essayer et de le developper un peu plus. Grace à vous, j'avance petit à petit en delphi.
Je vous remercie! mais comprenez mon insistance, j'suis encore progr'amateur!!!