VB.Net by API/System.Collections.Specialized/NameValueCollection
Содержание
NameValueCollection.Add
<source lang="vbnet"> Imports System Imports System.Collections Imports System.Collections.Specialized
Public Class MainClass
Shared Sub Main(ByVal args As String()) Dim nvc As New NameValueCollection nvc.Add("Value 1", "Key 1") nvc.Add("Value 2", "Key 2") nvc.Add("Value 3", "Key 3") nvc.Add("Value 4", "Key 4") nvc.Add("Value 5", "Key 5") nvc.Add("Value 6", "Key 6") nvc.Add("Value 7", "Key 7") Dim values() As String For Each key As String In nvc.Keys Console.Write(key & ":") values = nvc.GetValues(key) For Each value As String In values Console.WriteLine(" " & value) Next value Next key Console.WriteLine() For Each key As String In nvc.Keys Console.WriteLine(key & ": " & nvc.Item(key)) Next key End Sub
End Class
</source>
NameValueCollection.GetValues
<source lang="vbnet"> Imports System Imports System.Collections Imports System.Collections.Specialized
Public Class MainClass
Shared Sub Main(ByVal args As String()) Dim nvc As New NameValueCollection nvc.Add("Value 1", "Key 1") nvc.Add("Value 2", "Key 2") nvc.Add("Value 3", "Key 3") nvc.Add("Value 4", "Key 4") nvc.Add("Value 5", "Key 5") nvc.Add("Value 6", "Key 6") nvc.Add("Value 7", "Key 7") Dim values() As String For Each key As String In nvc.Keys Console.Write(key & ":") values = nvc.GetValues(key) For Each value As String In values Console.WriteLine(" " & value) Next value Next key Console.WriteLine() For Each key As String In nvc.Keys Console.WriteLine(key & ": " & nvc.Item(key)) Next key End Sub
End Class
</source>
NameValueCollection.Item
<source lang="vbnet"> Imports System Imports System.Collections Imports System.Collections.Specialized
Public Class MainClass
Shared Sub Main(ByVal args As String()) Dim nvc As New NameValueCollection nvc.Add("Value 1", "Key 1") nvc.Add("Value 2", "Key 2") nvc.Add("Value 3", "Key 3") nvc.Add("Value 4", "Key 4") nvc.Add("Value 5", "Key 5") nvc.Add("Value 6", "Key 6") nvc.Add("Value 7", "Key 7") Dim values() As String For Each key As String In nvc.Keys Console.Write(key & ":") values = nvc.GetValues(key) For Each value As String In values Console.WriteLine(" " & value) Next value Next key Console.WriteLine() For Each key As String In nvc.Keys Console.WriteLine(key & ": " & nvc.Item(key)) Next key End Sub
End Class
</source>
NameValueCollection.Keys
<source lang="vbnet"> Imports System Imports System.Collections Imports System.Collections.Specialized
Public Class MainClass
Shared Sub Main(ByVal args As String()) Dim nvc As New NameValueCollection nvc.Add("Value 1", "Key 1") nvc.Add("Value 2", "Key 2") nvc.Add("Value 3", "Key 3") nvc.Add("Value 4", "Key 4") nvc.Add("Value 5", "Key 5") nvc.Add("Value 6", "Key 6") nvc.Add("Value 7", "Key 7") Dim values() As String For Each key As String In nvc.Keys Console.Write(key & ":") values = nvc.GetValues(key) For Each value As String In values Console.WriteLine(" " & value) Next value Next key Console.WriteLine() For Each key As String In nvc.Keys Console.WriteLine(key & ": " & nvc.Item(key)) Next key End Sub
End Class
</source>