Optimisation de lecture de fichier

Bonjour,

Je voudrais regrouper les deux programmes suivant en un seul :

1er programme :

Code:

---

1 2 3 4 5 6

open(2, file='filename', form='formatted',access='sequential',iostat=ios) read(2,*) read(2,*) read (2,'(a3,i3,a4,i1,a4,i3)') char1, Nbi, char2, Nbj, char3, Nbk   read(2,'(a12,a12)') chara, type_fichier

---

2 ème programme :

Code:

---

1 2 3 4 5 6

open(2, file='filename', form='formatted',access='sequential',iostat=ios) read(2,*) read(2,*) read (2,'(a20,15,a12,i6)') char1, Nbi, char2, Nbj   read(2,'(a12,a12)') chara, type_fichier

---

le problème réside dans la lecture de la troisième ligne, qui contient des informations que je souhaite conserver, et je ne peux connaitre le type de fichier que lorsqu'il lit la dernière ligne (type_fichier).

existe t-il une commande qui permette de lire toutes les informations de cette ligne sans que je doive préciser le format?

si vous avez une suggestion, ou une idée, faites m'en part !

Merci
Manal

question toute bête: j'imagine que tu ne peut changer l'ordre de rangement dans tes fichiers à lire... sinon il serai plus simple de mettre le type de fichier AVANT les données pour faire quelque chose du style:

Code:

---

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

open(2, file='filename', form='formatted',access='sequential',iostat=ios) read(2,*) read(2,*) read(2,'(a12,a12)') chara, type_fichier if (type_ficher=='format1') then read (2,'(a3,i3,a4,i1,a4,i3)') char1, Nbi, char2, Nbj, char3, Nbk else if (type_ficher=='format2') then read (2,'(a20,i5,a12,i6)') char1, Nbi, char2, Nbj else print*,"Erreur: format inconnu" end if

---

sinon... c'est pas très 'beau' comme programmation mais tu peux lire en deux fois:

Code:

---

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

open(2, file='filename', form='formatted',access='sequential',iostat=ios) read(2,*) read(2,*) read(2,*) !Là, je ne lit rien, exprès read(2,'(a12,a12)') chara, type_fichier rewind(2) !rembobine le fichier ! et on recommence: read(2,*) read(2,*) if (type_ficher=='format1') then read (2,'(a3,i3,a4,i1,a4,i3)') char1, Nbi, char2, Nbj, char3, Nbk else if (type_ficher=='format2') then read (2,'(a20,i5,a12,i6)') char1, Nbi, char2, Nbj else print*,"Erreur: format inconnu" end if

---

voilà...

Bonjour,

j'aimerai tellement pouvoir le faire! malheureusement, ces programmes sont déstinés à servir en industrie! donc du coup, les gens vont pas commencer à intervertir les lignes !

sinon tu n'aurais pas une quelconque idée?

j'ai pensé à la variable type (genre structure de tableau) pour qu'il me stocke toutes mes variables, et puis ensuite je mets une boucle d'instruction if.

Manal

bin dans ma seconde solution, si 'type_fichier' contient bien le nombre de variable, cela doit marcher!

Merci pour l'idée de relire une 2ème fois!

Mon programme marche très bien maintenant !

Merci encore!