dictionary-字典用法 VB.net 2005

 Dim stateCaps As New Dictionary(Of String, String)

 

        ' Add items to the dictionary

        stateCaps.Add("WA", "Olympia")

        stateCaps.Add("NM", "Santa Fe")

        Trace.WriteLine(stateCaps.Item("WA"))  'True

        Trace.WriteLine(statecaps.ContainsValue("Olympia")) 'True

 

 

 

  Dim stateCaps As New Dictionary(Of String, String())

        stateCaps.Add("WA", New String() {"Olympia", "aaa"})

        stateCaps.Add("NM", New String() {"Santa Fe"})

 

?statecaps.Item("WA")

{Length=2}

    (0): "Olympia"

    (1): "aaa"

?statecaps.Item("WA")(0)

"Olympia"

 

Dim Dstr(0) as String

得到字典中的以“WA”为键的值

statecaps.TryGetValue("WA",dstr)

 

        For Each kvp As KeyValuePair(Of String, String()) In stateCaps

            Console.WriteLine("Key = {0}, Value = {1}", _

                kvp.Key, kvp.Value(0))

        Next kvp

‘得到全部值的集合：

        Dim valueColl As _

             Dictionary(Of String, String()).ValueCollection = _

                                stateCaps.Values

‘枚举得到全部值：

        For Each s() As String In valueColl

            Console.WriteLine("Value = {0}", s(0))

        Next s

 

        For Each capitol As String In stateCaps.Values

 

        Next

 

 

 

‘==========================================================

 ‘ 字典Dictionary含有一个关键字，可方便查询；

‘ 下面建立了一个包含有结构的字典，以便查询。

‘==========================================================