Aide avec EXECUTE

Sujet: Aide avec EXECUTE Lun 31 Oct 2011 - 0:31

Bonjour à tous,

Je vous serais reconnaissant un coup de main à un fichier source édité dans un écrit PANORAMIC (Mon petit projet EDITPANORAM) géré dans l'éditeur panoramic.

J'ai essayé avec l'instruction EXECUTE, mais je pense que j'ai besoin d'une DLL (Dynamic Link Library) pour cela. Que pensez-vous?

J'ai essayé avec la commande: execute "C:\Program Files\Panoramic_editor.exe file.bas"

Mad

PS: Si ce message n'est pas très claire à blâmer Google Translate. Et domine un peu anglais, mais vous ne savez pas le français. Mais je parler et écrire le portugais bien, je suis du Brésil. cheers

Merci à tous ceux qui peuvent vous aider.

Invité

Bonjour EWERSON.
Je ne peux pas te répondre pour les dll, mais j'ai vu un problème dans ton exemple:

Citation :: execute "C:\Program Files\Panoramic_editor.exe file.bas"

Cela ne peut pas fonctionner car le nom du fichier comporte des ESPACES ( " " ) qui sont des séparateurs.
Il faut utiliser des noms de fichier qui ne comportent pas d'espace. Ce que l'on fait est d'utiliser des noms courts que Windows utilisait.

Il y a un programme proposé par notre ami KLAUS et qui se trouve ici:
https://panoramic.1fr1.net/t1318-outil-pour-determiner-le-nom-court-d-un-fichier

Salutation! Sleep

Sujet: Re: Aide avec EXECUTE Lun 31 Oct 2011 - 14:02

Bonjour Ewerson,
Pour utiliser EXECUTE, il faut que le chemin d'accès de l'exécutable soit au format DOS (8 caractères)

Pour avoir les noms courts : Utils.dll
Exemple :

Code:: DLL_ON "Utils.dll"
DIM Panoramic$,FileName$,Dll_return
Panoramic$="C:\Program Files (x86)\Panoramic Editor\Panoramic_editor.exe"
FileName$="C:\Langages\Panoramic\calc_aqua\calcul_aqua.bas"

Dll_return = DLL_CALL2("GetShortName",ADR(Panoramic$),LEN(Panoramic$))
Panoramic$=TRIM$(Panoramic$) : ' <-- C:\PROGRA~2\PANORA~1\PANORA~1.EXE
DLL_OFF

EXECUTE Panoramic$+" "+FileName$
END

@cosmos : le lien vers le fichier de KLAUS n'existe plus... Wink

Invité

Citation :: le lien vers le fichier de KLAUS n'existe plus..

Tu as raison, 3 fois j'ai fais le lien, et trois fois j'ai eu une page différente. Et ors de question de m'inscrire pour voir si on peut le trouver.

Sujet: Merci pour l'aide EXECUTE! Jeu 3 Nov 2011 - 4:02

Merci pour l'aide et des conseils!

Je dis cela essentiellement Cosmo70 la pointe posté ici par Klaus et aussi la collaboration d'Nardo26 qui m'a envoyé une DLL pour le résoudre au lieu de mes problèmes ...

Il est vrai que l'on devrait utiliser cette commande pour les exécutables uniquement en format DOS (8 caractères). Donc, pour montrer que mes problèmes sont plus je vais mettre ici un peu de code que j'ai utilisé pour tester la DLL optimale (Utils.dll) de Nardo. Et bien sûr, je veux donner à tous les crédits à lui (Nardo26) depuis que j'ai pris plus de 100% de l'exemple qu'il m'a envoyé!

Donc, voici le code de test:
=================================================================================
' execute program.exe and fileName.bas

DLL_ON "Utils.dll"

DIM Panoramic$,FileName$,Dll_return

memo 1
width 1, 500
height 1, 300

print_target_is 1

open_dialog 10
filter 10, "PANORAMIC.EXE| *.EXE"
Panoramic$ = file_name$(10)
delete 10

PRINT Panoramic$

open_dialog 11
filter 11, "PANORAMIC.BAS| *.BAS
FileName$ = file_name$(11)

delete 11

PRINT FILENAME$

Dll_return = DLL_CALL2("GetShortName",ADR(Panoramic$),LEN(Panoramic$))
Panoramic$=TRIM$(Panoramic$) : ' <-- C:\PROGRA~2\PANORA~1\PANORA~1.EXE

Dll_return = DLL_CALL2("GetShortName",ADR(FileName$),LEN(FileName$))
FileName$ = TRIM$(FileName$) : ' <-- C:\ARQUIV~1\PANORA~1.21\Exemples\FONTS.bas

PRINT
PRINT Panoramic$

PRINT FileName$

DLL_OFF

EXECUTE Panoramic$+" "+FileName$

END

=================================================================================

J'espère que d'autres en profitent ...

Merci et à toutes les étreintes

Sujet: Re: Aide avec EXECUTE Jeu 3 Nov 2011 - 8:57

Oi Ewerson, Very Happy

sobre seu programa:
- você deveria testar o retorno de FILE_NAME$() porque se você aperta no botão "CANCELE ", a função devolve "_" e assim você terá um erro no comando EXECUTE

- para FileName$: depois de testes, a execução do DLL não é necessária porque aparentemente o editor de Panoramic administra os nomes longos gastado em parâmetros...

PS: no foro põe seu programa entre balizas [code], é mais fácil ler. Wink

Bonjour Ewerson,

Au sujet de ton programme :

- Tu devrais tester le retour de FILE_NAME$( ) car si tu appuis sur le bouton "CANCEL", la fonction retourne "_" et donc tu auras une erreur sur la commande EXECUTE...

- Pour FileName$ : après des essais, l'appel à la DLL n'est pas nécessaire car apparemment l'éditeur de Panoramic gère les noms longs passés en paramètres....

PS: sur le forum met ton programme entre les balises code, c'est plus facile à lire
[code]' forum:

DIM Panoramic$,FileName$,Dll_return
...
...

[/code]

Sujet: Re: Aide avec EXECUTE Jeu 3 Nov 2011 - 12:00

Une autre solution consiste à utiliser CMD et un fichier de commandes BAT. Je sais, il y a brièvement une petite fenêtre noire qui s'ouvre, puis elle redisparaît. Mais le lancement se fait bien, et avec les noms en clair.

Voici le principe:

Code:: file_open_write 10,"my_command.bat"
file_writeln 10,"start "+chr$(34)+"C:\Program Files\Panoramic Editor V 0.9.21\Panoramic_editor.exe"+chr$(34)+" my_program.bas"
file_close 10
execute "my_command.bat"

L'éditeur est bien lancé, et le tout avec des noms en clair.

» Aide commande EXECUTE
» Aide (imprimable) sur PANORAMIC avec exemples
» lancer un fichier bath avec execute?
» un peu d'aide sur MEMO avec BAR_VERTICAL [RESOLU]
» j'ai besoin d'aide avec dir_change