Arrays Asociativos con varias dimensiones

[zacktagnan]

Bueno, pues parece que ya he encontrado uns forma de hacer lo que pretendía, buscando algo más por Internet.
Porque por aquí, últimamente, no es muy frecuente que alguien me exponga una solución a los temas que abro.

Sea como sea, ahí va el ejemplo de cómo hacer el mismo array equivalente al expuesto en PHP y varias formas de recorrer el array para sacar los valores correspondientes:

Código ASP:

Dim datos_pais
Set datos_pais = CreateObject("Scripting.Dictionary")
''''Creando una segunda dimensión para cada elemento de la primera dimensión
datos_pais.Add "es", CreateObject("Scripting.Dictionary")
datos_pais.Add "fr", CreateObject("Scripting.Dictionary")
''''Asignando valores a cada índice
datos_pais("es")("nombre")  = "España"
datos_pais("es")("moneda")  = "la peseta"
''''Otra forma de asignar valores
datos_pais("fr").Add "nombre",  "Francia"
datos_pais("fr").Add "moneda",  "el franco"
 
    Response.Write("<br />")
For Each key_datos_pais In datos_pais
    ''''Dos formas de leer los valores
    '''' 1ª Forma >> elArray(indice_1)(indice_2)
    '''' 2ª Forma >> elArray.Item(indice_1).Item(indice_2)
    Response.Write("<br />&bull; En el país de " & datos_pais(key_datos_pais)("nombre") & ", con el código [" & UCase(key_datos_pais) & "], el nombre de la moneda antes usada era " & datos_pais.Item(key_datos_pais).Item("moneda") & ".")
Next
''''===============================================
''''Esto debería mostrar el siguiente texto:
''''• En el país de España, con el código [ES], el nombre de la moneda antes usada era la peseta.
''''• En el país de Francia, con el código [FR], el nombre de la moneda antes usada era el franco.
 
    Response.Write("<br />")
For Each key_datos_pais In datos_pais
    Response.Write("<br />&bull; [" & UCase(key_datos_pais) & "]")
    For Each key_dato In datos_pais(key_datos_pais)
    Response.Write("<br />&nbsp;&nbsp;&nbsp;&nbsp;>> " & UCase(key_dato) & ": " & datos_pais(key_datos_pais)(key_dato))
    Next
Next
''''===============================================
''''Esto debería mostrar el siguiente texto:
''''• [ES]
''''    >> NOMBRE: España
''''    >> MONEDA: la peseta
''''• [FR]
''''    >> NOMBRE: Francia
''''    >> MONEDA: el franco
 

Pues eso, para todo el que pueda aprovecharse ... ¡Aprovecha!