Discussion :

[Montaigne]

Bonjour,

je suis en train de coder un script (vbscript) de transfert d'informations entres bases de données.

Pour cela, je crée un code vbscript constitué de plusieurs classes.

Dans ma classe main, je voudrai gérer une collection d'objets que j'ai moi même défini.

En clair, dans mon script, j'ai

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Class main
 
dim ListeObjReq
' Propiétés, Méthodes, etc.....
end class
 
Class ExecReq
' Propiétés, Méthodes, etc.....
end class

Je voudrai que ListeObjReq soit une collection contenant des objets ExecReq auquel j'accède à la manière d'un tableau

En particulier, dans la classe main, j'ai le code suivant :

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
 
 
 public sub init
                ListObjReq = empty
                CardObjReq = 0
        end sub
 
public sub initObjReq(iNom, iDSN1,iDSN2,iDSN3,iType)
		dim tmp
 
                set tmp = new ExecReq
		tmp.init iNom, iDSN1,iDSN2,iDSN3,iType
 
		redim preserve ListObjReq(CardObjReq+1)
 
 
 
		CardObjReq =CardObjReq + 1
 
		ListObjReq(CardObjReq) = tmp
 
 
 
	end sub

Le problème :
Il ne veut pas de mon redim preserve, types imcompatibles me dit-il...


Donc question : Est-il possible en vbscript de créer une collection d'objets que l'on a défini soit même ?

Dans ce cas comment fait-on ?

Merci !

[pmboutteau]

Tu créé des classes comme en Java là!

On peut faire çà avec VBScript?

[Montaigne]

Tu créé des classes comme en Java là!

On peut faire çà avec VBScript?

Ben j'espère, sinon c'est vraiment un langage minable !

[pmboutteau]

Je crois que c'est avec VB.Net et asp.Net.

La POO çà marche pas en asp par contre tu peux faire des composants( Principe des EJB) mais pas de public private et protected.

Je crois pas.

[tesla]

Bien sur qu'on peut créer des classes en VBScript.
De même on peut utiliser les modificateurs public et private.

Et pour les collections on utilise l'objet "Scripting.Dictionary" qui marche très bien !!

[Montaigne]

Bien sur qu'on peut créer des classes en VBScript.
De même on peut utiliser les modificateurs public et private.

Et pour les collections on utilise l'objet "Scripting.Dictionary" qui marche très bien !!

On peut créer des collections d'objets fourni en standards, mais peut on le faire avec des objets que l'on a crée nous ?

[tesla]

Oui, oui, on peut.

[pmboutteau]

ASP est considéré comme un langage orienté objet?

[Montaigne]

Oui, oui, on peut.

Cool !

Moralité, je fais comment ?

Là j'ai essayé d'utiliser une classe collection et je tombe sur le même problème : il ne veut pas me mettre mon objet dans mon tableau.

Si ça continu je vais le faire en perl, comme ça les linuxiens pourront m'aider, ça ira plus vite...

[Montaigne]

Bien sur qu'on peut créer des classes en VBScript.
De même on peut utiliser les modificateurs public et private.

Et pour les collections on utilise l'objet "Scripting.Dictionary" qui marche très bien !!

Bon j'ai trouvé. Merci.

On fait comme ça :

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
28
 public sub init
 
                ListObjReq = empty
                set ListObjReq = CreateObject("Scripting.Dictionary")
 
                ListObjReq.CompareMode = vbTextCompare
 
 
 
                CardObjReq = 0
        end sub
 
public sub initObjReq(iNom, iDSN1,iDSN2,iDSN3,iType)' limité par vbscript
		dim tmp
 
                set tmp = new ExecReq
 
		tmp.init iNom, iDSN1,iDSN2,iDSN3,iType
 
 
		CardObjReq =CardObjReq + 1
 
		ListObjReq.add cstr(CardObjReq),tmp
 
 
		wscript.echo iNom, iDSN1,iDSN2,iDSN3,iType
 
	end sub

C'est vraiment bidouillatoire de devoir utiliser un objet de hashage comme gestionnaire de collection.

C'est bien du microsoft, ça m'étonne pas.
C'est pas un langage sérieux...