Ich arbeite viel mit Dictionaries. Aber das erstellen ist immer relativ anstrengend. Darum habe ich die Funktion dictionary geschrieben. Mit der kann man mit einem einfachen Einzeiler ein Dictionaray erstellen und abfüllen

Für die Ausgabe der Resultate verwendete ich die Funktion [VBA] print_r()

Eine einfache Liste von Werten ohne key

dictionary(dListSimple, value1 [,value2... [,value#]])

print_r dictionary(dListSimple, "a", "b", "c")
<Dictionary>  (
    [0] => <String> 'a'
    [1] => <String> 'b'
    [2] => <String> 'c'
)

Die Parameter sind immer abwechselnd key, value, key, value etc

dictionary([dListInclKeys,] key1, value1 [,key2, value2... [,key#, value#]])

print_r dictionary("A", "aa", "B", "bb", "C", "cc")
<Dictionary>  (
    [A] => <String> 'aa'
    [B] => <String> 'bb'
    [C] => <String> 'cc'
)

Die Parameter sind Arrays. Jede Array hat als ersen Eintrag den Key, als Zweiten Eintrag den Value. Den Type dArrayPairs kann man weglassen, wenn man mehr als 2 Arrays hat. Ansonsten hat der Type dCombine vorrang

dictionary([dArrayPairs,] array(key1, value1) [,array(key2, value2)... [,array(key#, value#)]])

print_r dictionary(dArrayPairs, array("A", "aa"), array("B", "bb"))
<Dictionary>  (
    [A] => <String> 'aa'
    [B] => <String> 'bb'
)

Zwei Parameter werden mitgegeben werden.Der Erste beinhaltet alle Keys, der Zweite di dazugehörigen Values

dictionary([dCombine,] array(key1 [,key2... [,key#]]), array(value1[, value2...[, value#]]))

print_r dictionary(array("A", "B"), array("aa", "bb"))
<Dictionary>  (
    [A] => <String> 'aa'
    [B] => <String> 'bb'
)

Alle Parametersind Dictionaries. DIese werden zusammengeführt zu einem

dictionary([dDictionary,] dictionary1 [,dictionary2... [,dictionary#]])

print_r dictionary(dictionary(dListSimple, 1,2,3), dictionary("A","a","B","b"))
<Dictionary>  (
    [0] => <Integer> 1
    [1] => <Integer> 2
    [2] => <Integer> 3
    [A] => <String> 'a'
    [B] => <String> 'b'
)

Hat nur ein Array als Parameter. Aus dem Array wird ein Dictionary erstellt

dictionary([dArray,] array(value1 [,value2... [,value#]]))

print_r dictionary(array("aa","bb","cc"))
<Dictionary>  (
    [0] => <String> 'aa'
    [1] => <String> 'bb'
    [2] => <String> 'cc'
)