Problème de lecture partielle d'un fichier

Version imprimable

29/11/2007, 23h34
erloroloco

Problème de lecture partielle d'un fichier

Salut,

j´ai un fichier *.dat avec text et numéros. Voilà un example:

1
2
3
ici
2
0

Le problème est que je veux seulement entrer/utiliser le 2 et le 0 dans F90, qui appareitent après le mot ici. Je ne sais pas, quelle est la procedure correcte. Un do while (a.neq.='ici') peut etre combinée avec la saltation à la prochain ligne pour lire le 2 et le 0? Un peu d´aide si vous plait:-(

Excusez moi pour le mauvais franÇais.

Bonjour,

et bien ce que tu proposes est la bonne idée.
Tu dois faire une lecture sur ton fichier, réaliser un test sur les trois premiers caractères. et en fonction du résultat (si ligne=="ICI") changer le format de lecture.
Ce qui peut s'écrire ainsi.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
program Lecture
!déclaration des variables
implicit none
 
character(len=10)::ligne
integer::io,iligne=1
!j'ai considéré que tu avais au moins 10 valeurs à lire après "ici"
integer::v(10)=0
 
!ouverture fichier
open(10,File="data")
 
Boucle1:do
   read(10,*,iostat=io)ligne
   if(io/=0)exit
!test présence ici
   if(ligne(1:3)=="ici")then
      write(*,*)"début stockage"
!on entre dans la boucle de lecture des variables
      Boucle2 :do   
         read(10,*,iostat=io)v(iligne)
         if(io/=0)exit
!on incrémente le compteur de ligne
         iligne=iligne+1
      end do Boucle2
   end if
end do Boucle1
!test si on obtient bien ce qu'on voulait
write(*,*)v(1:2)
 
end program Lecture

30/11/2007, 10h34
DaZumba

Citation:

Envoyé par yogitetradim

Ce qui peut s'écrire ainsi.

J'aurais plutot utilise un logical qui indique qu'on est dans la section ou les variables doivent etre lues, plutot qu'une double boucle.

Une autre possibilite

EUREKA! Je pense que C'est une solution très élégante yogitetradim J'ai trouvé une autre plus "quick&dirty fix" si on connaît la ligne ou le data commence après ici, n1.
Code:

1 2 3 4 5 6 7 8 9 10 test=' ' DO WHILE(test.ne.'ici') READ(UNIT=70,*) test !print*,test END DO DO k=1,n READ(70,*) Data(n1+k) !n1: jump to specified line in file Datax(k) = Data(n1+k) END DO CLOSE(70)
Je vous remercie :-) À tout a l'heure