Scripting.Dictionary

[dieguicho]

Hola a todos!!

a los bifes...

como deberia hacer un for para que me devuelva todas los items y sus respectivas keys?
ej....

SET MyDictionary=CreateObject("Scripting.Dictionary")

saludos y

[Relket]

Puedes hacer lo siguiente:

Código PHP:

  Set Dic = Server.CreateObject("Scripting.Dictionary")
 Dic.Add "uno", "Hola"
 Dic.Add "dos", "Adios"
 
Dim Ar,Kr
Kr = Dic.Keys()
Ar = Dic.Items()
 
for I = 0 to ubound(Ar)
   response.write("Item: " & Kr(I) & "  |Keys: " & Ar(I) & "<br/>")
Next 
   

Dic.Keys: Devuelve un arreglo con todas las keys que contiene el objeto Dictionary.

Dic.Items: Devuelve un arreglo con todos los items que contiene el objeto Dictionary.

Otra forma de hacer el For seria la siguiente:

Código PHP:

  Set Dic = Server.CreateObject("Scripting.Dictionary")
 Dic.Add "uno", "Hola"
 Dic.Add "dos", "Adios"
 
for each item in Dic
 response.write("Item: " & item & "  |Keys: " & Dic(item) &"<br/>")
next 
   

Ambos codigos desplegan lo siguiente:
Item: uno |Keys: Hola
Item: dos |Keys: Adios

Y ya. Creo que sabes como deplegar los datos que contiene un arreglo.

Saludos.

[dieguicho]

gracias!!