Discussion :

[arthy]

Salut

je voudrai écrire un fichier de nom, prenom, age et qui se termine par une chaine vide.

voici la syntaxe:

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
program cr_fich.f90
implicit none
integer,parameter :: numfich=1
character (len=12)::nomfich
caharacter(len=20)::nom, prenom
integer::annee
 
print*, annee
read*, nomfich
open(unit=numfich, file=nomfich, form ='unformatted', status = 'new')
print*, 'nom, prenom, annee naissance pour finir)'
do
  if (nom == '') exit
  write (numfich) nom, prenom, annee
end do
print*, 'fin creation fichier'
close (numfich)
 
end

Je n'arrive pas à exécuter ce programme à cause de l'arret de boucle qui ne fonctionne pas. Comment saisir un chaine de caractères vides?
Moi je fais ceci:

Code :

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

1
2
3
4
repert (pour le nom)
dupont francois 42
'' '' 0
(nom prénom et age sont séparés par des espaces)

Merci

[Sylvain Bergeron]

Le problème vient probablement du fait que tu ne peux pas facilement lire une chaine vide avec le format « list-directed » (* après le read). Avec un format list-directed, le read demandera des input tant qu'il n'en aura pas assez pour alimenter les variables de la liste, et dans ce traitement, les Enter sont ignorés.

Je crois que tu peux utiliser des virgules pour séparer les inputs ou des guillemets, mais ce n'est pas très élégant.

Le mieux est d'utiliser une variable caractère assez longue, un format explicite (a) et décoder ensuite la variable caractère. Par exemple :

Code :

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

1
2
3
4
5
6
7
 
character (100)  ReponseUsager
...
read (*,'(a)') ReponseUsager
if (len_trim(ReponseUsager) == 0) exit
read(ReponseUsager,*) Nom, Prenom, Annee
...

[Ehouarn]

Bonjour,

Arty, regarde bien ton programme...
La seule saisie qu'il contient est:

Code :

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

1
2
 
read*, nomfich

Et tu ne saisis jamais les autres valeurs (nom,prenom,...); ta boucle infinie n'est qu'une boucle d'écriture, il manque clairement la partie lecture, sinon il est normal que la condition if (nom == '') ne soit jamais remplie.