Discussion :

[cfalcot]

Bonjour,

Il est possible lorsque l'on dispose d'un fichier en binaire de remplire une structure (recodre) d'un coup. On lit toute la structure d'un coup au lieu de lire valeur par valeur.
exemple:

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
Type
  TAquaPro = record
    sync: byte;
    id: byte;
    size: word;
    Date: array[1..6] of byte;
//[...]
    Humidite: word;
    CheckSumMOT: smallint;
end;
 
var
  mesureAquaPro:TAquaPro ; 
 
begin
[...]
//Lecture directe:
Buffer.Read(mesureAquaPro, sizeOf(mesureAquaPro));

Existe il une commande pour faire la meme chose si le fichier est en ASCII? Ou une astuce...

[Philippe Gormand]

Bonjour.

Peux tu préciser exactement ce que tu veux faire ?

Charger un fichier texte dans tableau de chaines de caracteres, dans un TStringList... Les longueurs des lignes de textes sont elles connues ou connait ont la longueur maximale des lignes ?
Selon les caratéristiques du fichier texte, cela peut changer complètement la méthode et la vitesse d'exécution du code.

A+

[cfalcot]

Ben en fait je dispose d'une suite de valeures de type TdateTime et real dont l'ordre et le nombre sont connus (1 TdateTime et au max 100 real). Le separateur est l'espace. Pour l'instant j'ouvre mon fichier avec un TextFile et j'affecte les valeur une a une:

Code :

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

1
2
3
4
5
6
7
8
 
For j :=0 to NbMesure do
begin
  read(TextFile, Record.DateTime[j]);
  For i := 0 to 99 do
    read(TextFile, Record.valeur[j, i]);
  readln(TextFile);
end;

Je voudrais faire un truc plus simple du genre:

Code :

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

1
2
 
read(JeSaisPasQuoi, Record);

C'est plus claire?

[Philippe Gormand]

Ha ! Oui, c'est plus clair.

Il s'agit donc de charger un fichier binaire dans une structure (Record) puis d'en extraire les données.

Je t'envois un exemple concret dans la journée.

A+

[cfalcot]

NONON!!!
Justement en binaire je sait faire. C'est si le fichier est en ASCII que je ne sais pas faire...

C'était pas assez claire en fait

[Philippe Gormand]

Alors, quelque chose comme cela

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
 
Var
  ListesParametre  : TStringList;
  I                : Integer;
  Chn1, Chn2, Chn3 : String;
 
begin
  // Créer un objet StringList temporaire
   ListesParametre := TStringList.Create;
   ListeParametres.LoadFromFile(NomFichierParametres);
   For I := 0 To ListeParametres.Count - 1 Do
    begin
       // Extraire les données
 
    end;
  // Détruire l'objet temporaire
  ListeParametres.Free;
end;

Ou bien :

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
 
Var
  ListesParametre  : TStringList;
  I                : Integer;
  Chn1, Chn2, Chn3 : String;
 
begin
    // Créer un objet StringList temporaire
   ListesParametre := TStringList.Create;
   ListeParametres.LoadFromFile(NomFichierParametres);
   I := ListeParametres.Count;
   If I >= 3 Then
    begin
       Chn1 := ListeParametres[0];
       Chn2 := ListeParametres[1];
       Chn3 := ListeParametres[2]; 
    end;
  // Détruire l'objet temporaire
  ListeParametres.Free;
end;

[cfalcot]

Sauf si ListesParametre est lisible via un

Code :

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

ListesParametre.Read(mesureAquaPro, sizeOf(mesureAquaPro));

je vais devoir extraire les données une a une (et du coup je ne voie pas l'interet de ces méthodes ).

En fait la aussi je dois a un moment donné affecter toutes les variables de mon record une a une. Ma question est de savoir si il existe une methode permettant d'eviter cette tache assez laborieurse.

En binaire, le

Code :

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

Buffer.Read(mesureAquaPro, sizeOf(mesureAquaPro));

permet déliminer l'affectation une a une des variables du record. Une fois que je suis passer par cette unique ligne, je peut travailler avec n'importe quelle valeur de mon recode: elle sont toutes affectées avec les valeurs contenue dans le flux.

Je voudrais affecter toutes les valeurs d'un record a partir d'un fichier text ASCII en une seule ligne...

[Philippe Gormand]

Si ta structure est semblable à celle ci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Type
  TAquaPro = record
    sync: byte;
    id: byte;
    size: word;
    Date: array[1..6] of byte;
//[...]
    Humidite: word;
    CheckSumMOT: smallint;
end;

Tu ne peux pas faire autrement que de lire ligne par ligne la liste de chaines et de convertir les données.
Si par contre c'est une structure de chaines de caractères, c'est différent.
D'où ma question précédente :

Charger un fichier texte dans tableau de chaines de caracteres, dans un TStringList... Les longueurs des lignes de textes sont elles connues ou connait ont la longueur maximale des lignes ?
Selon les caratéristiques du fichier texte, cela peut changer complètement la méthode et la vitesse d'exécution du code.

Petit rapel :
Un fichier texte, est une suite d'octets dont la délimitation de chaque ensemble (Chaîne) est terminé par un octet #13.

L'intéret d'utiliser un TStringList, est de simplier considérablement le code pour charger un fichier texte puisque :

Code :

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

1
2
 
Liste.LoadFromFile(Nom);

Plutôt que :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
AssignFile(TextFile,Nom);
Reset(TextFile);
 
For j :=0 to NbMesure do
begin
  read(TextFile, Record.DateTime[j]);
  For i := 0 to 99 do
    read(TextFile, Record.valeur[j, i]);
  readln(TextFile);
end

A+

[cfalcot]

Le truc c'est que une fois que le fichier est charger, je doit tout de meme affecter les valeur du record une à une: dans tous les cas l'étape fastidieuse (affectation de tous les champs du record) doit etre faite. Maintenant il est possible que la methode que tu propose soit plus rapide...

Merci en tout cas!

[Reisubar]

Une idée : utiliser effectivement une TStringList pour charger le fichier et coder l'enregistrement sur une ligne. Chaque ligne de l'objet contient donc un set de données propre.

Après, utiliser un caractère spécial comme séparateur (par exemple "|"). Décoder la chaîne en utilisant la fonction de la RTL ExtractStrings. Pour chaque "bout de chaine" extrait, l'associer au champ correspondant du record...