Compter le nombre de colonnes d'un fichier

Version imprimable

10/08/2009, 15h06
you_go

Compter le nombre de colonnes d'un fichier

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

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:

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

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:

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