Discussion :

[manaliac]

Bonjour,

Je voudrais regrouper les deux programmes suivant en un seul :

1er programme :

Code :

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

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 :

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

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

[genteur slayer]

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 :

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

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 :

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
 
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à...

[manaliac]

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

[genteur slayer]

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

[manaliac]

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

Mon programme marche très bien maintenant !

Merci encore!