Discussion :

[jdavid]

Bonjour,

Je souhaite lire un fichier texte dont les lignes peuvent correspondre à 2 structures différentes:

Exemple:
NO REFART 00125Designation
OR REFART Motif refus

Les 2 premiers char de ligne permettent d'identifier sa structure.

J'ai déclaré :

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
  TStruc_no = record
        type : string[3]
        Ref : string[11]
        Qty : string[5]
        Des : string[50]
     end;
 
  TStruc_or = record
        type : string[3]
        Ref : string[11]
        Motif : string[150]
     end;
 
Var
   ligne_no : TStruc_no;
   ligne_or : Tstruc_or;
   ligne : string;

Dans mon code je voudrais faire :

Code :

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

1
2
3
4
5
6
7
//code
  Readln(fichier,ligne);
  if (copy(ligne,1,2) = 'NO')
    then ligne_NO := ligne;
 
  if (copy(ligne,1,2) = 'OR')
    then ligne_OR := ligne;

mais ça ne fonctionne pas.

Idem pour :

Code :

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

1
2
3
//code
  ligne := ligne_NO;
  wrtieln(fichier,ligne);

Comment dois je faire ?

Par avance merci.

Jérôme

[ALWEBER]

Tu devrais avoir plutôt les infos suivantes :

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
type
  TStruc_no = record
    type1 : string[3];
    Ref : string[11] ;
    Qty : string[5]  ;
    Des : string[50] ;
   end;
 
  TStruc_or = record
    type1 : string[3] ;
    Ref : string[11]  ;
    Motif : string[150] ;
  end;
 
Var
ligne_no : TStruc_no;
ligne_or : Tstruc_or;
ligne : string;
 
begin
 
ligne := 'AMKmlkmlkml' ;
if (copy(ligne,1,2) = 'NO')
  then ligne_NO.type1 := copy(ligne,1,3)
 
....

[Rayek]

Soit l'exemple que tu fournis est faux, soit tu as une erreur dans ton code

car la Ref que tu montres, n'a que 7 caractères maximum et toi tu indiques 11 dans la Ref.

Sinon, le mieux serait peut être de diviser en deux ton fonctionnement.
et de faire 3 types au lieu de 2.

On remarque que dans les 2 structures tu as des données communes donc pourquoi ne pas faire un type commun

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
 
Type Struc_Common = record
  Type : String[3];
  Ref : String[11];
end;
 
Type
  Struc_no = record
        Qty : string[5]
        Des : string[50]
     end;
 
  Struc_or = record
        Motif : string[150]
  end;

Après tu n'as plus qu'a lire tes lignes en plusieurs fois

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
var
  Common : Struc_Common
  ligne_NO : Struc_no
  ligne_OR :Struc_or
begin
  Read(fichier,Common);
  if trim(Common.Type) = 'NO' then
    Read(Fichier,Ligne_NO)
  else
    Read(Fichier,Ligne_OR);
end;

Bien sur c'est à tester et à adapter ^^

[jdavid]

désolé, mais je ne suis pas.

je viens de faire :

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
Type
  Struc_Common = record
      Typ : String[3];
      Ref : String[11];
    end;

  Struc_no = record
        Qty : string[5];
        Des : string[50];
     end;

  Struc_or = record
        Motif : string[150];
     end;

const
  monfichier = 'd:\ess.txt';
var
  Form1: TForm1;
  fichier : file of Struc_Common;
  Common : Struc_Common;
  ligne_NO : Struc_no;
  ligne_OR :Struc_or;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  assignfile(fichier, monfichier);
  reset(fichier);
  read(fichier,common);

  if trim(Common.Typ) = 'NO' then
    Read(Fichier,Ligne_NO)
  else
    Read(Fichier,Ligne_OR);

  close(fichier);
end;

et la compil plante comme dans mes essais précédents :

Code :

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

1
2
    Read(Fichier,Ligne_NO)
    Read(Fichier,Ligne_OR);

Types incompatibles Struc_Common et Struc_No

[ALWEBER]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
  assignfile(fichier, monfichier);
  reset(fichier);
  read(fichier,common);
 
  if trim(Common.Typ) = 'NO' then
    Read(Fichier,Ligne_NO)
  else
    Read(Fichier,Ligne_OR);
 
  close(fichier);

C'est normal que ça plante ! La structure Record que tu utilise est une suite de strings et non pas un découpage d'une seule chaine. Donc tu ne coupes pas aux copy pour découper ta chaîne. Ceci-dit moi-je ferais peut être différement. Donne moi le nombre de lignes par fichier et je te donnerai une solution

[jdavid]

dans mon prog final, j'aurais 5 structures différentes avec 30 à 40 fields / structures.
Dans mon fichier en lecture j'aurais de 1 à x lignes.

Donc je dois bien passer par une découpe de ma chaînes.

Merci quand même

[ShaiLeTroll]

Ah la lecture de fichier structuré, ma spécialité !

La Découpe peut-être entièrement géré par structure, j'ai déjà mis un exemple de code à ce sujet pour les Fichiers NX (CCAM), où il y a environ 200 type de ligne différent avec une dizaine de champ en moyenne, ...

Les Lignes sont-elles complètes ?
Par Exemple une ligne NO fait toujours 69 de longueur (complèté par des espaces par exemple) ou est-ce des longueurs variables ?

le problème d'utiliser des ShortString dans les structures ajoute un octet pour la longueur, de plus, il vaut mieux ajouter la directive packed pour éviter des alignements processeurs ... même si avec le ShortString cela ne devrait pas arriver

Pour le moment, je ne donnerais pas d'exemple, mais sinon je suis pour le moment assez d'accord avec Malatar, mais il faut pour que cela fonctionne des lignes à structure fixe ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Type
  Struc_Common = packed record
      Typ : Array[1..3] of Char;
      Ref : Array[1..11] of Char;
    end;
 
  Struc_no = packed record
        Qty : Array[5] of Char;
        Des : Array[50] of Char;
 
     end;

le Array of Char, normalement, se lit facilement comme une chaine, il est possible de faire "Typ = 'OR'" ou même le passer à une fonction "StrToInt(Qty)"

pour l'écriture c'est un peu plus problématique mais cela se résoud

Code :

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

StringToArrayOfChar('Salut', @ligne_NO.Des[1], Length(ligne_NO.Des));

ou

Code :

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

StringToArrayOfChar(PChar(AString), @ligne_NO.Des[1], Length(ligne_NO.Des));

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
procedure StringToArrayOfChar(const S: string; const AoC: PChar; const LengthAoC: Integer);
var
  LengthS: Integer;
begin
  if LengthAoC <= 0 then
    Exit;
 
  LengthS := Length(S);
  if LengthS < LengthAoC then
  begin
    ZeroMemory(Pointer(Integer(AoC) + LengthS), LengthAoC - LengthS);
    CopyMemory(AoC, @S[1], LengthS);
  end else
  begin
    StrLCopy(AoC, @S[1], LengthAoC);
  end;
end;

[jdavid]

Oui effectivement, je viens de corriger mes erreurs de frappe

tu m'indiques de faire :

ligne_NO.type1 := copy(ligne,1,3)

Mais je voudrais éviter de faire :

ligne_NO.type := copy(ligne,1,3);
ligne_NO.Ref := copy(ligne,4,11);
ligne_NO.Qty := copy(ligne,15,5);
....


J'ai en réalité beaucoup de fields, donc je souhaiterais affecter la ligne à la structure.

Est-il possible de faire un

ligne_no := ligne; ?

pour ensuite pouvoir exploiter les éléments de la structure.