Utilisation de CopyTo sur System.Collections.Queue

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:

---

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

Citation:

---

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

---

Ce qu'il veut dire est ceci:

Code:

---

objQueue.CopyTo MyArray, 0

---

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

Citation:

---

Envoyé par tsuji

Ce qu'il veut dire est ceci:

Code:

---

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:

---

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 ...

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?

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 :roll:)
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 8-)

Code:

---

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)

---

Citation:

---

Envoyé par 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 :roll:)
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 8-)

Code:

---

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 ?

Citation:

---

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

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:

---

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

---