Page 1 sur 1
Posté : 16 mars 2005, 17:19:00
par Bejito26
Bonjour,
je me souviens avoir crée il y'a un moment un fichier .VBS avec le bloc notes mais une commande me permettait d'executer mon script en boucle. Je ne me souviens plus de cette commande. Si quelqu'un la connait ce serait sympa (je me souviens qu'il fallait mettre un mot avant et un autre après mais lesquels ???)
Merci d'avance
Posté : 16 mars 2005, 18:58:00
par alain51
Salut,
Quand je fesais des programmes en basic, j'utilisais la commande "goto (n° de ligne)"
que je mettais en dernière ligne ; je renvoyais à la première ligne du programme.
Si cette commande existe en vbs!
Posté : 16 mars 2005, 19:45:00
par philippe
Salut.
Vas voir ces duex liens :
<a href="
http://forum.hardware.fr/hardwarefr/Pro ... 3815-1.htm" target="_blank">
http://forum.hardware.fr/hardwarefr/Pro ... 5-1.htm</a>
Ici, au tiers de la page :
<a href="
http://mypage.bluewin.ch/w.stucki/LangageVBScript.htm" target="_blank">
http://mypage.bluewin.ch/w.stucki/Langa ... ipt.htm</a>
Je n'ai pas recherché longtemps sur Google, mais je pense
que tu pouras facilement trouver un "Manuel" en ligne.
Alain :
Le Basic est mort (paix à son à¢me).
Maintenant, tout est "raccourci".
On ne parle plus qu'en "For" "To" "While" et "Action".
Adieu, mon joli "Goto" si pratique.
Posté : 16 mars 2005, 21:14:00
par alain51
<TABLE BORDER=0 ALIGN=CENTER WIDTH=85%><TR><TD><font size=-1><b>Citation :</b></font></TD></TR></TABLE><TABLE BORDER=1 CELLPADDING=10 BORDERCOLOR=#FF0000 ALIGN=CENTER WIDTH=85%><TR BGCOLOR=#F3F2F4><TD><FONT SIZE=-1>Le 16 mars 2005 à 19:45, philippe a écrit :
...Adieu, mon joli "Goto" si pratique.</FONT></TD></TR></TABLE>
Un exemple d'une macro d'excel :
Sub GotoStatementDemo()
Dim Number, MyString
Number = 1 ' Initialise la variable.
' à‰value Number et se branche à l'étiquette
' appropriée.
If Number = 1 Then GoTo Line1 Else GoTo Line2
Line1:
MyString = "Number est égal à 1"
GoTo LastLine ' Passe à la dernière ligne.
Line2:
' L'instruction suivante ne peut jamais être
' exécutée.
MyString = "Number est égal à 2"
LastLine:
Debug.Print MyString ' Affiche "Number est
' égal à 1" dans la fenêtre
' Exécution.
End Sub
Posté : 17 mars 2005, 08:20:00
par Bejito26
Merci j'ai trouvé tout ce que je voulais et même plus
<IMG SRC="/images/smiles/teeth_smile46.gif"> <IMG SRC="/images/smiles/thumbs_up46.gif">
<IMG SRC="/images/smiles/soleil.gif">
Posté : 17 mars 2005, 09:42:00
par alain51
Tant mieux pour toi! <IMG SRC="/images/smiles/wink_smile46.gif">
Et c'est quoi ta solution pour exécuter ton script en boucle?
Posté : 17 mars 2005, 09:55:00
par Bejito26
C'est la commande Do-loop
exemple :
do
msgbox "Hello"
loop
Voila le message Hello s'affichera en boucle.
Pour le fermer il faut faire terminer la tache VBScript dans le gestionnaire de taches.