Discussion :

[pingus]

Bonjour,

Super novice dans la programmation vbs, je me heurte à une difficulté pour la mise en place d'un tableau dans une boucle. Pour mieux me faire comprendre voici le principe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Dim list()
redim list(1)
list(0)="Toto"
list(1)="Titi"
 
for each x in list
	msgbox x
 
	Dim action()
	redim action(1)
	action(0)=" mange"
	action(1)=" dort"
	for each y in action
		msgbox y
	next
next

L'idée étant de faire dire au script que toto mange & dort ainsi que titi.
Le plus drole c'est que toto peut remplir les deux actions, pas titi.
vbs ferait il de la discrimination ?

Le fait est que je dois surement manqué de compétence...

[omen999]

bonjour,
l'erreur provient de la ligne 10

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim action()

il n'est pas possible de redéfinir une variable tableau autrement qu'en la redimensionnant avec ReDim
cette ligne doit donc être placée avant la 1ère boucle
si le nombre des items est connu au départ du script il est + efficace de déclarer directement des tableaux de taille fixe comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim list(1)

[pingus]

Un grand merci omen999, maintenant toto et titi mangent, dorment, bref passent une vie simple et équitable.
Voici le code si ça peut servir à d'autres :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Dim list()
redim list(1)
list(0)="Toto"
list(1)="Titi"
Dim action()
for each x in list
 
	redim action(1)
	action(0)=" mange"
	action(1)=" dort"
	for each y in action
		msgbox x&" "&y
	next
next