Kolekce (Visual Basic)
U mnoha aplikací chcete vytvářet a spravovat skupiny souvisejících objektů. Existují dva způsoby, jak seskupit objekty: vytvořením polí objektů a vytvořením kolekcí objektů.
Pole jsou nejužitečnější při vytváření a práci s pevným počtem objektů silného typu. Informace o polích naleznete v tématu Pole.
Kolekce poskytují flexibilnější způsob práce se skupinami objektů. Na rozdíl od polí může skupina objektů, se kterými pracujete, dynamicky zvětšovat a zmenšovat podle potřeb aplikace. U některých kolekcí můžete přiřadit klíč k libovolnému objektu, který vložíte do kolekce, abyste mohli objekt rychle načíst pomocí klíče.
Kolekce je třída, takže musíte deklarovat instanci třídy před přidáním prvků do této kolekce.
Pokud kolekce obsahuje prvky pouze jednoho datového typu, můžete použít jednu z tříd v System.Collections.Generic oboru názvů. Obecná kolekce vynucuje bezpečnost typů, aby do ní nelze přidat žádný jiný datový typ. Když načtete prvek z obecné kolekce, nemusíte určit jeho datový typ ani jej převést.
Poznámka:
Příklady v tomto tématu obsahují příkazy Imports pro obory System.Collections.Generic názvů a System.Linq obory názvů.
Používání jednoduché kolekce
Příklady v této části používají obecnou List<T> třídu, která umožňuje pracovat se seznamem objektů silného typu.
Následující příklad vytvoří seznam řetězců a pak iteruje řetězce pomocí příkazu For Each... Další příkaz.
' Create a list of strings.
Dim salmons As New List(Of String)
salmons.Add("chinook")
salmons.Add("coho")
salmons.Add("pink")
salmons.Add("sockeye")
' Iterate through the list.
For Each salmon As String In salmons
Console.Write(salmon & " ")
Next
'Output: chinook coho pink sockeye
Pokud je obsah kolekce známý předem, můžete k inicializaci kolekce použít inicializátor kolekce. Další informace naleznete v tématu Inicializátory kolekce.
Následující příklad je stejný jako předchozí příklad, s výjimkou inicializátoru kolekce se používá k přidání elementů do kolekce.
' Create a list of strings by using a
' collection initializer.
Dim salmons As New List(Of String) From
{"chinook", "coho", "pink", "sockeye"}
For Each salmon As String In salmons
Console.Write(salmon & " ")
Next
'Output: chinook coho pink sockeye
Můžete použít for ... Další příkaz místo For Each příkazu, který bude iterovat kolekcí. Toho dosáhnete přístupem k prvkům kolekce podle pozice indexu. Index prvků začíná na 0 a končí počtem prvků minus 1.
Následující příklad iteruje prvky kolekce pomocí namísto For…NextFor Each.
Dim salmons As New List(Of String) From
{"chinook", "coho", "pink", "sockeye"}
For index = 0 To salmons.Count - 1
Console.Write(salmons(index) & " ")
Next
'Output: chinook coho pink sockeye
Následující příklad odebere prvek z kolekce zadáním objektu, který se má odebrat.
' Create a list of strings by using a
' collection initializer.
Dim salmons As New List(Of String) From
{"chinook", "coho", "pink", "sockeye"}
' Remove an element in the list by specifying
' the object.
salmons.Remove("coho")
For Each salmon As String In salmons
Console.Write(salmon & " ")
Next
'Output: chinook pink sockeye
Následující příklad odebere elementy z obecného seznamu. For Each Místo příkazu, for... Použije se další příkaz, který iteruje v sestupném pořadí. Důvodem je to, že metoda způsobí, že RemoveAt prvky po odebrání elementu mají nižší hodnotu indexu.
Dim numbers As New List(Of Integer) From
{0, 1, 2, 3, 4, 5, 6, 7, 8, 9}
' Remove odd numbers.
For index As Integer = numbers.Count - 1 To 0 Step -1
If numbers(index) Mod 2 = 1 Then
' Remove the element by specifying
' the zero-based index in the list.
numbers.RemoveAt(index)
End If
Next
' Iterate through the list.
' A lambda expression is placed in the ForEach method
' of the List(T) object.
numbers.ForEach(
Sub(number) Console.Write(number & " "))
' Output: 0 2 4 6 8
Pro typ prvků v sadě List<T>můžete také definovat vlastní třídu. V následujícím příkladu Galaxy je třída, kterou používá, List<T> definována v kódu.
Private Sub IterateThroughList()
Dim theGalaxies As New List(Of Galaxy) From
{
New Galaxy With {.Name = "Tadpole", .MegaLightYears = 400},
New Galaxy With {.Name = "Pinwheel", .MegaLightYears = 25},
New Galaxy With {.Name = "Milky Way", .MegaLightYears = 0},
New Galaxy With {.Name = "Andromeda", .MegaLightYears = 3}
}
For Each theGalaxy In theGalaxies
With theGalaxy
Console.WriteLine(.Name & " " & .MegaLightYears)
End With
Next
' Output:
' Tadpole 400
' Pinwheel 25
' Milky Way 0
' Andromeda 3
End Sub
Public Class Galaxy
Public Property Name As String
Public Property MegaLightYears As Integer
End Class
Typy kolekcí
Rozhraní .NET Framework poskytuje řadu běžných kolekcí. Každý typ kolekce je určený pro konkrétní účel.
Některé běžné třídy kolekcí jsou popsány v této části:
System.Collections.Generic – třídy
System.Collections.Concurrent – třídy
System.Collections – třídy
Visual Basic
Collection– třída
Třídy System.Collections.Generic
Obecnou kolekci můžete vytvořit pomocí jedné z tříd v System.Collections.Generic oboru názvů. Obecná kolekce je užitečná, když má každá položka v kolekci stejný datový typ. Obecná kolekce vynucuje silné psaní tím, že umožňuje přidání pouze požadovaného datového typu.
Následující tabulka uvádí některé často používané třídy System.Collections.Generic oboru názvů:
| Třída | Popis |
|---|---|
| Dictionary<TKey,TValue> | Představuje kolekci párů klíč/hodnota uspořádaných na základě klíče. |
| List<T> | Představuje seznam objektů, ke kterým lze přistupovat pomocí indexu. Poskytuje metody pro vyhledávání, řazení a úpravy seznamů. |
| Queue<T> | Představuje první kolekci objektů fiFO (first out). |
| SortedList<TKey,TValue> | Představuje kolekci párů klíč/hodnota seřazených podle klíče na základě přidružené IComparer<T> implementace. |
| Stack<T> | Představuje poslední kolekci objektů (LIFO). |
Další informace naleznete v tématu Běžně používané typy kolekcí, výběr třídy kolekce a System.Collections.Generic.
Třídy System.Collections.Concurrent
V rozhraní .NET Framework 4 nebo novějších poskytují kolekce v System.Collections.Concurrent oboru názvů efektivní operace bezpečné pro přístup k položkám kolekce z více vláken.
Třídy v System.Collections.Concurrent oboru názvů by měly být použity místo odpovídajících typů v oboru System.Collections.Generic názvů a System.Collections vždy, když více vláken přistupuje ke kolekci současně. Další informace naleznete v tématu Thread-Sejf Kolekce a System.Collections.Concurrent.
Některé třídy zahrnuté v System.Collections.Concurrent oboru názvů jsou BlockingCollection<T>, ConcurrentDictionary<TKey,TValue>, ConcurrentQueue<T>a ConcurrentStack<T>.
Třídy System.Collections
Třídy v System.Collections oboru názvů neukládají elementy jako objekty s konkrétním typem, ale jako objekty typu Object.
Kdykoli je to možné, měli byste místo starších typů v oboru názvů použít obecné kolekce v System.Collections.Generic oboru názvů nebo System.Collections.Concurrent obor System.Collections názvů.
Následující tabulka uvádí některé často používané třídy v System.Collections oboru názvů:
| Třída | Popis |
|---|---|
| ArrayList | Představuje pole objektů, jejichž velikost je dynamicky zvýšena podle potřeby. |
| Hashtable | Představuje kolekci párů klíč-hodnota uspořádaných podle hodnot hash klíčů. |
| Queue | Představuje první kolekci objektů fiFO (first out). |
| Stack | Představuje poslední kolekci objektů (LIFO). |
Obor System.Collections.Specialized názvů poskytuje specializované a silně typované třídy kolekcí, jako jsou kolekce pouze řetězce a propojené seznamy a hybridní slovníky.
Třída Collection v jazyce Visual Basic
Třídu Jazyka Visual Basic Collection můžete použít pro přístup k položce kolekce pomocí číselného indexu String nebo klíče. Položky můžete do objektu kolekce přidat buď pomocí klíče, nebo bez zadání klíče. Pokud přidáte položku bez klíče, musíte pro přístup k ní použít jeho číselný index.
Třída Jazyka Visual Basic Collection ukládá všechny jeho prvky jako typ Object, takže můžete přidat položku libovolného datového typu. Neexistuje žádná ochrana proti přidání nevhodných datových typů.
Při použití třídy Visual Basic Collection má první položka v kolekci index 1. Liší se od tříd kolekce rozhraní .NET Framework, pro které je počáteční index 0.
Kdykoli je to možné, měli byste místo třídy Visual Basic Collection použít obecné kolekce v System.Collections.Generic oboru názvů nebo System.Collections.Concurrent oboru názvů.
Další informace najdete na webu Collection.
Implementace kolekce párů klíč/hodnota
Obecná Dictionary<TKey,TValue> kolekce umožňuje přístup k prvkům v kolekci pomocí klíče každého prvku. Každý doplněk slovníku se skládá z hodnoty a jeho přidruženého klíče. Načtení hodnoty pomocí klíče je rychlé, protože Dictionary třída je implementována jako hashovací tabulka.
Následující příklad vytvoří Dictionary kolekci a iteruje prostřednictvím slovníku For Each pomocí příkazu.
Private Sub IterateThroughDictionary()
Dim elements As Dictionary(Of String, Element) = BuildDictionary()
For Each kvp As KeyValuePair(Of String, Element) In elements
Dim theElement As Element = kvp.Value
Console.WriteLine("key: " & kvp.Key)
With theElement
Console.WriteLine("values: " & .Symbol & " " &
.Name & " " & .AtomicNumber)
End With
Next
End Sub
Private Function BuildDictionary() As Dictionary(Of String, Element)
Dim elements As New Dictionary(Of String, Element)
AddToDictionary(elements, "K", "Potassium", 19)
AddToDictionary(elements, "Ca", "Calcium", 20)
AddToDictionary(elements, "Sc", "Scandium", 21)
AddToDictionary(elements, "Ti", "Titanium", 22)
Return elements
End Function
Private Sub AddToDictionary(ByVal elements As Dictionary(Of String, Element),
ByVal symbol As String, ByVal name As String, ByVal atomicNumber As Integer)
Dim theElement As New Element
theElement.Symbol = symbol
theElement.Name = name
theElement.AtomicNumber = atomicNumber
elements.Add(Key:=theElement.Symbol, value:=theElement)
End Sub
Public Class Element
Public Property Symbol As String
Public Property Name As String
Public Property AtomicNumber As Integer
End Class
Chcete-li místo toho použít inicializátor kolekce k sestavení Dictionary kolekce, můžete nahradit BuildDictionary a AddToDictionary metody následující metodou.
Private Function BuildDictionary2() As Dictionary(Of String, Element)
Return New Dictionary(Of String, Element) From
{
{"K", New Element With
{.Symbol = "K", .Name = "Potassium", .AtomicNumber = 19}},
{"Ca", New Element With
{.Symbol = "Ca", .Name = "Calcium", .AtomicNumber = 20}},
{"Sc", New Element With
{.Symbol = "Sc", .Name = "Scandium", .AtomicNumber = 21}},
{"Ti", New Element With
{.Symbol = "Ti", .Name = "Titanium", .AtomicNumber = 22}}
}
End Function
Následující příklad používá metodu ContainsKeyItem[] a vlastnost Dictionary k rychlému vyhledání položky podle klíče. Tato Item vlastnost umožňuje přístup k položce v elements kolekci pomocí elements(symbol) kódu v jazyce Visual Basic.
Private Sub FindInDictionary(ByVal symbol As String)
Dim elements As Dictionary(Of String, Element) = BuildDictionary()
If elements.ContainsKey(symbol) = False Then
Console.WriteLine(symbol & " not found")
Else
Dim theElement = elements(symbol)
Console.WriteLine("found: " & theElement.Name)
End If
End Sub
Následující příklad místo toho používá metodu TryGetValue rychle najít položku podle klíče.
Private Sub FindInDictionary2(ByVal symbol As String)
Dim elements As Dictionary(Of String, Element) = BuildDictionary()
Dim theElement As Element = Nothing
If elements.TryGetValue(symbol, theElement) = False Then
Console.WriteLine(symbol & " not found")
Else
Console.WriteLine("found: " & theElement.Name)
End If
End Sub
Přístup ke kolekci pomocí jazyka LINQ
LINQ (language-integrated Query) se dá použít pro přístup k kolekcím. Dotazy LINQ poskytují možnosti filtrování, řazení a seskupování. Další informace naleznete v tématu Začínáme s LINQ v jazyce Visual Basic.
Následující příklad spustí dotaz LINQ na obecný List. Dotaz LINQ vrátí jinou kolekci, která obsahuje výsledky.
Private Sub ShowLINQ()
Dim elements As List(Of Element) = BuildList()
' LINQ Query.
Dim subset = From theElement In elements
Where theElement.AtomicNumber < 22
Order By theElement.Name
For Each theElement In subset
Console.WriteLine(theElement.Name & " " & theElement.AtomicNumber)
Next
' Output:
' Calcium 20
' Potassium 19
' Scandium 21
End Sub
Private Function BuildList() As List(Of Element)
Return New List(Of Element) From
{
{New Element With
{.Symbol = "K", .Name = "Potassium", .AtomicNumber = 19}},
{New Element With
{.Symbol = "Ca", .Name = "Calcium", .AtomicNumber = 20}},
{New Element With
{.Symbol = "Sc", .Name = "Scandium", .AtomicNumber = 21}},
{New Element With
{.Symbol = "Ti", .Name = "Titanium", .AtomicNumber = 22}}
}
End Function
Public Class Element
Public Property Symbol As String
Public Property Name As String
Public Property AtomicNumber As Integer
End Class
Řazení kolekce
Následující příklad znázorňuje postup řazení kolekce. Příklad seřadí instance Car třídy, které jsou uloženy v objektu List<T>. Třída Car implementuje IComparable<T> rozhraní, které vyžaduje, aby CompareTo byla metoda implementována.
Každé volání CompareTo metody vytvoří jedno porovnání, které se používá k řazení. Uživatelem napsaný kód v CompareTo metodě vrátí hodnotu pro každé porovnání aktuálního objektu s jiným objektem. Vrácená hodnota je menší než nula, pokud je aktuální objekt menší než druhý objekt, větší než nula, pokud je aktuální objekt větší než druhý objekt, a nula, pokud jsou stejné. To umožňuje definovat v kódu kritéria pro větší než, menší než a rovno.
ListCars Příkaz v cars.Sort() metodě seřadí seznam. Toto volání Sort metody způsobí, CompareTo že metoda bude volána automaticky pro Car objekty v objektu ListList<T> .
Public Sub ListCars()
' Create some new cars.
Dim cars As New List(Of Car) From
{
New Car With {.Name = "car1", .Color = "blue", .Speed = 20},
New Car With {.Name = "car2", .Color = "red", .Speed = 50},
New Car With {.Name = "car3", .Color = "green", .Speed = 10},
New Car With {.Name = "car4", .Color = "blue", .Speed = 50},
New Car With {.Name = "car5", .Color = "blue", .Speed = 30},
New Car With {.Name = "car6", .Color = "red", .Speed = 60},
New Car With {.Name = "car7", .Color = "green", .Speed = 50}
}
' Sort the cars by color alphabetically, and then by speed
' in descending order.
cars.Sort()
' View all of the cars.
For Each thisCar As Car In cars
Console.Write(thisCar.Color.PadRight(5) & " ")
Console.Write(thisCar.Speed.ToString & " ")
Console.Write(thisCar.Name)
Console.WriteLine()
Next
' Output:
' blue 50 car4
' blue 30 car5
' blue 20 car1
' green 50 car7
' green 10 car3
' red 60 car6
' red 50 car2
End Sub
Public Class Car
Implements IComparable(Of Car)
Public Property Name As String
Public Property Speed As Integer
Public Property Color As String
Public Function CompareTo(ByVal other As Car) As Integer _
Implements System.IComparable(Of Car).CompareTo
' A call to this method makes a single comparison that is
' used for sorting.
' Determine the relative order of the objects being compared.
' Sort by color alphabetically, and then by speed in
' descending order.
' Compare the colors.
Dim compare As Integer
compare = String.Compare(Me.Color, other.Color, True)
' If the colors are the same, compare the speeds.
If compare = 0 Then
compare = Me.Speed.CompareTo(other.Speed)
' Use descending order for speed.
compare = -compare
End If
Return compare
End Function
End Class
Definice vlastní kolekce
Kolekci můžete definovat implementací IEnumerable<T> nebo IEnumerable rozhraním. Další informace najdete v tématu Vytvoření výčtu kolekce.
I když můžete definovat vlastní kolekci, je obvykle lepší místo toho použít kolekce, které jsou součástí rozhraní .NET Framework, které jsou popsány v typech kolekcí dříve v tomto tématu.
Následující příklad definuje vlastní třídu kolekce s názvem AllColors. Tato třída implementuje IEnumerable rozhraní, které vyžaduje, aby GetEnumerator byla metoda implementována.
Metoda GetEnumerator vrátí instanci ColorEnumerator třídy. ColorEnumerator implementuje IEnumerator rozhraní, které vyžaduje implementaci Current vlastnosti, MoveNext metody a Reset metody.
Public Sub ListColors()
Dim colors As New AllColors()
For Each theColor As Color In colors
Console.Write(theColor.Name & " ")
Next
Console.WriteLine()
' Output: red blue green
End Sub
' Collection class.
Public Class AllColors
Implements System.Collections.IEnumerable
Private _colors() As Color =
{
New Color With {.Name = "red"},
New Color With {.Name = "blue"},
New Color With {.Name = "green"}
}
Public Function GetEnumerator() As System.Collections.IEnumerator _
Implements System.Collections.IEnumerable.GetEnumerator
Return New ColorEnumerator(_colors)
' Instead of creating a custom enumerator, you could
' use the GetEnumerator of the array.
'Return _colors.GetEnumerator
End Function
' Custom enumerator.
Private Class ColorEnumerator
Implements System.Collections.IEnumerator
Private _colors() As Color
Private _position As Integer = -1
Public Sub New(ByVal colors() As Color)
_colors = colors
End Sub
Public ReadOnly Property Current() As Object _
Implements System.Collections.IEnumerator.Current
Get
Return _colors(_position)
End Get
End Property
Public Function MoveNext() As Boolean _
Implements System.Collections.IEnumerator.MoveNext
_position += 1
Return (_position < _colors.Length)
End Function
Public Sub Reset() Implements System.Collections.IEnumerator.Reset
_position = -1
End Sub
End Class
End Class
' Element class.
Public Class Color
Public Property Name As String
End Class
Iterátory
Iterátor slouží k provedení vlastní iterace v kolekci. Iterátorem může být metoda nebo get příslušenství. Iterátor používá příkaz Yield k vrácení každého prvku kolekce po jednom.
Iterátor můžete volat pomocí příkazu For Each... Další příkaz. Každá iterace smyčky For Each volá iterátor. Yield Při dosažení příkazu v iterátoru se vrátí výraz a aktuální umístění v kódu se zachová. Spuštění se restartuje z daného umístění při příštím volání iterátoru.
Další informace najdete v tématu Iterátory (Visual Basic).
Následující příklad používá metodu iterátoru. Metoda iterátoru má Yield příkaz, který je uvnitř objektu For... Další smyčka. ListEvenNumbers V metodě každá iterace For Each těla příkazu vytvoří volání metody iterátoru, která pokračuje k dalšímu Yield příkazu.
Public Sub ListEvenNumbers()
For Each number As Integer In EvenSequence(5, 18)
Console.Write(number & " ")
Next
Console.WriteLine()
' Output: 6 8 10 12 14 16 18
End Sub
Private Iterator Function EvenSequence(
ByVal firstNumber As Integer, ByVal lastNumber As Integer) _
As IEnumerable(Of Integer)
' Yield even numbers in the range.
For number = firstNumber To lastNumber
If number Mod 2 = 0 Then
Yield number
End If
Next
End Function
