VB.Net/Data Structure/SortedList — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
|
Версия 19:40, 26 мая 2010
Create Case Insensitive Sorted List
<source lang="vbnet"> Imports System Imports System.Collections Imports System.Collections.Specialized
Public Class MainClass
Shared Sub Main(ByVal args As String()) Dim sorted_list As SortedList " Use a case-insensitive SortedList. sorted_list = CollectionsUtil.CreateCaseInsensitiveSortedList() sorted_list.Add("S", "Volleyball") "sorted_list.Add("s", "Golf") " Error because Sport = sport. For Each obj As Object In sorted_list Console.WriteLine(obj) Next obj End Sub
End Class
</source>
Output Items in a SortedList
<source lang="vbnet"> Imports System Imports System.Collections Imports System.Collections.Specialized
Public Class MainClass
Shared Sub Main(ByVal args As String()) Dim sortedList As New SortedList sortedList.Add("2", "T") sortedList.Add("0", "T") sortedList.Add("1", "O") sortedList.Add("6", "S") For i As Integer = 0 To sortedList.Count - 1 Console.WriteLine(sortedList.GetKey(i).ToString() & ": " & _ sortedList.GetByIndex(i).ToString()) Next i sortedList.Clear() End Sub
End Class
</source>
Simple Example for Sorted List
<source lang="vbnet"> Imports System Imports System.Collections Imports System.Collections.Specialized
Public Class MainClass
Shared Sub Main(ByVal args As String()) Dim sorted_list As SortedList " Use a normal, case-sensitive SortedList. sorted_list = New SortedList sorted_list.Add("A", "A") sorted_list.Add("a", "B") For Each obj As Object In sorted_list Console.WriteLine(obj) Next obj End Sub
End Class
</source>