Discussion :

[ylonar]

Bonjour, j'ai un problème pour un programme que je fais en fortran...

Je voudrais que le programme lise les dossiers présents, demande lequel il doit traiter, puis mette dans un fichier texte le nom des fichiers à l'intérieur de ce dossier.
(Basiquement, il dois ouvrir le Dossier1, et créer un fichier contenant "Fichier1, Fichier2, Fichier3, ...")

Le début pas de problème :

call system('ls')
write(*,*) 'Quel dossier traiter ?'
read(*,*) dossier !dossier est une chaine de caractères

Donc à ce niveau là, j'ai le nom du dossier à traiter dans la chaine "dossier", pour afficher ce qu'il y a dans ce dossier, je fais :

ls(1:3) = 'ls '
ls(4:33) = dossier(1:30)
call system(ls)

J'obtiens ainsi bien la liste des fichiers présents dans Dossier. Seulement, comment je pourrais faire pour que ces noms de fichier soient écrits, non pas dans la console, mais dans un fichier texte ? (à la manière d'un write(1,*) ...)
(ou directement mettre ça dans un tableau, mais ça je peux le faire simplement avec un read(1,*) une fois que c'est dans un fichier)

Merci d'avance

[Ehouarn]

Bonjour,

A mon avis le plus simple est d'utiliser la fonction system() pour faire une redirection du listing dans un fichier.
Par exemple:

Code :

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

1
2
3
4
5
6
7
8
 
call system('ls')
write(*,*) 'Quel dossier traiter ?'
read(*,*) dossier !dossier est une chaine de caractères 
! on génère l'instruction Unix dans la chaine de caractères 'commande'
write(commande,*)" ls ",dossier," > listing.txt"
call system(commande)
! Et après on n'a plus qu'à lire le fichier listing.txt

Bonne continuation.

[ylonar]

Oui, en effet, tout simplement.
Merci!