Discussion :

[Propyle49]

Bonjour à tous, je suis nouveau sur ce forum.

Je dois développer une appli qui enregistre dans une table les champs d'un fichier texte, dont la structure est la suivante:

colonne colonne colonne colonne
___________________________________________
donnee donnee donnee donnee
donnee donnee donnee donnee
donnee donnee donnee donnee

Voila je ne sais pas du tout comment faire pour différencier chaque champ, sachant qu'aucun caractère spécial ne les sépare, les champs ne sont pas forcément de la même longueur (mais les données d'un même champ si).

Une lecture octet par octet est impossible car le fichier texte est très gros donc ce serait beaucoup trop long. Peut-être y a-t-il une solution ligne par ligne ou paquet par paquet, j'ai essayé pas mal de chose mais j'ai eu aucun résultat satisfaisant.

Merci à ceux qui voudront bien m'aider!
++

[ShaiLeTroll]

il faut un minimum de structure

"les champs ne sont pas forcément de la même longueur (mais les données d'un même champ si)"

ça c'est la clé, tu peux lire le fichier par bloc (record)

Code :

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

1
2
3
4
5
TPropyle49Bloc = packed record
  Champ1: array[0..19] of AnsiChar;
  Champ1: array[0..9] of AnsiChar;
  Champ1: array[0..29] of AnsiChar;
end;

pour lire

Code :

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

1
2
3
4
var
  Bloc: TPropyle49Bloc;
 
Stream.Read(Bloc, SizeOf(Bloc));

cherche sur le forum, c'est méthode a été utilisé récemment !

[Propyle49]

OK merci je vais voir ça!

[Propyle49]

En fait j'ai trouvé une solution beaucoup plus simple!

Il suffit de faire une lecture ligne par ligne, et de supprimer pour chaque ligne les caractères avant et après chaque champ (delete()).

Code :

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

1
2
3
4
5
6
7
while not eof(FichierText) do
  begin    
    readln(FichierText, unChamp);
    Delete(unChamp, 1, nb_octets_avant);
    Delete(unChamp, nb_octets_champ, 256);
    champ1 := unChamp;
    end;