Discussion :

[manaliac]

Bonjour,

je dois lire un fichier texte qui ressemble à ceci :

VARIABLES = "X"
"Y"
"Z"
ZONE T="Zone 1 : D=0 (1) [ 1] I=0 (3.655000e+05)"

STRANDID=0, SOLUTIONTIME=0
I=45, J=30, K=61, ZONETYPE=Ordered


4.822499630E-001 4.847710010E-001 4.873359680E-001 4.899449830E-001 4.925979850E-001
.........

ZONE T="Zone 2 : D=0 (1) [ 1] I=0 (3.655000e+05)"

STRANDID=0, SOLUTIONTIME=0
I=45, J=30, K=61, ZONETYPE=Ordered

4.822499630E-001 4.847710010E-001 4.873359680E-001 4.899449830E-001 4.925979850E-001
............

Seulement je ne suis pas sensée connaitre le nombre de zone en début de fichier, il me faudrait parcourir tout le fichier, et compter le nombre d'occurence de la chaine de caractères 'ZONE T'.

Est ce que vous auriez une idée de comment procéder à faire tout cela?

Merci de votre aide!

Manal

[Sylvain Bergeron]

Tu dois lire le fichier ligne par ligne dans une variable caractère avec le format A et tu teste à chaque fois si le contenu de la variable est ce que tu cherches... Ça ressemblera à :

Code :

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

1
2
3
4
5
6
7
8
9
 
character (256) :: Ligne
...
do
   read(22,'(a)',iostat=k) Ligne
   if (k /= 0) exit
   if (Ligne(1:6) == 'ZONE T') Nbr = Nbr + 1
enddo
...

[manaliac]

Ce que je ne comprends, c'est ou il va stocker le nombre de "Zone T" ?

Code :

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

1
2
3
4
5
6
7
8
9
10
 
character (256) :: Ligne
integer Nbr
...
do
   read(22,'(a)',iostat=k) Ligne
   if (k /= 0) exit
   if (Ligne(1:6) == 'ZONE T') Nbr = Nbr + 1
enddo
...

Je voudrais qu'il compte l'occurence de la chaine de caractères "Zone T" dans le fichier, et mon fichier contient à peu près 210000 lignes, et plusieurs "ZONE T".

Merci

[Sylvain Bergeron]

Ce que je ne comprends, c'est ou il va stocker le nombre de "Zone T" ?

Le nombre d'occurence est dans la variable Nbr. De là, ça dépend de ce que tu fais de la variable. Tu peux par exemple l'afficher :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
character (256) :: Ligne
integer Nbr
...
Nbr = 0
do
   read(22,'(a)',iostat=k) Ligne
   if (k /= 0) exit
   if (Ligne(1:6) == 'ZONE T') Nbr = Nbr + 1
enddo
write(*,*)'La chaîne "ZONE T" apparait ',Nbr,' fois dans le fichier.'
...

[manaliac]

Salut,

En effet, tu avais raison.

Merci beaucoup de ton aide ! (je retiendrai ce code jusqu'à ma fin de programmeuse )

Manal