Bonjour
Je voulais savoir comment on peut faire pour imprimer seulement la dernière zone d'une fichier.
EN fait je lis un fichier qui a plusieurs zones (le nombre est aléatoire et varie en fonction des cas). Le fichier résultat se présente comme suit

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
ZONE T = "1    ", I = 41 , J = 41, F=POINT
 0.0000     3.000        0.0000     0.05000    0.05000    
 0.07500    3.000        0.0000     0.05000    0.05000    
 0.1500     3.000        0.0000     0.05000    0.05000    
 0.2250     3.000        0.0000     0.2288     0.5144     
 0.3000     3.000        0.0000     0.02185    0.1008  
.....
ZONE T = "5.633     ", I = 41 , J = 41, F=POINT
 0.0000     3.000        0.0000     0.05000    0.05000    
 0.07500    3.000        0.0000     0.05000    0.05000    
 0.1500     3.000        0.0000     0.05000    0.05000    
 0.2250     3.000        0.0000     0.2288     0.5144     
 0.3000     3.000        0.0000     0.02185    0.1008
J'ai produit le code suivant mais j'ai besoin uniquement de la dernière
zone, donc il faut que j'arrive a extraire uniquement la derniere zone et pas comme je fais ci dessous où j'imprime toutes les zones

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
 
       do kkk=1,999
 
      Read(90,3,end=888) time,nx,nz
  3   format(11x,f10.0,6x,i3,5x,i3)
 
      write(91,30) time,nx,nz
  30  format(1x,'ZONE T=" ',e15.3,'", I = ',i5,
     +    ',K = ',i5, ', F=POINT')     
      write(91,4) (x2(ii),z2(ii),so2(ii),(xmoln(ii,k),k=1,3),ii=1,nn)
  4   format(1X,6e15.5)
 
  888 continue
 
      end do
Merci pour votre aide