Discussion :

[you_go]

Bonjour,

Je possède un fichier contenant des données numériques rangées en colonnes, séparées par un ou plusieurs espaces.

Etant donné qu'il peut y avoir un nombre important de colonnes (jusqu'à plusieurs centaines), j'aimerais trouver un moyen de compter le nombre de colonnes de mon fichier.

Je sais qu'on peut facilement compter le nombre de lignes d'un fichier en Fortran 90 avec la fonction read, mais je n'arrive pas à faire de même pour les colonnes.

Pourriez-vous m'aider ?

Merci

[genteur slayer]

et bien si toutes tes lignes ont le même nombre colonne, tu peux faire un truc du style:
- read de la première ligne stocké dans une chaine de carac
- tu compte le nombre d'espaces

vu qu'à parament il est possible que tu ait plusieur espaces entre tes données, tu ne compte que le premier.
cela donne quelquechose du style:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
character(len=10000) :: toto !il te faut une chaine suffisament grande
integer i,Ncarac,Ncolonne
read(25,*)toto
toto=trim(toto) !pour enlever les espaces de fin
ncarac=len(toto)
Ncolonne=1
do i=2,N
  if ((toto(i)==' ').and.(toto(i-1)/=' ') Ncolonne=ncolonne+1
end do

bon je suis pas sûr que la fonction trim ne vire pas TOUS les espaces de la chaine.. à vérifier

[you_go]

Merci de ta réponse genteur slayer.

J'ai apporté quelques modifications à ton code, et ça marche.

Voilà le code pour ceux que ça intéresse.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
     integer :: nb   ! nombres de colonnes du fichier
     integer :: ierr  
     character(len=10000) :: string ! chaine a lire
     integer :: i
 
     read(10,fmt="(a)",iostat=ierr) string
     nb = 1
     do i = 2, len_trim(string)
        if ( (string(i:i)==' ') .and. (string(i-1:i-1) /= ' ') ) then
           nb=nb+1
        end if
     end do

Merci encore