Discussion :

[sebduth]

J'ai un fichier contenant des lignes de texte.
Je ne sais pas à l'avance combien de lignes ce fichier contient.

Je voudrais lire chaque ligne et m'arrêter à la fin sans que ça plante ( ), genre trouver l'équivalent du eof en C, ou qqch comme ça.

J'ai essayé de mettre une étiquette d'erreur mais ça ne marche pas, il plante quand meme à la fin du fichier :

Code :

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

1
2
 
      read(10,*,err=200) Gx,Gy,Gz

Merci!

[DaZumba]

La fin de fichier est detectee automatiquement par READ. Tu peux detecter que READ a rencontre EOF en utilisant le mot-cle IOSTAT=int_var. Lorsque EOF arrive, int_var contient une valeur negative. Alternativement, tu peux utiliser le mot cle END=label pour remplacer ERR=label, puisqu'atteindre la fin d'un fichier n'est pas vraiment une erreur (note que tu peux utiliser IOSTAT, ERR et END ensemble).

Deux remarques:
- lorsque tu lis ton fichier texte, comme tu attends trois valeurs (Gx, Gy, Gz), il faut que la derniere ligne comprenne les trois valeurs. Si EOF arrive apres une seule valeur, par exemple, Gy et Gz garderont les valeurs de la ligne precedente. Ce n'est pas un probleme si ton fichier d'entree est bien construit.

- END ne fonctionne pas sur les fichiers en mode lecture binaire (direct access). C'est evident, puisque c'est une erreur de lire un record qui n'existe pas (comme en C).