Discussion :

[cre31400]

Bonjour,

J'ai vraiment besoin de votre aide là!
J'ai un fichier .csv contenant environ 1000 lignes, mais seulement une trentaine sont intéressantes pour moi. il est structuré de cette manière :

environ 1000lignes qui me servent à rien
[espace][espace]<name>name1</name>
quelques lignes
[espace][espace]<coordinate>longitude1,lattitude1</coordinate>
quelques lignes
[espace][espace]<name>name2</name>
quelques lignes
[espace][espace]<coordinate>longitude2,lattitude2</coordinate>
quelques lignes
[espace][espace]<name>name3</name>
quelques lignes
[espace][espace]<coordinate>longitude3,lattitude3</coordinate>
etc...

J'aurai besoin d'en extraires les lignes avec les noms et coordonnées pour avoir au final quelque chose comme cela:
[espace][espace]<name>name1</name>
[espace][espace]<coordinate>longitude1,lattitude1</coordinate>
[espace][espace]<name>name2</name>
[espace][espace]<coordinate>longitude2,lattitude2</coordinate>
[espace][espace]<name>name3</name>
[espace][espace]<coordinate>longitude3,lattitude3</coordinate>

Quelqu'un aurait-il une piste svp ?? Le truc c'est d'extraire les lignes contenant <name> et <coordinate>. C'est possible avec fortran ?

Merci infiniment !

[Sylvain Bergeron]

La technique est simple :

• Tu lis chaque ligne dans une variable caractère
• Tu vérifies avec index si le contenu est intéressant

Ça aura l'air de ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
character (len=1000) Ligne
...
open(11,...,form='formatted',...)
open(12,...)
do
   read(11,'(a)', iostat=k) Ligne
   if (k /= 0) exit
   k = index(Ligne,'<name>')
   if (k == 0) k = index(Ligne,'<coordinate>')
   if (k == 0) cycle
   write(12,'(a)') trim(Ligne)
enddo
...

[Sylvain Bergeron]

En passant : ce n'est pas un fichier CSV mais un fichier XML.

[cre31400]

alors je ne comprends pas toutes les commandes dont tu as parlé, par exemple index? qu'est ce que cela fait?

[Sylvain Bergeron]

http://fortran.developpez.com/

[marie_p]

Bonjour cre31400 et Sylvain Bergeron, je ne sais pas si c'est vraiment autorisé ici, mais je tiens à vous remercier, l'un pour avoir posé la question, l'autre pour y avoir répondu si clairement, j'ai la solution à mon problème !
A bientôt.