Dela via


Samlingar (Visual Basic)

För många program vill du skapa och hantera grupper med relaterade objekt. Det finns två sätt att gruppera objekt: genom att skapa matriser med objekt och genom att skapa samlingar med objekt.

Matriser är mest användbara för att skapa och arbeta med ett fast antal starkt skrivna objekt. Information om matriser finns i Matriser.

Samlingar är ett mer flexibelt sätt att arbeta med grupper av objekt. Till skillnad från matriser kan gruppen med objekt som du arbetar med växa och krympa dynamiskt när programmets behov ändras. För vissa samlingar kan du tilldela en nyckel till alla objekt som du placerar i samlingen så att du snabbt kan hämta objektet med hjälp av nyckeln.

En samling är en klass, så du måste deklarera en instans av klassen innan du kan lägga till element i samlingen.

Om din samling endast innehåller element av en datatyp kan du använda en av klasserna i System.Collections.Generic namnområdet. En allmän samling tillämpar typsäkerhet så att ingen annan datatyp kan läggas till i den. När du hämtar ett element från en allmän samling behöver du inte fastställa dess datatyp eller konvertera den.

Kommentar

Exempel i det här avsnittet innehåller importinstruktioner för namnrymderna System.Collections.Generic och System.Linq .

Använda en enkel samling

Exemplen i det här avsnittet använder den generiska List<T> klassen, som gör att du kan arbeta med en starkt skriven lista med objekt.

I följande exempel skapas en lista med strängar och itereras sedan genom strängarna med hjälp av en För varje... Nästa instruktion.

' 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

Om innehållet i en samling är känt i förväg kan du använda en insamlingsinitierare för att initiera samlingen. Mer information finns i Insamlingsinitierare.

Följande exempel är detsamma som i föregående exempel, förutom att en insamlingsinitierare används för att lägga till element i samlingen.

' 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

Du kan använda en För... Nästa -instruktion i stället för en For Each -instruktion för att iterera via en samling. Det gör du genom att komma åt samlingselementen efter indexpositionen. Indexet för elementen börjar vid 0 och slutar vid elementantalet minus 1.

I följande exempel itereras genom elementen i en samling med hjälp For…Next av i stället för For 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

I följande exempel tar du bort ett element från samlingen genom att ange objektet som ska tas bort.

' 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

I följande exempel tar du bort element från en allmän lista. I stället för en For Each instruktion, en For... Nästa instruktion som itererar i fallande ordning används. Det beror på att metoden gör att element efter RemoveAt ett borttaget element har ett lägre indexvärde.

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

För typen av element i List<T>kan du också definiera din egen klass. I följande exempel definieras klassen Galaxy som används av List<T> koden.

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

Typer av samlingar

Många vanliga samlingar tillhandahålls av .NET Framework. Varje typ av samling är utformad för ett specifikt syfte.

Några av de vanliga samlingsklasserna beskrivs i det här avsnittet:

System.Collections.Generic-klasser

Du kan skapa en allmän samling med hjälp av någon av klasserna i System.Collections.Generic namnområdet. En allmän samling är användbar när varje objekt i samlingen har samma datatyp. En allmän samling framtvingar stark skrivning genom att endast den önskade datatypen kan läggas till.

I följande tabell visas några av de klasser som används ofta i System.Collections.Generic namnområdet:

Klass beskrivning
Dictionary<TKey,TValue> Representerar en samling nyckel/värde-par som är ordnade baserat på nyckeln.
List<T> Representerar en lista över objekt som kan nås via index. Innehåller metoder för att söka i, sortera och ändra listor.
Queue<T> Representerar en fifo-samling (first in, first out) med objekt.
SortedList<TKey,TValue> Representerar en samling nyckel/värde-par som sorteras efter nyckel baserat på den associerade IComparer<T> implementeringen.
Stack<T> Representerar en lifo-samling (last in, first out) med objekt.

Mer information finns i Vanliga samlingstyper, Välja en samlingsklass och System.Collections.Generic.

System.Collections.Concurrent-klasser

I .NET Framework 4 eller senare ger samlingarna i System.Collections.Concurrent namnområdet effektiva trådsäkra åtgärder för åtkomst till samlingsobjekt från flera trådar.

Klasserna i System.Collections.Concurrent namnområdet ska användas i stället för motsvarande typer i namnrymderna System.Collections.Generic och System.Collections när flera trådar kommer åt samlingen samtidigt. Mer information finns i Thread-Valv Collections och System.Collections.Concurrent.

Vissa klasser som ingår i System.Collections.Concurrent namnområdet är BlockingCollection<T>, ConcurrentDictionary<TKey,TValue>, ConcurrentQueue<T>och ConcurrentStack<T>.

System.Collections-klasser

Klasserna i System.Collections namnområdet lagrar inte element som specifikt typerade objekt, utan som objekt av typen Object.

När det är möjligt bör du använda de allmänna samlingarna i System.Collections.Generic namnområdet eller System.Collections.Concurrent namnområdet i stället för de äldre typerna System.Collections i namnområdet.

I följande tabell visas några av de klasser som används ofta i System.Collections namnområdet:

Klass beskrivning
ArrayList Representerar en matris med objekt vars storlek ökas dynamiskt efter behov.
Hashtable Representerar en samling nyckel/värde-par som är ordnade baserat på nyckelns hash.
Queue Representerar en fifo-samling (first in, first out) med objekt.
Stack Representerar en lifo-samling (last in, first out) med objekt.

Namnområdet System.Collections.Specialized innehåller specialiserade och starkt typerade samlingsklasser, till exempel endast strängsamlingar och länkade listor och hybridordlistor.

Visual Basic-samlingsklass

Du kan använda klassen Visual Basic Collection för att komma åt ett samlingsobjekt med hjälp av antingen ett numeriskt index eller en String nyckel. Du kan lägga till objekt i ett samlingsobjekt med eller utan att ange en nyckel. Om du lägger till ett objekt utan en nyckel måste du använda dess numeriska index för att komma åt det.

Klassen Visual Basic Collection lagrar alla dess element som typ Object, så att du kan lägga till ett objekt av valfri datatyp. Det finns inget skydd mot att olämpliga datatyper läggs till.

När du använder klassen Visual Basic Collection har det första objektet i en samling ett index på 1. Detta skiljer sig från samlingsklasserna för .NET Framework, för vilka startindexet är 0.

När det är möjligt bör du använda de allmänna samlingarna i System.Collections.Generic namnområdet eller System.Collections.Concurrent namnområdet i stället för klassen Visual Basic Collection .

Mer information finns i Collection.

Implementera en samling nyckel/värde-par

Med Dictionary<TKey,TValue> den allmänna samlingen kan du komma åt element i en samling med hjälp av nyckeln för varje element. Varje tillägg till ordlistan består av ett värde och dess associerade nyckel. Det går snabbt att hämta ett värde med hjälp av dess nyckel eftersom Dictionary klassen implementeras som en hash-tabell.

I följande exempel skapas en Dictionary samling och itereras via ordlistan med hjälp av en For Each -instruktion.

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

Om du i stället vill använda en insamlingsinitierare för att skapa Dictionary samlingen kan du ersätta BuildDictionary metoderna och AddToDictionary med följande metod.

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

I följande exempel används ContainsKey metoden och Item[] egenskapen Dictionary för för att snabbt hitta ett objekt efter nyckel. Med Item egenskapen kan du komma åt ett objekt i elements samlingen med hjälp elements(symbol) av koden i 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

I följande exempel används i stället metoden för att TryGetValue snabbt hitta ett objekt efter nyckel.

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

Använda LINQ för att komma åt en samling

LINQ (Language-Integrated Query) kan användas för att komma åt samlingar. LINQ-frågor tillhandahåller filtrerings-, beställnings- och grupperingsfunktioner. Mer information finns i Komma igång med LINQ i Visual Basic.

I följande exempel körs en LINQ-fråga mot en allmän List. LINQ-frågan returnerar en annan samling som innehåller resultatet.

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

Sortera en samling

I följande exempel visas en procedur för sortering av en samling. Exemplet sorterar instanser av Car klassen som lagras i en List<T>. Klassen Car implementerar IComparable<T> gränssnittet, vilket kräver att CompareTo metoden implementeras.

Varje anrop till CompareTo metoden gör en enda jämförelse som används för sortering. Användarskriven kod i CompareTo metoden returnerar ett värde för varje jämförelse av det aktuella objektet med ett annat objekt. Värdet som returneras är mindre än noll om det aktuella objektet är mindre än det andra objektet, större än noll om det aktuella objektet är större än det andra objektet och noll om de är lika. På så sätt kan du definiera kriterierna i kod för större än, mindre än och lika med.

ListCars I -metoden sorterar -instruktionen cars.Sort() listan. Det här anropet Sort till metoden List<T> gör CompareTo att metoden anropas automatiskt för objekten CarListi .

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

Definiera en anpassad samling

Du kan definiera en samling genom att IEnumerable<T> implementera gränssnittet eller IEnumerable . Mer information finns i Räkna upp en samling.

Även om du kan definiera en anpassad samling är det vanligtvis bättre att i stället använda de samlingar som ingår i .NET Framework, som beskrivs i Typer av samlingar tidigare i det här avsnittet.

I följande exempel definieras en anpassad samlingsklass med namnet AllColors. Den här klassen implementerar IEnumerable gränssnittet, vilket kräver att GetEnumerator metoden implementeras.

Metoden GetEnumerator returnerar en instans av ColorEnumerator klassen. ColorEnumerator implementerar IEnumerator gränssnittet, vilket kräver att Current egenskapen, MoveNext metoden och Reset metoden implementeras.

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

Iteratorer

En iterator används för att utföra en anpassad iteration över en samling. En iterator kan vara en metod eller en get accessor. En iterator använder en Yield-instruktion för att returnera varje element i samlingen en i taget.

Du anropar en iterator med hjälp av en För varje... Nästa instruktion. Varje iteration av loopen For Each anropar iteratorn. När en Yield -instruktion nås i iteratorn returneras ett uttryck och den aktuella platsen i koden behålls. Körningen startas om från den platsen nästa gång iteratorn anropas.

Mer information finns i Iteratorer (Visual Basic).

I följande exempel används en iteratormetod. Iteratormetoden har en Yield -instruktion som finns i en For... Nästa loop. ListEvenNumbers I -metoden skapar varje iteration av instruktionstexten For Each ett anrop till iteratormetoden, som fortsätter till nästa Yield instruktion.

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

Se även