Lecture d'un fichier texte en colonnes (espace ou tabulation)

Bonjour à tous.

Je souhaite pouvoir lire une fichier texte tabulé de six colonnes. J'ai donc mon bout de code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure ChargerDepts; var CodeDept : Integer; REGION, DEP, CHEFLIEU, TNCC, NCC, NCCENR: string; begin assign(UserFile, 'depts2010.txt'); reset(UserFile); CodeDept := 0; Repeat Readln(UserFile, REGION, DEP, CHEFLIEU, TNCC, NCC, NCCENR); Departements[CodeDept] := DEP + '-' + NCC; //Form1.ComboBox1.Items.Add(DEP + '-' + NCC); Until Eof(UserFile); Close(UserFile); end;

---

Or, lorsque je déroule mon ComboBox1, j'ai une liste de N tirets au lieu de "01-AIN" pour le premier élément.

Ma question est donc : la syntaxe est-elle la bonne? Et est-ce que c'est faisable?

Merci d'avance:ccool:.

Joa,

Non, tu ne peux pas lire plusieurs variables de type String avec un Read (ou ReadLn).

Comme la 1ère variable de la liste à lire est de type String, toute la ligne va y être entrée.

À toi de lire la ligne, et de la découper en tes différentes variables. :(

Bon tant pis.:cry:

Merci pour la réponse.
Je demandais car sur ce site http://www.wonko.info/ipt/sse/pascal/pascal12.htm, il le laisse croire.

Mai,

Tu peux facilement contrôler ce que j'ai dit en vérifiant le contenu de ta première variable lue, REGION.

Qui ne contiendra pas forcément TOUTE la ligne si cette variable ne dispose pas de suffisamment de place, mais elle contiendra du début de la ligne à sa longueur max. :)

On peut lire plusieurs variables sur une seule ligne avec ReadLn, mais il faut que la ligne puisse être découpée logiquement.
On peut par exemple avoir une ligne comme
121 36.6e12 -1 ET la suite...
et la lire avec

Code:

---

1 2 3 4 5 6 7 8

var n : Integer; r : Real; i : Integer; s : String   ... ReadLn(le_fichier,n,r,i,s)

---

Tu remarques qu'on peut lire une chaîne, mais seule la dernière partie d'une ligne peut y être lue, car en natif, TOUS les caractères étant valides dans une String de Pascal, on ne dispose d'aucun moyen pour séparer une chaîne en d'autres chaînes.
Il faut en passer par une fonction qui va faire le découpage.
C'est simple à faire, et c'est un exercice qu'on donne souvent à faire.

Citation:

---

Envoyé par zoom*

[CODE]
Readln(UserFile, REGION, DEP, CHEFLIEU, TNCC, NCC, NCCENR);

---

Pour comprendre ce que dit droggo, tu peux considerer le fichier suivant

Code:

---

1 2	1452 15 centaurus ttnc ncc nccer

---

Supposer que les variables REGION, ... contiendront les valeurs adéquates revient à dire que readln devinera que tu veux qu'il découpe la chaine en 6 morceaux en utilisant la tabulation comme separateur. La question serait de savoir pourquoi ne copierait il pas toute la ligne dans une variable, ou utilise un autre separateur pour decouper la chaine?

La solution serait de lire toute la chaine dans une variable, puis d'utiliser une fonction

Code:

---

1 2	split(chaine : string; separ : char; ind : integer) : string;

---

pour recuprer la partie de la chaine que tu veux.

Citation:

---

Envoyé par droggo

Code:

---

1 2 3 4 5 6 7 8

var n : Integer; r : Real; i : Integer; s : String   ... ReadLn(le_fichier,n,r,i,s)

---

---

Je me demandais s'il est permis de lire des integer et des real avec readln dans un fichier text.

Hia,

Bien sûr, exactement comme au clavier, qui n'est jamais qu'un "fichier" avec un statut spécial. :)

Citation:

---

Envoyé par droggo

Hia,

Bien sûr, exactement comme au clavier, qui n'est jamais qu'un "fichier" avec un statut spécial. :)

---

Mon inquietude etait surtout au fait que les compilateurs utilise un format special pour serialisé les données. Si on ecrit par exemple 1.25 dans un fichier text, et si le compilateur utilise par exemple 32 byte pour les real, je suppose que faire readln(f, reel) provoquera une erreur.

Mais bon, je vais tester tout ça quand j'aurais freepascal sous la main.

Joa,

Le cas qui nous intéresse ici n'est pas la lecture dans un fichier binaire, mais dans un fichier texte. :)