Bonjour !
Voilà une bonne demi journée que je me casse la tête sur un problème de concaténation de chaines... Je commence sérieusement à songer au suicide. Néanmoins je me suis dis que je pouvais passer par là avant de tenter l'irréparable.
Le but du jeu est de créer une petite arborescence pour sortir quelques fichiers automatiquement.
(...)
CHARACTER ENTREE*80,SORTIE*80,REPERTOIRE*80,MODELE*80
(...)
WRITE(6,*),'Repertoire de travail ?'
READ(5,010),REPERTOIRE
WRITE(6,*),'Fichier d entree ?'
READ(5,010),ENTREE
WRITE(6,*),'Identifiant du modele ?'
READ(5,010),MODELE
1 CALL SYSTEM('mkdir '//REPERTOIRE)
2 CALL SYSTEM('mkdir '//REPERTOIRE//'\CL')
3 CALL SYSTEM('mkdir '//REPERTOIRE//'CL\EAU')
La commande 1 fait parfaitement son boulot, les commandes 2 et 3 reproduisent la même opération que la commande 1. Si je stocke les chaines dans les instructions CALL SYSTEM dans des variables pour vérification, je m'aperçois qu'il ne stocke que 'mkdir (repertoire)' sans l'arborescence qui suit...
Si quelqu'un arrive à élucider ce mystère je suis preneur.
J'utilise un petit compilateur : g95.
En vous remerciant...
