Yaslaw.Info

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
<const>
    version=3.1.3
    vdate=07.01.2015
    fname=cast_cdict.bas
    ns=%NAMESPACE%
    fpath=/vba/cast
</const>
{{keywords>vba,dictionary,cast,create dictionary,function}}
{{description>Diese Funktion erstellt auf verschiedene Arten ein Dictionary. V-%%version
%%}}

====== [VBA] cDict() ======
//Einfaches erstellen eines Dictionarays aus Arrays, Collections, String, Wertesammlungen.//

==Version %%version%% - %%vdate%%==
Diese Funktion erstellt auf verschiedene Arten ein Dictionary.
\\ Die Funktion alleinstehend macht mässig Sinn. ich brauche sie aber immer mal wieder in anderen Funktionen. zB [[vba:functions:strreplace]]

{{%%fname%%|Download %%fname%% (V-%%version%%)}}

>Um aus einem JSON-String ein Dictionary zu erstellen habe ich die Libraray [[vba:cast:json]] erstellt.
Darum wird dasnicht in der Funktion cDict() abgehandelt

===== Definitionen =====
Es gibt verschiedene Varianten um cDict() anzuwenden. Hier ist mal eine Liste verschiedener Anwendungsarten. Beispiele dazu sin weiter unten aufgeführt
<code>Dictionary = cDict(key1, value1 [,key2, value2...[,key#, value#]])

Dictionary = cDict(array(key1 [,key2...[,key#]]), array(value1 [,value2...[,value#]])

Dictionary = cDict(array(value1 [,value2...[,value#]])

Dictionary = cDict(dictionary1 [,dictionary2...[,dictionary#]])

Dictionary = cDict(string)</code>

<code vb>Public Function cDict(ParamArray iItems() As Variant) As dictionary</code>

===== Beispiele =====
> Für die Ausgabe der Resultate verwendete ich die Funktion [[:vba:functions:print_r:]].

==== Key & value abwechselnd ====
<code>Dictionary = cDict(key1, value1 [,key2, value2...[,key#, value#]])</code>
Die Funktionsargumente sind abwechselnd Key, Value
<code vb>'Normal: Gleich viele Keys wie Values
d cDict("A", 123, "B", now, "C", "Wert 'C'")
<Dictionary>  (
    [A] => <Integer> 123
    [B] => <Date> 08.09.2014 12:24:51
    [C] => <String> 'Wert 'C''
)

'ungerade Anzahl Argument. Der letzte Key hat keinen Wert
d cDict("a", "A", "b", "B", "c")
<Dictionary>  (
    [a] => <String> 'A'
    [b] => <String> 'B'
    [c] => <Empty> 
)

'Nur ein Key ohne Value
d cDict(2)
<Dictionary>  (
    [2] => <Empty> 
)

'Ohne Keys. Der Key ist Empty. Der Zweite Wert überschreibt den ersten nicht
d cDict(,2,,3)
<Dictionary>  (
    [] => <Integer> 2
)</code>

==== 1 Array: Ein Array mit Values ====
<code>Dictionary = cDict(array(value1 [,value2...[,value#]])</code>
Es wird nur ein Array übergeben. Dann wird dieser Array als Value-Array in ein Dictionary gewandelt mit dem Arrayindex als Key
<code vb>'Ein nicht weiter spezifizierter Array. Index beginnt bei 0
d cDict(array(123, now, "Wert 'C'"))
<Dictionary>  (
    [0] => <Integer> 123
    [1] => <Date> 08.09.2014 12:26:06
    [2] => <String> 'Wert 'C''
)

'Ein Array mit Index von 3 bis 5
Public Sub testCDict()
    Dim arr(3 To 5) As String
    arr(3) = "C"
    arr(4) = "D"
    arr(5) = "E"
    
    print_r cDict(arr)
End Sub
'Ausgabe:
<Dictionary>  (
    [3] => <String> 'C'
    [4] => <String> 'D'
    [5] => <String> 'E'
)</code>
==== 2 Arrays: Key-Array und Value-Array ====
<code>Dictionary = cDict(array(key1 [,key2...[,key#]]), array(value1 [,value2...[,value#]])</code>
Der Funktion werden 2 Arrays übergeben. Der erste beinhaltet alle Keys, der Zweite die Values. Die Anzahl Einträge hängt nur vom Key-Array ab

<code vb>'Standard: Es sind gleich viele Values wie Keys
d cDict(array("A", "B", "C"), array(123, now, "Wert 'C'"))
<Dictionary>  (
    [A] => <Integer> 123
    [B] => <Date> 08.09.2014 12:25:47
    [C] => <String> 'Wert 'C''
)

'Mehr Values als Keys
d cDict(Array(1,2,3), array("A", "B", "C", "D"))
<Dictionary>  (
    [1] => <String> 'A'
    [2] => <String> 'B'
    [3] => <String> 'C'
)

'Mehr keys wie Values
d cDict(Array(1,2,3), array(1))
<Dictionary>  (
    [1] => <Integer> 1
    [2] => <Empty> 
    [3] => <Empty> 
)</code>

==== Ein Zuordnungsstring ====
<code>Dictionary = cDict(string)</code>
%%Ein Dictionary kann auch als String beschrieben werden. So ähnlich einem Set-Statement in einem SQL.
Dieser beinhalter jeweils ein Key (key in [], '' oder ""), eine Zuweisung(=>, = oder :) und einem Value ('' oder "" als Delemiter für Strings, ## für Datum und keine Delemiter für Zahlen). Es können mehrere Zuweisungen mit einem Komma getrent übergeben werden.%%\\
Ist ein Delemiter Bestandteil des Textes, kann er mit einem \ maskiert werden. Zum Beispiel 'Paddy O\'Brien'.
<code vb>'2 Verschidene Zuordnungen: Zahl, Datum und Text.
'Man sieht auch die 3 verschiedenen KEy-Value Zuordnungsstrings '=>', '=', ':'
d cdict("'A'=>123456,'B':123.45,'C'=#11-1-2014#,'3.4':'abc'")
<Dictionary>  (
    [A] => <Long> 123456
    [B] => <Double> 123.45
    [C] => <Date> 11.01.2014
    [3.4] => <String> 'abc'
)


'Ein Beispiel um Delemiter zu maskieren
d cDict("A=> 'Wert \'C\'', [B] => '[x]=>2, [y] => ""3""', 'C' => ""Wert \""C\""""")
<Dictionary>  (
    [A] => <String> 'Wert 'C''
    [B] => <String> '[x]=>2, [y] => "3"'
    [C] => <String> 'Wert "C"'
)</code>

==== Dictionaries ====
<code>Dictionary = cDict(dictionary1 [,dictionary2...[,dictionary#]])</code>
Es können auch mehrere Dictionaries übergeben werden. Diese werden dann zusammengesetzt, wobei doppelte Keys nicht überschrieben werden
<code vb>d cDict(cDict(array(1,2,3)), CDict("3=>4, 4=>5"))
<Dictionary>  (
    [0] => <Integer> 1
    [1] => <Integer> 2
    [2] => <Integer> 3
    [3] => <Decimal> 4
    [4] => <Decimal> 5
)
</code>

===== Code =====
<source '%%fpath%%/%%fname%%' vb>
Yaslaw.Info

User Tools

Site Tools

Page Tools
