Discussion :

[zerbault]

Bonjour,
je veux créer une suite de fichiers .txt qui contiennent tous une même phrase mais j'ai un problème.
Voici mon code :

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
program quicest
implicit none
character nom(7)
character a,b,c
character n(1:7)
integer i,j,k,s
do i=65,90
	do j=65,90
		do k=65,90
			a=char(i)
			b=char(j)
			c=char(k)
			nom(1)=a
			nom(2)=b
			nom(3)=c
			nom(4)='.'
			nom(5)='t'
			nom(6)='x'
			nom(7)='t'
			open(11,file='temp.txt')
			write(11,*)nom
			open(12,file=nom)
			write(12,*)'salut!!!'
			write(*,*)nom
		enddo
	enddo
enddo
end

Je veux qu'il me crée une suite de fichiers : AAA.txt;AAB.txt;AAC.txt;...
mais, quand je mets open(12,file=nom), il me met seulement la première lettre et pas le .txt.
Pouvez-vous m'indiquer mon erreur s'il vous plait ?

Merci

[Sylvain Bergeron]

La principale erreur est qu'une variable caractère en Fortran, ce n'est pas un vecteur (comme en C entre autre).

Tu dois donc déclarer nom comme suit :

Code :

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

character (7) Nom

Auquel cas tu as une variable scalaire de longueur 7 caractères.

Pour remplacer les caractères, il y a plusieurs solutions :

• Soit tu remplaces les caractères 1 par 1.

Code :

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

1
2
3
4
 
Nom(1:1) = a
Nom(2:2) = b
...

• Soit tu affectes le résultat global par concaténaton.

Code :

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

1
2
 
Nom = a // b // c // '.txt'

• Soit tu "écris" les caractères dans la variable.

Code :

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

1
2
 
write(Nom,'(4a)') a, b, c, '.txt'

Le open utilisera alors la variable scalaire contenant le nom complet, pas seulement le premier élément d'un vecteur...

Dernier problème: Tu dois fermer les fichiers ouverts par des close(unit), surtout si tu réouvre avec les mêmes units.