Mehrdimensionales Array in VBScript einrichten

Question

Ich konvertiere ein PHP-Programm in VBScript für ASP. Ich stehe fest, um einen Weg zu finden, ein mehrdimensionales Array zu strukturieren und könnte etwas Hilfe gebrauchen.

Hier ist, wie es setzt in der PHP-Version auf:

// $_SESSION[model name][level name][menu name] => [state] 
$_SESSION[$model] = array('level_name' => array('menu_name' => array())); 

und dann hier ist, wie ich einen Wert später eingestellt auf

$_SESSION[$model][$level_name][$menu_name] = array('menu_state' => 'UNCHECKED'); 

Hier ist, was ich in VBScript versucht, die ‚doesn t Arbeit

Session(model).Add "level_name", Array() 
Session(model)("level_name").Add "menu_name", Array() 
Session(model)("level_name")("menu_name").Add "menu_state", Array() 

und dann versuchen, den Wert zu setzen

Session(model)(level_name)(menu_name)("menu_state") = "UNCHECKED" 

aber ich am Ende mit dem sehr hilfreich 500 Server Error.

Irgendwelche Ideen?

Answer 1

Sie benötigen ein Wörterbuch der Wörterbücher:

Dim dicX : Set dicX = CreateObject("Scripting.Dictionary") 
    Set dicX("A") = CreateObject("Scripting.Dictionary") 
    Set dicX("A")("B") = CreateObject("Scripting.Dictionary") 
    Set dicX("A")("B")("C") = CreateObject("Scripting.Dictionary") 
    dicX("A")("B")("C")("D") = "WhatEver" 
    WScript.Echo dicX("A")("B")("C")("D")