Discussion :

[Yin Zhen]

Bonjour

Je programme des outils pour la simulation moléculaire, et pour ce faire, j'ai besoin de faire charger des éléments de bibliothèque sous forme de fichier texte (par ex des fichiers de configuration de morceaux de molécule) par un programme fortran 2003 (compilateur Intel 10.1 64bits sous Windows).

Bien-sûr, ces fichiers textes sont rangés dans des répertoires dédiés, et pour que le programme fortran charge tous les fichiers du répertoire, j'ai placé, pour chaque répertoire, tous les noms de fichier dans un fichier texte "Liste.txt", ce qui oblige l'utilisateur à mettre à jour ce fichier à chaque enrichissement de la bibliothèque.

Je souhaiterais faire charger par mon programme tous les fichiers présents dans le répertoire : est-il possible en Fortran de lister les noms de fichier ?

Une possibilité serait peut-être d'appeler, par la routine fortran "system", un programme Perl ou Python qui créerait ce fichier liste automatiquement avant que le programme fortran l'utilise. L'un de ces deux langages en est-il capable ? L'appel "System" attend-t-il que l'instruction DOS qu'elle envoie soit terminée avant de poursuivre ?

Cette solution semble un peu tordue , quelqu'un connaît-il une approche plus élégante ??

D'avance merci beaucoup


Yin Zhen

[Ladgalen]

Je pense effectivement que la meilleure solution est d'utiliser une commande système. Et en ce qui concerne tes inquiétude, oui lorsque tu fais un call system le programme attend que l'exécution de ce que tu as demandé dans le call system soit finies. Pour la suite je suis désolé mais c'est des commandes linux ... (ls -l affiche le contenue du dossier sous forme de liste)

Tu peux faire un truc du genre

Code :

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

call system( "ls -l > liste.txt")

Ensuite à toi de lire correctement liste.txt. Si tu as plusieurs dossier et sous dossier, tu peux commencer par faire un ls -l qui te donne la liste des dossiers que tu lies et que tu stocke dans une variable, par exemple un vecteur dossier(i) et ensuite tu lis dans chaque dossier :

Code :

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

1
2
3
4
 
Do i=1,ndossier
     call system( "ls -l "//dossier(i)//" > liste"//dossier(i)//".txt")
Enddo

Ou alors si tu veux un seul fichier liste.txt

Code :

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

1
2
3
4
 
Do i=1,ndossier
     call system( "ls -l "//dossier(i)//" >> liste.txt")
Enddo

Si tu fais ça je te conseille d'appliquer la fonction trim au nom des dossiers pour supprimer les espaces qui peuvent causer pas mal de souci !

Bon courage

[genteur slayer]

le truc c'est qu'il est sous windows et donc "ls" n'existe pas (fo remplacer par "dir").

cependant, sous XP, j'ai testé, les pipes existe donc:

Code :

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

call system( "dir > liste.txt")

(+fioriture si besoin)

le truc super chiant c'est le format du fichier généré... là, soit y a des option de dir (mais j'en doute) soit fo que le prog fortran remouline le fichier pour enlevé ce qui ne sert pas...

[Yin Zhen]

Merci beaucoup !!!

En effet, autant utiliser les possibilités du système (DOS ou Unix ou autre...) sans aller chercher du Perl.

En toute chose la simplicité est une vertu.

J'essaie tout de suite...

Yin Zhen

[Sylvain Bergeron]

...

Code :

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

call system( "dir > liste.txt")

...
le truc super chiant c'est le format du fichier généré... là, soit y a des option de dir (mais j'en doute) soit fo que le prog fortran remouline le fichier pour enlevé ce qui ne sert pas...

On y est presque : L'option, c'est /b. Donc, il faut faire :

Code :

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

call system( "dir /b *.txt > liste.txt")

Et là, le fichier ne contient que les noms de fichier dans une colonne.

Dernière suggestion : Il serait avantageux d'utiliser un nom de fichier avec une extension différente (par exemple : .tmp) pour éviter que liste.txt se retrouve lui-même dans la liste...

[Yin Zhen]

Merci pour tous ces conseils...

En fait, à partir d'un "dir" envoyé dans un fichier ".txt", j'ai pu me débrouiller avec le Fortran en repérant la position de la première lettre des noms de fichier, avec des instructions du style :

Code :

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

1
2
3
4
5
open(1,file='...',blank='ZERO')
...
read(1,fmt='(A100)') ligne
nom_fichier(i)=ligne(37:)
...

Ce n'est peut-être pas très portable, mais ça marche chez moi.

Merci encore

Yin Zhen