création de fichier indicé

Version imprimable

06/04/2010, 12h25
forcetran90

création de fichier indicé

Bonjour ,

Je souhaiterais savoir si quelqu'un sait comment mettre dans le nom d'un fichier une variable . ( en fait je fait des boucles et j ai besoin d'avoir un fichier différent pour inscrire mes résultats dans ce dernier à chaque tour de boucle).

Merci d'avance de vos réponses.

Bonjour

Il faut concaténer des chaines de caractères avec l'opération //. Le principal problème dans ces opérations est souvent de ne pas avoir de blancs dans le nom du fichier. Voici un exemple que j'utilise souvant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 character(len=3) :: nom charcater(len=100) :: fichiercom do i = 1, nc ... write(nom, "(i3.3)") i fichiercom = "direction_C_"//nom//".com" ... end do
Le i3.3 c'est pour écrire 001 au lieu de ^^1. Si tu veux vraiment un chifre il faut faire ça

Code:

fichiercom = "direction_C_"//trim(adjustl(nom))//".com"

adjustl place les caractères à gauche (adjust left) et trim supprime les blancs à droite.

Bon courage

06/04/2010, 13h34
Grame
Citation:

Envoyé par forcetran90

Bonjour ,

Je souhaiterais savoir si quelqu'un sait comment mettre dans le nom d'un fichier une variable . ( en fait je fait des boucles et j ai besoin d'avoir un fichier différent pour inscrire mes résultats dans ce dernier à chaque tour de boucle).

Merci d'avance de vos réponses.

Oui, tu utilises un format interne i1 ou i2 ou plus, selon le nombre de boucles.
Quelque chose comme :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 integer :: i character (len = 6) :: nom nom = 'data.' do i = 1, 9 write (nom(6:6), '(i1)') i write (*,*) nom end do end
qui te renvoie

Citation:

data.1
data.2
data.3
data.4
data.5
data.6
data.7
data.8
data.9

merci de vos réponse

Bonsoir,

Tout d'abord je souhaite vous remercier pour vos réponse. En fait j'ai essayé vos deux méthode et je n'arrive pas à voir si/ou mes fichiers sont créés car j'en ai besoin à la sorti de mon programme pour tracer des graphiques. Je pensais plutot faire comme ce que j ai écrit ci dessous mais je n'arrive pas à mettre un indice et donc j ai mes valeurs qui s'écrivent dans un seul fichier les unes à la suite, des autres .
Code:

1 2 3 4 5 6 7 8 9 10 11 12 ... CHARACTER(len = 32) :: FILE_NAME ... DO WHILE(t<=tmax) DO j=1, n 'FILE_NAME' = 'pol',j,'.out' !et ici j'ai une erreur de compilation si je laisse le j ... OPEN(UNIT=50,FILE= FILE_NAME,STATUS='UNKNOWN') WRITE(50,*) a(j), b(j), j END DO END DO

Bonjour

Dans cette ligne tu as plusieurs erreurs :

Code:

'FILE_NAME' = 'pol',j,'.out'

Attention chaine de caractère

Première erreur au début de la ligne :

Code:

'FILE_NAME' =

Je pense que le compilateur doit te dire qu'il y a une erreur

'FILE_NAME' entre ' ' c'est une chaine de caractères donc ce n'est pas une variable. En gros ce que tu mes entre ' ' c'est vraiment le mot écrit tel quel. En programmation = veut dire attribue ou reçoit. Donc ta ligne veux dire :

La chaine de caractères 'FILE_NAME' reçoit quelque chose. Or une chaîne de caractère n'est pas une variable dans laquelle tu peux stoquer quelque chose.

En ce qui concerne j

j est un entier alors que FILE_NAME est une chaine de caractère. Il faut donc convertir j en caractère pour que ça marche. C'est pour ça que tu as une erreur. Grame et moi on fait ça de deux manière différente.

La méthode de Grame

Une chaine de caractère c'est en fait un tableau de caractère. Toi tu as :

Code:

CHARACTER(len = 32) :: FILE_NAME

C'est un peu comme si FILE_NAME était un tableau de 32 cases dans lesquelles tu peux mettre une lettre à chaque fois. Donc tu peux choisir d'écrire un chiffre dans la dernière case. C'est ce que fait Grame. La dernière case est repérée par

FILE_NAME(32:32)

en fait la notation FILE_NAME(a:b) ça veut dire que tu prends un morceaux de la chaine (une sous chaine) qui va de a à b.

Pour écrire dans une chaine tu fais simplement :
Code:

1 2 3 4 write( FILE_NAME(32:32),"(i1)") j ! n'oublie pas la syntaxe d'un write : ! write( où , comment ) ...
ma méthode

Moi je fait une concaténation de chaine, c'est à dire je regroupe plusieurs chaines. Je commence par écrire dans une chaine la valeur de j :
Code:

1 2 character(len=3) :: nom write(nom, "(i3.3)") i
Puis ensuite je crée la chaine FILE_NAME à partir de trois bouts :
Code:

1 2 FILE_NAME = "debut"//nom//"fin"
Tu remarque que debut et fin sont des chaines de caractères donc mon fichier va s'appeler debut001fin. Tu noteras aussi les // pour concaténer les chaines, les coller ou les rassembler si tu préfères.

Tu pourrais très bien avoir deux chaines :
Code:

1 2 3 prefixe = "debut_" FILE_NAME = prefixe//nom
Là j'ai une chaine prefixe qui contient "debut_" à laquelle je colle le numéro, ce qui donne debut_001

les blancs

Le problème dans ce genre de chose c'est les blancs car les fichiers avec des blancs dans un terminal c'est un peu galère. Donc il faut les éviter. Pour ça tu as deux possiblités :

Soit tu utilises un format du genre IN.P comme i3.3, ça veut dire que tu écris ton entier sur 3 colonnes avec 3 chiffres donc tu completes par des zéro. Au lieu d'écrire 1 tu écris 001 au lieu de 12 tu écris 012 ect ... Si tu vas au max jusqu'à 999 tu sais que tu dois écrire ton chiffre dans une chaine de longueur 3 et tu n'auras pas de blancs.

Autre solution les fonctions trim et adjustl. La première supprime les blancs en fin de chaine de caractères, la seconde aligne à gauche (l pour left) la chaine de caractères. Donc si tu as
Code:

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 character(len=10) :: mot mot = "bonjour" write(*,*) bonjour ! => ça va donner "bonjour " avec des blancs au fond write(*,*) trim(bonjour) ! => ça va donner "bonjour" sans les blancs au fond ! attention action inutile : mot = trim(bonjour) ! mot à une longueur de 10 donc quand tu met bonjour dans mot il complete avec des blancs write( mot, "(i10)") 2 write(*,*) mot ! => ça va donner " 2" avec des blancs devant, c'est le format i10 write( mot, "(i10)") 2 mot = adjustl(mot) write(*,*) mot ! => ça va donner "2 " avec des blancs après pour compléter write( mot, "(i10)") 2 mot = adjustl(mot) write(*,*) trim(mot) ! => ça va donner "2" c'est ce qu'on veut
Du coup tu dois pouvoir comprendre ma ligne :

Code:

fichiercom = "direction_C_"//trim(adjustl(nom))//".com"

Là je suis sur que je n'ai pas de blanc !

fichier indicé toujours

Bonjour,

En fait j'ai travaillé cette nuit sur mon programme , je n'ai donc vu que ce matin votre réponse, et j'ai avancé un peu (peut être pas dans le bon sens) entre temps. J' ai bien compris les explications que vous m'avez fournis et la syntaxe adéquat, par contre je ne comprend toujours pas comment faire pour avoir ces fichiers en sortie à la fin de mon programme. Je vais donc vous montrer ce que j'ai écrit.( nb: cela vas peut être vous faire rire car le langage fortran et on peut même dire la programmation étant quelque chose de nouveau pour moi, j'essaye de me débrouiller avec le peu que je sache.... lol)
Code:

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 PROGRAM IMPLICITE NONE ..... character(len= 6) :: nom nom = 'data.' u=0.0d0 .... DO j=1, n !je fais ça ici pour initialiser mes fichiers de sortie ou cas ou il n'existerais pas encore write (nom(6:6), '(i1)') j write (*,*) nom OPEN(UNIT=50,FILE= nom ,STATUS='unknown') close(50) end do ... DO WHILE(t<=tmax) u=u+1.0d0 DO j=1, n ... write (nom(6:6), '(i1)') j !je fais ça ici pour contourner le fait ke j est une variable et que je ne peut pas la mettre dans une chaine de cractere write (*,*) nom OPEN(UNIT=50,FILE= nom ,STATUS='old') WRITE(50,*) x(u), y(u), j close(50) END DO t=t+h END DO
Avec ce programme, j'ai bien en sortie mes fichiers data.j , mais le soucis est que je voudrais avoir en fait x(u) et y(u) qui s'écrivent dans le fichier data.j
pour chaque u donné les uns à la suite des autres alors que j'ai l'impression qu'a chaque tour de boucle ('DO WHILE(t<=tmax)') les x(u) et y(u) sont réécris par dessus les x(u-1) et y(u-1). Je n'ai donc au finale dans mes fichiers data.j que les derniers x(u) et y(u) calculés qui s'écrivent. Donc voila je ne sais quoi en penser .Merci d'avance de vos réponse.

Je pense que le problème vient du status="old" dans le open de ton fichier. Si tu fais ça je crois me souvenir que tu lui dis que le fichier existe, mais tu l'écrase à l'ouverture. Donc tu ne devrais avoir que la dernière valeur écrite dans ton fichier !

La solution c'est de faire un position="append"
Code:

1 2 3 4 open(10, file="monfichier", position="append") ! tu écris à la fin du fichier sans l'ecraser. write(10,*) x(u), y(u), j
Si tu n'as que quelques fichiers tu peux aussi tous les ouvrir avant ta boucle et tous les fermer après ... Si tes calculs sont long et les fichiers sont gros tu risques de passer beaucoup de temps à ouvrir et fermer tes fichiers en faisant comme tu le fait. Exemple :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 ! ouverture do j=1,n write(nom,"(i6)") j open(10+j, file="data."//trim(adjustl(nom)) ) end do ! calcul write(10+j,*) x(u), y(u), j ! fermeture do j=1,n close(10+j) end do
Pour ce qui est de la numérotation des fichiers, fait attention que ce que tu as fait ne fonctionne que si n est inférieur ou égal à 9 ! Si n >= 10 alors il te faut deux colonnes pour écrire le nombre au lieu d'une seule. Je te conseille d'essayer d'adapter à ton cas la méthode en concaténant les chaines qui est plus souples je trouve (et puis c'est la mienne donc elle est forcément mieux :mouarf: :aie: je plaisante la meilleure est celle qu'on sait faire !)

Si tu débutes, je te conseille aussi d'aller voir du coté de la FAQ fortran tu trouveras peut être des réponses ou des conseils rapides pour commencer.

http://fortran.developpez.com/faq/

Si tu as plus de temps je te conseille vivement les cours de l'idris

https://cours.idris.fr/

ou celui là qui n'est pas mal aussi :

http://www.obs.u-bordeaux1.fr/radio/...95CMichaut.pdf

tu en trouveras d'autre, notament sur la page FORTRAN de développez.com

bon courage

13/04/2010, 22h11
forcetran90

fichier indicer solution

Merci de votre réponse j'ai changer le statuts en 'append' et sa marche parfaitement, de plus j'ai choisi votre solution pour la création des fichiers, effectivement je pourrais être amener à avoir en sorti plus de 10 fichiers.

Merci encore de l'aide que vous m'avez apporté.