Discussion :

[rorette68]

Bonjour,

je débute et j'aimerais savoir si ce que je veux faire est possible.

J'ai défini une classe avec plusieurs attributs.

Je souhaite ensuite initialiser un tableau puis le renseigner :

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
18
19
20
21
22
23
24
25
26
27
sub InitTab
	nb=0
 
	for i = 1 to max
	   nb = nb+ 1
	next
	redim tab( nb - 1 )
 
end sub
 
Sub RenseignerTableau
 
	call InitTab
	dim objMaClasse
	redim objMaClasse( nb - 1 ) 
 
	for i = 0 to nb- 1
		set objMaClasse(i) = new MaClasse
	next
 
	for j = 0 to nb - 1
		objMaClass(j).Attribut1 = ...
		objMaClass(j).Attribut2= ...                    
			...
	next
 
end sub

Merci

[roro06]

Bonjour

De classe, dans ton code, point ne vois. Peut-être, de l'article ici, t'inspirer tu peux.

[rorette68]

Oui je n'ai pas écrit la classe mais je l'ai faite:

Code :

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

1
2
3
4
5
6
7
Class MaClasse 
 
   public Attribut1
   public Attribut2
  ...
 
end class

La ou j'ai des doutes, c'est plutot sur mon tableau d'objet objMaClasse et son utilisation.

merci

[roro06]

Re

La gestion des classes et surtout des tableaux en vbscript sont la principales raisons pour lesquelles je migre progressivement mes applis ASP de vbscript vers jscript.

La ou j'ai des doutes, c'est plutot sur mon tableau d'objet objMaClasse et son utilisation.

Le mieux, c'est peut-être d'essayer, puis de vérifier si le résultat est conforme à tes attentes.

sub InitTab
nb=0

for i = 1 to max
nb = nb+ 1
next
redim tab( nb - 1 )

end sub

1/ya pas plus simple ? genre :

Code :

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

redim tab(max)

2/ Attention à la portée des variables ! ici, i et nb sont globales. Pour qu'elles soient locales (à la sub), il faut les définir explicitement :

Code :

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

1
2
3
4
5
 
sub initTab
    dim i, nb
    ....
end sub