Discussion :

[zardoz45]

bonjour,
je ne parviens pas à utiliser la méthode CopyTo sur les objets Queue et Stack de System.Collections http://msdn.microsoft.com/fr-fr/libr...=vs.80%29.aspx
Cf. erreurs VBScript en commentaires dans le code ci-dessous

je n'ai pas ce problème sur les autres méthodes : Enqueue, Dequeue, Clear, Contains, ToArray
est-ce un problème de syntaxe ou une restriction liée à VBScript ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim objQueue
Set objQueue = CreateObject("System.Collections.Queue")
Dim MyArray
Dim i
 
' boucle de chargement de 100 éléments dans la pile
For i = 1 To 100
	objQueue.Enqueue ("string numéro " & i)
Next
 
objQueue.CopyTo Array:=MyArray, Index:=0 ' provoque : Erreur de compilation / Instruction attendue
objQueue.CopyTo (MyArray, 0) ' provoque : Erreur de compilation / L'appel d'une fonction Sub n'admet pas de parenthèses

merci de votre aide

[tsuji]

L'appel d'une fonction Sub n'admet pas de parenthèses

Ce qu'il veut dire est ceci:

Code :

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

objQueue.CopyTo MyArray, 0

Je ne sais ce que c'est MyArray, mais c'est ça la syntaxe.

[zardoz45]

Ce qu'il veut dire est ceci:

Code :

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

objQueue.CopyTo MyArray, 0

Je ne sais ce que c'est MyArray, mais c'est ça la syntaxe.

Merci,
j'avais également essayé cette syntaxe mais j'obtiens l'erreur d'exécution VBScript : Argument ou appel de précdure incorrect: 'CopyTo'

La syntaxe VB donnée sur MSDN (http://msdn.microsoft.com/fr-fr/libr...=vs.80%29.aspx) est la suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
'Declaration
Public Overridable Sub CopyTo ( _
	array As Array, _
	index As Integer )
'Usage
Dim instance As Queue
Dim array As Array
Dim index As Integer
 
instance.CopyTo(array, index)

je ne comprends pas ce qui coince ...

[tsuji]

Jamais avec des parenthèses, c'est très tranché en vbs. En vb.net, c'est d'autre règle. Mais ici c'est un forum vbs?

[omen999]

bonjour,
l'exploitation en VBS d'objets issus du framework .NET est toujours un peu scabreuse
(il faudrait un article assez long et fastidieux pour couvrir la matière )
notamment le passage en paramètre de variables tableaux est souvent impossible
maintenant, je constate que tu veux simplement copier le contenu de ta pile dans une variable tableau et pour ça,
il y a une solution, la méthode ToArray

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim objQueue
Set objQueue = CreateObject("System.Collections.Queue")
Dim MyArray
Dim i
 
' boucle de chargement de 100 éléments dans la pile
For i = 1 To 100
	objQueue.Enqueue "string numéro " & i
Next
 
MyArray = objQueue.ToArray
MsgBox MyArray(90)

[zardoz45]

bonjour,
l'exploitation en VBS d'objets issus du framework .NET est toujours un peu scabreuse
(il faudrait un article assez long et fastidieux pour couvrir la matière )
notamment le passage en paramètre de variables tableaux est souvent impossible
maintenant, je constate que tu veux simplement copier le contenu de ta pile dans une variable tableau et pour ça,
il y a une solution, la méthode ToArray

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim objQueue
Set objQueue = CreateObject("System.Collections.Queue")
Dim MyArray
Dim i
 
' boucle de chargement de 100 éléments dans la pile
For i = 1 To 100
	objQueue.Enqueue "string numéro " & i
Next
 
MyArray = objQueue.ToArray
MsgBox MyArray(90)

merci,
Je me suis effectivement replié sur la solution ToArray mais j'aurais bien voulu comprendre comment utiliser la méthode CopyTo ...
Le problème d'appel en VBS serait donc dû au fait que l'un des paramètres est un tableau ?

[omen999]

Le problème d'appel en VBS serait donc dû au fait que l'un des paramètres est un tableau ?

oui
le coup de bol, c'est que cette méthode n'est pas irremplaçable
<objQueue.CopyTo MyArray,0> et <MyArray = objQueue.ToArray> ont exactement le même effet
et si l'index doit être supérieur à 0, une combinaison de Split et de Join fusionnera les deux tableaux

[zardoz45]

en conclusion (merci omen999 !) ...

L'utilisation de la méthode CopyTo sur un objet System.Collections.Queue ne semble pas possible en VBScript, du fait d'une variable tableau en paramètre.
La méthode ToArray, qui ne rencontre pas ce problème, offre à peu près la même fonction (l'ensemble de la Queue est copié dans le tableau).

Code :

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

1
2
3
4
5
6
7
Set objQueue = CreateObject("System.Collections.Queue")
Dim MyArray
 
' l'utilisation de CopyTo provoque une erreur
objQueue.CopyTo MyArray, 0
' mais celle de ToArray fonctionne
MyArray = objQueue.ToArray