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

Signaler
Messages postés
3
Date d'inscription
vendredi 10 septembre 2004
Statut
Membre
Dernière intervention
13 septembre 2004
-
Messages postés
3
Date d'inscription
vendredi 10 septembre 2004
Statut
Membre
Dernière intervention
13 septembre 2004
-
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.

3 réponses

Messages postés
3
Date d'inscription
vendredi 10 septembre 2004
Statut
Membre
Dernière intervention
13 septembre 2004

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
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 179 internautes nous ont dit merci ce mois-ci

Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
27
Pas possible de mettre des arguments à la signature de Main() !!
Utilises l'isntruction "Command" qui te retourne les arguments transmis à ton projet.

Christophe R.
Messages postés
3
Date d'inscription
vendredi 10 septembre 2004
Statut
Membre
Dernière intervention
13 septembre 2004

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 ?