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