Discussion :

[Orlando72]

Bonjour
j'ai un fichier de données qui j'ai obtenu a partir d'un programme de calcul. Ce fichier output contient plusieurs paramètres du modèle à calculer.
personnellement je m'intéresse à utiliser seulement les paramètres suivants:
yr mo da origin lat n lon w depth rms erh erz

exemple:
......
.....
yr mo da origin lat n lon w depth rms erh erz
82 4 9 1711 43.16 36 18.332 1 38.288 8.888 0.07 0.44 1.69
.....
.....
yr mo da origin lat n lon w depth rms erh erz
82- 4- 9 1919 37.62 36 18.743 1 38.071 5.014 0.10 0.37 1.86
....
....
etc...

ma question est:

comment extraire les valeurs de ces paramètres de ce fichier et les mettre dans un nouveau pour les exploiter a postériori?


Merci par avance

Orlando

[Sylvain Bergeron]

Si je comprends bien la question, tu as un fichier dont tu veux extraire la première ligne suivant chaque occurrence de la chaine "yr mo da origin lat n lon w depth rms erh erz". Les lignes ainsi extraites doivent être copier dans un deuxième fichier. Est-ce bien cela ?

Si oui :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
character (100) Ligne
...
open(11,'input.dat',status='old')
open(12,'output.dat',status='new')
do
  read (11,'(a)',iostat=k) Ligne
  if (k /= 0) exit
  if (Ligne == 'yr mo da origin lat n lon w depth rms erh erz') then
    read(11,'(a)') Ligne
    write(12,'(a)') trim(Ligne)
  endif
enddo