Discussion :

[afafo]

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

[FR119492]

Salut!

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

[afafo]

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

[LittleOwl]

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 :

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

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 :

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

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

Bonne continuation