2008/06/23(Mon) 14:02:35 編集(投稿者)
> NameValueCollection のなかにある値を格納しているのですが、
> NameValueCollection のSortは可能でしょうか。
SortedListか何かに転記すればソート完了ですが、それじゃダメですか?
Imports System
Imports System.Collections.Specialized
Imports System.Collections.Generic
Module Module1
Sub Main()
Dim I As Integer
Dim nmc As New NameValueCollection()
Dim srl As New SortedList(Of String, String)
nmc.Add("0", "zero")
nmc.Add("0", "れい")
nmc.Add("2", "two")
nmc.Add("2", "に")
nmc.Add("3", "three")
nmc.Add("1", "one")
nmc.Add("1", "いち")
nmc.Add("1", "eins")
nmc.Add("1", "uno")
For I = 0 To nmc.Count - 1
Console.WriteLine("{0}: {1}", nmc.GetKey(I), nmc.Get(I))
srl.Add(nmc.GetKey(I), nmc.Get(I))
Next
Console.WriteLine()
For I = 0 To srl.Count - 1
Console.WriteLine("{0}: {1}", srl.Keys(I), srl.Values(I))
Next
End Sub
End Module