Discussion :

[jal13]

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

[FR119492]

Salut!
En fait, ton problème n'est pas lié à l'instruction WRITE mais à la lecture de ton fichier. Le mieux me semble être de lire successivement toutes les zones, chacune venant écraser la précédente. Dans l'instruction READ, tu utilises le paramètre END pour détecter que tu es à la fin de ton fichier. A ce moment, il te reste en mémoire le contenu de la dernière zone.
Jean-Marc Blanc

[jal13]

Parfait merci

J'ai changé et ca fonctionne