[VBS] Incrementer le nom d'une variable
Raito
-
NHenry Messages postés 15235 Date d'inscription Statut Modérateur Dernière intervention -
NHenry Messages postés 15235 Date d'inscription Statut Modérateur Dernière intervention -
Bonsoir,
J'ai fais des recherches sur Google pendant la soirée mais je n'est pas réussi à trouver pour le VBScript.
Pour expliquer mon problème je souhaiterais "incrementer le nom d'une variable" par exemple.
------------
Dim i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, c
c=0
Do
c=c+1
Msgbox i&c 'Ici mon problème, je souhaiterais que ce m'affiche le contenu de la variable comme si l'on le faisais 'sur une variable classique...
Loop While c<10
------------
Pour qu'à chaque tour ce m'affiche le contenu de la variable en question de i1 à i10.
Merci de votre patience et de votre possible réponse.
Cordialement, Raphaël.
J'ai fais des recherches sur Google pendant la soirée mais je n'est pas réussi à trouver pour le VBScript.
Pour expliquer mon problème je souhaiterais "incrementer le nom d'une variable" par exemple.
------------
Dim i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, c
c=0
Do
c=c+1
Msgbox i&c 'Ici mon problème, je souhaiterais que ce m'affiche le contenu de la variable comme si l'on le faisais 'sur une variable classique...
Loop While c<10
------------
Pour qu'à chaque tour ce m'affiche le contenu de la variable en question de i1 à i10.
Merci de votre patience et de votre possible réponse.
Cordialement, Raphaël.
Configuration: Windows XP Firefox 3.6
2 réponses
-
Salut
il n'est pas possible par programme de changer l'identifiant d'un élément du programme. C'est pour ça qu'on a inventé les tableaux (aka les vecteurs).
les indices sont spécifiés entre crochets ou parenthèses selon les langages.
dans ton exemple on pourrait avoir :
Dim i(10), c
c=0
Do
c=c+1
Msgbox i(c) 'Ici mon problème, je souhaiterais que ce m'affiche le contenu de la variable comme si l'on le faisais 'sur une variable classique...
Loop While c<10 -
Dim z
z = 1
Execute "Dim ticketNum" & z
Execute "ticketNum" & z & " = 2"
MsgBox "ticketNum1 = " & ticketNum1
