Main + paramètre en argument [Résolu]

Natty_dread 3 Messages postés vendredi 10 septembre 2004Date d'inscription 13 septembre 2004 Dernière intervention - 13 sept. 2004 à 12:57 - Dernière réponse : Natty_dread 3 Messages postés vendredi 10 septembre 2004Date d'inscription 13 septembre 2004 Dernière intervention
- 13 sept. 2004 à 15:23
Bonjour,

J'ai besoin de réaliser rapidement un exécutable en VB pqui doit être appelé par une tiers application. Cet exécutable doit prendre en entrée des arguments de l'application appelante.

J'ai donc tenté de passer des arguments dans le main sous les syntaxes suivantes (comme indiquées sur MSDN) mais rien n'y fait.

- Function Main(ByVal CmdArgs() As String) As Integer

- Sub Main(ByVal CmdArgs() As String)

Il faut savoir que mon programme doit fonctionner en tâche de fond, sans aucune Form.

Merci pour votre aide.
Afficher la suite 

3 réponses

Natty_dread 3 Messages postés vendredi 10 septembre 2004Date d'inscription 13 septembre 2004 Dernière intervention - 13 sept. 2004 à 15:23
+3
Utile
C'est bon, j'ai trouvé la solution. Merci pour m'avoir mis sur la piste.

Pour tous :

Public GstrChemin As String
Public GstrBook As String

Sub Main()

Call LitParametre
Call Unpdf(GstrChemin, GstrBook)

End Sub

Function LitParametre() As String
'Procédure qui récupère les paramètres passés par chaine de commande à l'application

'Les paramètres passés sont les suivants :

'0/ Répertoire source : GstrChemin
'1/ Type de book : GstrBook

Dim Params() As String
Dim strLigne2Commande As String

'----------------------------------------------------------
' Lecture de la ligne de commande.
'----------------------------------------------------------
' La fonction Command() retourne la partie de la ligne
' de commande située après le nom de l'exécutable.
' Par exemple lors de l'appel de:
' cmd.exe Test de lecture des paramètres
' command() retourne:
' Test de lecture des paramètres
strLigne2Commande = Command()

'----------------------------------------------------------
' Les paramètres étant séparés par des ";", il faut
' diviser la chaîne de caractères Ligne2Commande.
' Le résultat est placé dans Params()
'----------------------------------------------------------
Params() = Split(strLigne2Commande, ";")

GstrChemin = Params(0)
GstrBook = Params(1)

End Function
Cette réponse vous a-t-elle aidé ?  
crenaud76 4172 Messages postés mercredi 30 juillet 2003Date d'inscription 9 juin 2006 Dernière intervention - 13 sept. 2004 à 13:36
0
Utile
Pas possible de mettre des arguments à la signature de Main() !!
Utilises l'isntruction "Command" qui te retourne les arguments transmis à ton projet.

Christophe R.
Natty_dread 3 Messages postés vendredi 10 septembre 2004Date d'inscription 13 septembre 2004 Dernière intervention - 13 sept. 2004 à 14:22
0
Utile
Merci pour cette rapide réponse mais je dois avouer mon impuissance à utiliser l'instruction "command". De plus, je ne trouve rien à ce sujet. Serait-il possible de m'en dire un peu plus ?

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.