Discussion :

[janviech]

Bonjour,
j'ai un souci avec l'instruction runqq.
A partir d'une fenêtre Windows, j'ouvre un fichier dans une edit box et le nom de la variable dans l'edit box est FICHIE.
Ensuite, j'essaie de lancer un programme avec ce nom de fichier en argument; or cela ne fonctionne pas, ce n'est ni un problème de taille de nom de fichier et avec le debuggeur on voit bien que la variable est bien attribuée. On lit FICHIE='t:\test' le nom du fichier qui s'affiche dans l'edit box et command='t:\test'.

Mon code est :

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
subroutine main
use dflib
include 'nomfic.inc'->common contenant les variables FICHIE et command en character
integer*2 res
integer*4 NCL
 
NCL=len_trim(FICHIE)
command=FICHIE(:NCL)
!command='T:\TEST'->avec ceci ca fonctionne
 
res=runqq('multi',command)
 
call exit()
 
end subroutine

Tous vos conseils sont les bienvenus !
Merci beaucoup

[YOY205]

Bonjour,

si la chaîne 't:\test' ne fonctionne pas alors que la chaîne 'T:\TEST' fonctionne, est-ce que tu es sûr que ce n'est pas un problème de casse?

Et je ne vois pas bien l'intérêt de ces 2 lignes?

Code :

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

1
2
3
 
NCL=len_trim(FICHIE)
command=FICHIE(:NCL)

Pourquoi passer par une variable intermédiaire? Il suffirait de faire

Code :

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

1
2
 
res=runqq('multi',TRIM(FICHIE))

[janviech]

ok, c'est vrai mais Il s'est avéré pendant de multiples essais que c'est la subroutine fileopen (getopenfilename) qui bloquait car en effet, lorsque je ne l'utilise pas tout marche correctement, le problème c'est que je veux ouvrir le nom du fichier dans l'edit box, recuperer ce nom et le mettre en argument de runqq ou systemqq.
Pourquoi fileopen ne fonctionnerait pas, j'ai pas changé grd chose de l'exemple SAMPLES/ADVANCED/GETOPENFILENAME mis a part les extensions de fichiers et les noms de variables, puis j'ai rajouté la ligne de commande:
lret=dlgset(dlg, IDC_FIC, FICHIE) avec IDC_FIC representant l'edit box.
Si tu as la moindre idée, elle est la bienvenue.
Merci

[janviech]

J'ai trouvé mon erreur elle provient du fait que fileopen se place dans le repertoire du fichier qu'il ouvre il faut donc mettre le flag OFN_NOCHANGEDIR. Et la tout fonctionne correctement.