Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Gilles LAURENT
"Olivier D."
on.adresse.mail> a écrit dans le message de news: | Bonsoir à tous, et désolé pour la question qui doit vous paraitre | trés trés simpliste, | | Je cherche sous vbscript à faire ceci : | | If .... Then | Goto Etiquette1 | Else | Goto Etiquette2 | End If | || Etiquette1 | ..... || Etiquette2 | ..... | | WScript.Quit | | | ...Malheureusement ca fonctionne pas... Comment faire ???
Bonsoir,
Les étiquettes ne sont pas supportés en VBScript La commande Goto n'est autorisée que pour la gestion des erreurs
' désactivation des erreurs On Error Goto 0
If .... Then Call proc1 Else Call proc2 End If
' fin du script WScript.Quit
' procédure 1 Sub Proc1() WScript.Echo "In Proc1" End Sub
' procédure 2 Sub Proc2() WScript.Echo "In Proc2" End Sub
-- Gilles LAURENT Me contacter : http://cerbermail.com/?zoTY7ZkLcD
"Olivier D."
<retire.ceci.de.mon.adresse.mail.odespringre@wanadoo.fr.retire.ceci.de.m
on.adresse.mail>
a écrit dans le message de news:Os1dWqfeGHA.4720@TK2MSFTNGP03.phx.gbl
| Bonsoir à tous, et désolé pour la question qui doit vous paraitre
| trés trés simpliste,
|
| Je cherche sous vbscript à faire ceci :
|
| If .... Then
| Goto Etiquette1
| Else
| Goto Etiquette2
| End If
|
|| Etiquette1
| .....
|| Etiquette2
| .....
|
| WScript.Quit
|
|
| ...Malheureusement ca fonctionne pas... Comment faire ???
Bonsoir,
Les étiquettes ne sont pas supportés en VBScript
La commande Goto n'est autorisée que pour la gestion des erreurs
' désactivation des erreurs
On Error Goto 0
If .... Then
Call proc1
Else
Call proc2
End If
' fin du script
WScript.Quit
' procédure 1
Sub Proc1()
WScript.Echo "In Proc1"
End Sub
' procédure 2
Sub Proc2()
WScript.Echo "In Proc2"
End Sub
--
Gilles LAURENT
Me contacter : http://cerbermail.com/?zoTY7ZkLcD
on.adresse.mail> a écrit dans le message de news: | Bonsoir à tous, et désolé pour la question qui doit vous paraitre | trés trés simpliste, | | Je cherche sous vbscript à faire ceci : | | If .... Then | Goto Etiquette1 | Else | Goto Etiquette2 | End If | || Etiquette1 | ..... || Etiquette2 | ..... | | WScript.Quit | | | ...Malheureusement ca fonctionne pas... Comment faire ???
Bonsoir,
Les étiquettes ne sont pas supportés en VBScript La commande Goto n'est autorisée que pour la gestion des erreurs
' désactivation des erreurs On Error Goto 0
If .... Then Call proc1 Else Call proc2 End If
' fin du script WScript.Quit
' procédure 1 Sub Proc1() WScript.Echo "In Proc1" End Sub
' procédure 2 Sub Proc2() WScript.Echo "In Proc2" End Sub
-- Gilles LAURENT Me contacter : http://cerbermail.com/?zoTY7ZkLcD
scraper
Bonjour Olivier D., dans le message news: tu disais :
Bonsoir à tous, et désolé pour la question qui doit vous paraitre trés trés simpliste,
Je cherche sous vbscript à faire ceci :
If .... Then Goto Etiquette1 Else Goto Etiquette2 End If
Etiquette1 .....
Etiquette2 .....
WScript.Quit
...Malheureusement ca fonctionne pas... Comment faire ???
avec Call et en appelant une sub ?
If .... Then Call Etiquette1 Else Call Etiquette2 End If
'[...]
WScript.Quit
Sub Etiquette1
'[...]
End Sub
Sub Etiquette2
'[...]
End Sub
--
Adresse invalide Merci de répondre sur le forum ... http://scraper.chez-alice.fr
scraper
Bonjour Olivier D., dans le message
news:Os1dWqfeGHA.4720@TK2MSFTNGP03.phx.gbl
tu disais :
Bonsoir à tous, et désolé pour la question qui doit vous paraitre
trés trés simpliste,
Je cherche sous vbscript à faire ceci :
If .... Then
Goto Etiquette1
Else
Goto Etiquette2
End If
Etiquette1
.....
Etiquette2
.....
WScript.Quit
...Malheureusement ca fonctionne pas... Comment faire ???
avec Call et en appelant une sub ?
If .... Then
Call Etiquette1
Else
Call Etiquette2
End If
'[...]
WScript.Quit
Sub Etiquette1
'[...]
End Sub
Sub Etiquette2
'[...]
End Sub
--
Adresse invalide
Merci de répondre sur le forum ...
http://scraper.chez-alice.fr
On dirait du batch... En tout cas, en Batch, ça marche.
@-salutations
Michel Claveau
Lavache
"Olivier D."
a écrit dans le message de news:
Bonsoir à tous, et désolé pour la question qui doit vous paraitre trés trés simpliste,
Je cherche sous vbscript à faire ceci :
If .... Then Goto Etiquette1 Else Goto Etiquette2 End If
:Etiquette1 ..... :Etiquette2 .....
WScript.Quit
...Malheureusement ca fonctionne pas... Comment faire ???
cela semble répondre a test besoin
test1 = InputBox("entrez un chiffre") If test1 = "1" Then Call Etiquette1 Else Call Etiquette2 End If
Function Etiquette1 MsgBox "test1" End Function Function Etiquette2 MsgBox "test2" End Function
WScript.Quit
Sébas
"Olivier D."
<retire.ceci.de.mon.adresse.mail.odespringre@wanadoo.fr.retire.ceci.de.mon.adresse.mail>
a écrit dans le message de news: Os1dWqfeGHA.4720@TK2MSFTNGP03.phx.gbl...
Bonsoir à tous, et désolé pour la question qui doit vous paraitre trés
trés simpliste,
Je cherche sous vbscript à faire ceci :
If .... Then
Goto Etiquette1
Else
Goto Etiquette2
End If
:Etiquette1
.....
:Etiquette2
.....
WScript.Quit
...Malheureusement ca fonctionne pas... Comment faire ???
cela semble répondre a test besoin
test1 = InputBox("entrez un chiffre")
If test1 = "1" Then
Call Etiquette1
Else
Call Etiquette2
End If
Function Etiquette1
MsgBox "test1"
End Function
Function Etiquette2
MsgBox "test2"
End Function
