OVH Cloud OVH Cloud

Appel de sous-routine

8 réponses
Avatar
Major TOM
Bonjour à tous,

Je recherche le moyen d'appeler titi.vbs depuis toto.vbs avec un argument.
Avec les BAT on écrivait CALL TITI.BAT MONARGUMENT.

Merci par avance de votre aide.

Thierry

8 réponses

Avatar
sympatix
Bonjour à tous,

Je recherche le moyen d'appeler titi.vbs depuis toto.vbs avec un argument.
Avec les BAT on écrivait CALL TITI.BAT MONARGUMENT.

Merci par avance de votre aide.

Thierry


Salut !

---------------toto.vbs-----------------
C = "F:titi.vbs"
Set oShell = CreateObject("WScript.Shell")
Ar = "MonArgument"
oShell.Run C & " " & Ar
---------------toto.vbs-----------------

---------------titi.vbs-----------------
Set Arg = Wscript.Arguments
A = Arg (0)
MsgBox A
---------------titi.vbs-----------------

--
Cordialement
Sympatix
(Antispam: Ôter les "toto" dans l'adresse, pour me répondre)

Avatar
Major TOM
Merci, c'est sympatix d'avoir répondu si vite.

Dans ta réponse, "Arg (0)" me fait penser à une autre question.
Comment traiter plusieurs arguments, Arg(1), Arg(2) ??? et quel séparateur ?

Merci

"sympatix" a écrit dans le message de news:

Bonjour à tous,

Je recherche le moyen d'appeler titi.vbs depuis toto.vbs avec un
argument.
Avec les BAT on écrivait CALL TITI.BAT MONARGUMENT.

Merci par avance de votre aide.

Thierry


Salut !

---------------toto.vbs-----------------
C = "F:titi.vbs"
Set oShell = CreateObject("WScript.Shell")
Ar = "MonArgument"
oShell.Run C & " " & Ar
---------------toto.vbs-----------------

---------------titi.vbs-----------------
Set Arg = Wscript.Arguments
A = Arg (0)
MsgBox A
---------------titi.vbs-----------------

--
Cordialement
Sympatix
(Antispam: Ôter les "toto" dans l'adresse, pour me répondre)






Avatar
sympatix
Comment traiter plusieurs arguments, Arg(1), Arg(2) ??? et quel séparateur
?
En explorant la collection:


-----------titi.vbs----------------
Set Arg = Wscript.Arguments
A = ""
For I = 0 to Arg.Count - 1
A = A & Arg (I) & VbCrlf
Next
MsgBox A
-----------titi.vbs----------------
--
Cordialement
saint_path_x_arobase_t'es_laide_euh_point_fr

(Antispam: Ôter les "toto" dans l'adresse, pour me répondre)

Avatar
sympatix
...Et dans toto.vbs, pour passer plusieurs arguments, les séparer par un
espace.

--
Cordialement
saint_path_x_arobase_t'es_laide_euh_point_fr

(Antispam: Ôter les "toto" dans l'adresse, pour me répondre)
"sympatix" a écrit dans le message de news:

Avatar
Major TOM
Encore une fois merci.

"sympatix" a écrit dans le message de news:

Comment traiter plusieurs arguments, Arg(1), Arg(2) ??? et quel
séparateur ?
En explorant la collection:


-----------titi.vbs----------------
Set Arg = Wscript.Arguments
A = ""
For I = 0 to Arg.Count - 1
A = A & Arg (I) & VbCrlf
Next
MsgBox A
-----------titi.vbs----------------
--
Cordialement
saint_path_x_arobase_t'es_laide_euh_point_fr

(Antispam: Ôter les "toto" dans l'adresse, pour me répondre)




Avatar
Do Re Mi chel La Si Do
Et, si un argument contient un espace, l'encadrer avec des guillemets.
Et, si un argument contient un guillemet, mettre des triple-guillemets.
Et, si ces trucs servent, il faudrait m'offrir un pastis.
Non, mais...


Michel Claveau
Avatar
sympatix
Et, si un argument contient un espace, l'encadrer avec des guillemets.
Et, si un argument contient un guillemet, mettre des triple-guillemets.
Et, si ces trucs servent, il faudrait m'offrir un pastis.
Non, mais...
Bon, ben...c'est ma tournée !


--
Cordialement
saint_path_x_arobase_t'es_laide_euh_point_fr

(Antispam: Ôter les "toto" dans l'adresse, pour me répondre)

Avatar
Major TOM
Je remet la mienne aussi ! :-)

"sympatix" a écrit dans le message de news:

Et, si un argument contient un espace, l'encadrer avec des guillemets.
Et, si un argument contient un guillemet, mettre des triple-guillemets.
Et, si ces trucs servent, il faudrait m'offrir un pastis.
Non, mais...
Bon, ben...c'est ma tournée !


--
Cordialement
saint_path_x_arobase_t'es_laide_euh_point_fr

(Antispam: Ôter les "toto" dans l'adresse, pour me répondre)