Discussion :

[hammah]

je code en f95, et je doit ouvrir un fichier texte.
Vu comme je compte ouvrir des fichiers pour lecture à plusieurs endroits dans le programme, je veux savoir si c'est possible de créer un subroutine pour ouvrir des fichier. (en passant comme argument le fichier à ouvrir par exemple?)

Je ne pense pas que ce soit possible, mais je voulais être sûr.
Merci

[yogitetradim]

Je ne vois pas pourquoi ce ne serait pas possible ? peut-être ai-je mal compris la question ?
A mon avis, le problème ce n'est pas tant d'ouvrir un fichier... mais de le faire de sorte que tu n'assignes pas plusieurs fois la meme unité à des fichiers différents.
Peux tu préciser ton problème voire nous donner un exemple minimal qui te pousse à croire que ce n'est pas possible ?

[Ladgalen]

Non je pense que ce n'est pas possible d'ouvrir les fichiers dans une subroutine et de les utiliser ailleurs.

Quand le programme rencontre un end (comme à la fin d'une subroutine) il ferme les fichiers ouvert, donc je ne pense pas que ça marche.

D'une manière générale le plus commun est de mettre les ouverture de fichier et les impressions dans le programme principal et les calculs dans des subroutines. Ou alors au contraire, tu calcules ce que tu veux mettre dans un fichier, tu le stockes et tu l'envoies dans une subroutine qui ouvrira le fichier, écrira dedans et le fermera.

Si tu as des données similaires à imprimer tu peux imaginer une subroutine qui reçoit en argument le nom du fichier, le format d'impression et le tableau à imprimer (avec la dimension du tableau) et tu appelle cette subroutine à chaque fois que tu veux imprimer quelque chose. Si tu veux l'appeler plusieurs fois pour le même fichier il faut que tu utilise position="append" dans l'open du fichier pour que ça écrive à la suite et n'écrase pas le contenu du fichier.

[genteur slayer]

cela fonctiontionne à condition d'avoir une mémoire tampon e.g. tu ouvre le fichier, le lit et met sont contenu dans une variable (de type à définir sinon c'est chaine de carac...) ensuite tu bosse sur la variable...
enfin tu a la procedure qui écri ta variable dans le fichier...

[Sylvain Bergeron]

Non je pense que ce n'est pas possible d'ouvrir les fichiers dans une subroutine et de les utiliser ailleurs.

Quand le programme rencontre un end (comme à la fin d'une subroutine) il ferme les fichiers ouvert, donc je ne pense pas que ça marche.

C'est faux.

Un fichier est ouvert au open ou au premier read/write et sera fermer au close
ou à la fin du programme, mais pas de la routine où il a été ouvert.

J'utilise la stratégie suivante très souvent et ça fonctionne très bien :

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
 
module ModuleObjet
   implicit none
   type TObjet
      ...
   end type
 
contains
 
subroutine OuvreFichier(NomFichier)
... open(unit, NomFichier)
end subroutine
 
subroutine LireFichier(Objet, ...,CodeErreur)
... read (...) Objet%Champs1, ...
end subroutine
end module
 
program UseObjet
   use ModuleObjet
   implicit none
   type (TObjet) :: MonObjet
 
   call OuvreFichier('...')
   do
      call LireFichier(MonObjet,,...,CodeErreur)
      if (CodeErreur /= 0) exit
      traitement de MonObjet
   enddo
   call FermeFichier()
   ...

J'utilisais une stratégie semblable en F77, sans module, mais avec des routines externes et ça fonctionnait très bien.

[Ladgalen]

Désolé , mais j'ai bien dis que j'étais pas sur, il me semblait avoir eu un problème à cause de ça une fois ...

J'aime beaucoup ta méthode sylvain, je la trouve très élégante. Le code erreur que tu récupère c'est la valeur de iostat que tu met dans le read ou write ?

Tu as une façon générale d'écrire ton objet pour que ça marche pour tout un tas de donnée ou tu es obligé de l'adapté à chaque fois ?

[Sylvain Bergeron]

Le code erreur que tu récupère c'est la valeur de iostat que tu met dans le read ou write ?

Le code d'erreur correspond généralement au iostat, mais il est possible que je l'enrichisse de validation que j'effectue moi-même sur les données.

Tu as une façon générale d'écrire ton objet pour que ça marche pour tout un tas de donnée ou tu es obligé de l'adapté à chaque fois ?

Disons que je n'ai pas eu un grand succès à développer un module standard, surtout à cause du formatage des données. J'ai donc tendance à utiliser un « modèle » que j'adapte. Contrairement à la solution simplifiée de l'exemple, je travaille généralement avec une variable contenant des informations générales sur le fichier :

Code :

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

1
2
3
4
5
6
 
type TFichier
   character (256) Nom
   integer         Unit
   ...
end type

Cette variable est passée à chaque appel, de sorte que le module peut être utilisé pour plusieurs fichiers à la fois. Par exemple :

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
 
subroutine FichierOuvrir(Fichier,Nom,Erreur)
   type (TFichier), intent(out) :: Fichier
   charcater (*), intent(in) :: Nom
   integer, intent(out) :: Erreur
 
   Fichier%Unit = NewFileUnit()
   Fichier%Nom = Nom
   open(unit=Fichier%Unit, ...,iostat=...)
   return
 
subroutine FichierLire(Fichier,...)
   type (TFichier), intent(inout) :: Fichier
   ...
   read(unit=Fichier%Unit, ...)

De plus, dans ma pratique, j'utilise beaucoup les fichiers .INI (http://fr.wikipedia.org/wiki/Fichier_INI) et les fichiers .CSV (http://fr.wikipedia.org/wiki/Comma-separated_values).

J'ai des modules standards pour manipuler ces fichiers. Les données sont passées sous forme de chaîne de caractères. L'appelant est donc responsable du formatage. J'aurai alors un module dépendant du type de données ayant des routines Ouvrir et Lire, mais l'ouverture et la lecture physique seront cascadées au module INI ou CSV. Par exemple, si les données sont stockées dans un fichier INI, la routine MonObjetOuvrir :

• appelera FichierIniOuvrir, puis
• appelera FichierIniLire pour lire l'entête, puis
• validera que l'entête et acceptable.