lecture de fichier avec fortran

Version imprimable

28/11/2013, 18h07
afafo

lecture de fichier avec fortran

Bonjour,
Je suis débutant en fortran, je souhaite lire des valeurs dans un fichier dont les lignes ressembles à :

TSB 1.2003 1.048 3.2222 5.5555 8.2154

et donc je souhaite écrire un programme qui me cherche TSB dans ce fichier et me donne la première valeur qui trouve après TSB (1.2003 dans ce cas d'exemple).
Merci d'avance pour votre aide
28/11/2013, 23h05
FR119492

Salut!

Citation:

qui me cherche TSB

Ta formulation est peu claire. Est-ce que ça signifie que chaque ligne commence par 3 lettres et que tu cherches celle qui commence par TSB?
Jean-Marc Blanc
29/11/2013, 10h08
afafo

Citation:

Envoyé par FR119492

Salut!

Ta formulation est peu claire. Est-ce que ça signifie que chaque ligne commence par 3 lettres et que tu cherches celle qui commence par TSB?
Jean-Marc Blanc

Bonjour,
En fait, j'ai un fichier qui contient un jeu de donnés donc il est composé de plusieurs lignes de type :
TSB 1.2003 1.048 3.2222 5.5555 8.2154
SDVBT 2.0336 0.001 1.0329 0.0121 2.0047
et donc chaque ligne commence par un mot qui peut être composé de 3 ou de plusieurs caractères.
et moi je veux extraire quelques données de ce fichier. par exemple je veux que ce programme me dit c'est quoi le premier chiffre qu'il trouve après le mot TSB dans ce fichier.
TBS c'est juste un exemple!!
Merci d'avance

Bonsoir,

J'ai supposé que votre fichier a la structure suivante :
1) la première colonne est constituée de label d'au moins 3 caractères
2) les 5 colonnes suivantes contiennent des valeurs numériques réelles

Le code suivant extrait du fichier les valeurs numériques correspondant aux lignes dont le label est préfixé par la chaine ref (ref = "TSB" dans votre exemple).
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 program data_extraction implicit none character(len = 3), parameter :: ref = "TSB" character(len = 3) :: label = "" real, dimension(5) :: values integer :: err open(unit = 10, file = "mydata", iostat = err) do while (err == 0) if (label == ref) then print *,values(1) end if read(10,*,iostat = err) label, values end do close(10) end program data_extraction
Si vous souhaitez sélectionner les lignes étiquetées exactement par le label ref, vous pouvez utiliser les déclarations suivantes pour ref et label :
Code:

1 2 3 4 5 ... character(len = 4), parameter :: ref ="TSB " character(len = 4) :: label = "" ...
Bonne continuation