Discussion :

[calidor]

Bonjour,

J'ai un fichier que je souhaite lire qui fait plus de 2 millions de lignes... Il est sous cette forme:
nom1 1 1234
nom1 2 12345
nom2 1 234
etc....

Je souhaite lire le fichier et avoir un tableau de la sorte: nom1(1)=1234 nom1(2)=12345 et nom2(1)=234...

Si je fais un read(1,*) text(i),val1(i),val(2)
évidemmment, ça ne marche pas.

Je cale lamentablement!
Merci de votre aide.

[kango]

bonjour,

- est ce que le nombre de "nom" est fixe ou est ce qu'il peut varier d'un fichier à l'autre ?

- est ce que le nombre de lignes pour un "nom" donné est fixe ou peut varier d'un "nom" à l'autre ?

[calidor]

bonjour,

- est ce que le nombre de "nom" est fixe ou est ce qu'il peut varier d'un fichier à l'autre ?

- est ce que le nombre de lignes pour un "nom" donné est fixe ou peut varier d'un "nom" à l'autre ?

"nom" est une chaine de caractères et j'ai environ 280 chaines de caractères différentes.
C'est un fichier avec des comptages routiers: 280 boucles de comptages avec chacune un nom différent et pour chaque boucle, à chaque heure de l'année un nombre de véhicules associé.

[kango]

tu ne réponds pas vraiment aux questions

tu dis que tu as environ 280 "noms" différents, cette information tu la connais avant d'ouvrir le fichier ?

combien de lignes tu as pour chaque "nom" ?

[Sylvain Bergeron]

Avant même d'essayer de lire, il faut que tu établisse une représentation interne pour tes données.

La solution naïve consistant à avoir un tableau pour chaque nom est à éviter. Compte tenu du nombre élevé de nom possible, le programme deviendrait monstrueux.

Peux-tu représenter les données dans un tableau de la forme :

Tableau( Nom, DateHeure) = Nombre de véhicule

Le nombre de Nom semble fini, environ 280 ? Le nombre d'heure ? 24*366 ?

Fortran n'est pas très bien adapté à traiter nativement ce genre de problème. La solution la plus robuste est d'utiliser des listes liées, mais tu perds alors les avantages du Fortran (manipulation de tableau, ...).

Si le nombre de Nom est limité et que le nombre de DateHeure est aussi fini, tu pourrais utiliser la stratégie suivante :

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
23
24
25
26
27
28
29
30
31
 
program xxx
   implicit none
   integer Tableau(300,24*366)
   character (8) Item
   character (8) ListeDesNoms(300)
   integer NbrNoms = 0
   integer DateHeure
   integer NbrVehicule
   ...
   do
      read (...) Item, DateHeure, NbrVehicule
      if (fin des données) exit
      k = IndexNom(Item)
      Tableau(k,DateHeure) = NbrVehicule
...
contains
   integer IndexNom(s)
      j = 1
      do while (j < NbrNoms)
         if (ListeDesNoms(j) == s) then
            IndexNom = j
            return
         endif
         j = j + 1
      enddo
      NbrNoms = NbrNoms + 1
      ListeDesNoms(NbrNoms) = s
      IndexNom = NbrNoms
      end function
...

[Sylvain Bergeron]

Oups!

Dans le contains, j'ai oublié de mettre le mot "function". La ligne :

• integer IndexNom(s)

devient donc :

• integer function IndexNom(s)