IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Fortran Discussion :

Lecture du nom d'un fichier


Sujet :

Fortran

  1. #1
    Nouveau candidat au Club
    Inscrit en
    Mars 2009
    Messages
    2
    Détails du profil
    Informations forums :
    Inscription : Mars 2009
    Messages : 2
    Par défaut Lecture du nom d'un fichier
    Bonjour,

    Je suis debutante en fortran et je souhaiterais connaitre la commande a utiliser pour lire le nom d'un fichier.

    Par exemple, si dans un repertoire il y a :

    fichier_A_ouvrir1.txt
    fichier_autre2.txt
    fichier_autre3.txt

    et que je veux ouvrir tous les fichiers dont le nom est composé de "A_ouvrir" ? et d'ecrire a l'interieur "Bonjour!"

    Je ne sais pas si j'ai été tres claire?


    Merci par avance =)

  2. #2
    Membre émérite
    Homme Profil pro
    Inscrit en
    Décembre 2007
    Messages
    758
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 46
    Localisation : France

    Informations professionnelles :
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Décembre 2007
    Messages : 758
    Par défaut
    bonsoir,

    à ma connaissance (en f90, je ne connais pas bien les autres normes), il n'y a pas de possibilité en standard de faire ce que tu demandes.

    si je devais faire ceci, je ferai appel à un call system avec une commande Unix/DOS qui fasse un liste des noms de fichiers dans lesquels tu dois écrire et qui écrive cette liste dans un fichier dont tu connais le nom.

    par exemple:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    call system("ls *A_ouvrir*.txt > .tmp")
    ensuite il suffit de lire ce fichier et de réaliser ton traitement:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    open(unit=10,file='.tmp',status='old')
    do while .true.
        read(10,*,iostat=stat)nom_fichier
        if (stat/=0) then
            close(10,status='delete')
            exit
        end if    
        !traitement
    end do

  3. #3
    Rédacteur

    Homme Profil pro
    Comme retraité, des masses
    Inscrit en
    Avril 2007
    Messages
    2 978
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : Suisse

    Informations professionnelles :
    Activité : Comme retraité, des masses
    Secteur : Industrie

    Informations forums :
    Inscription : Avril 2007
    Messages : 2 978
    Par défaut
    Salut!
    Si l'ensemble des fichiers est suffisamment limité et si leurs noms sont "systématiques", par exemple:
    fichier01
    fichier02
    fichier07
    fichier12
    tu peux tester tous les numéros dans une boucle et utiliser l'instruction Inquire ou Open pour voir lesquels existent réellement. C'est un peu du bidouillage, mais ça marche. J'ai déjà utilisé cette astuce pour générer automatiquement les noms de fichiers à "empiler" dans un répertoire.
    Jean-Marc Blanc

  4. #4
    Nouveau candidat au Club
    Inscrit en
    Mars 2009
    Messages
    2
    Détails du profil
    Informations forums :
    Inscription : Mars 2009
    Messages : 2
    Par défaut
    Merci pr vos reponses! je vais essayer tt ca =)

Discussions similaires

  1. lecture du nom d'un fichier
    Par cj_prog dans le forum Langage
    Réponses: 7
    Dernier message: 04/07/2011, 13h49
  2. Problème lecture de nombre dans un fichier en c++
    Par knecmotet dans le forum C++
    Réponses: 1
    Dernier message: 28/10/2004, 15h48
  3. sauvegarder le nom d'un fichier grace a un batch ?
    Par Phenomenium dans le forum Windows
    Réponses: 5
    Dernier message: 02/06/2004, 12h16
  4. Réponses: 2
    Dernier message: 26/09/2003, 14h51
  5. Recuperer le nom d'un fichier
    Par elvivo dans le forum C
    Réponses: 5
    Dernier message: 27/12/2002, 15h44

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo