Postupy: Dotazování na ArrayList pomocí LINQ (Visual Basic)

  • Článek

Při dotazování jiných než obecných IEnumerable kolekcí, jako ArrayListje například , musíte explicitně deklarovat typ proměnné rozsahu tak, aby odrážel konkrétní typ objektů v kolekci. Pokud máte například objekty ArrayListStudent, měla by klauzule From vypadat takto:

Dim query = From student As Student In arrList
'...

Zadáním typu proměnné rozsahu přetypujete každou položku do ArrayListStudentproměnné .

Použití explicitně zadané proměnné rozsahu ve výrazu dotazu je ekvivalentní volání Cast metody. Cast vyvolá výjimku, pokud zadané přetypování nelze provést. Cast a OfType jsou to dvě metody standardního operátoru dotazu, které pracují s ne generickými IEnumerable typy. V jazyce Visual Basic je nutné explicitně volat metodu Cast ve zdroji dat, aby se zajistil konkrétní typ proměnné rozsahu. Další informace naleznete v tématu Relace typů v operacích dotazu (Visual Basic).

Příklad

Následující příklad ukazuje jednoduchý dotaz na .ArrayList Všimněte si, že tento příklad používá inicializátory objektů, když kód volá metodu Add , ale to není požadavek.

Imports System.Collections
Imports System.Linq

Module Module1

    Public Class Student
        Public Property FirstName As String
        Public Property LastName As String
        Public Property Scores As Integer()
    End Class

    Sub Main()

        Dim student1 As New Student With {.FirstName = "Svetlana",
                                     .LastName = "Omelchenko",
                                     .Scores = New Integer() {98, 92, 81, 60}}
        Dim student2 As New Student With {.FirstName = "Claire",
                                    .LastName = "O'Donnell",
                                    .Scores = New Integer() {75, 84, 91, 39}}
        Dim student3 As New Student With {.FirstName = "Cesar",
                                    .LastName = "Garcia",
                                    .Scores = New Integer() {97, 89, 85, 82}}
        Dim student4 As New Student With {.FirstName = "Sven",
                                    .LastName = "Mortensen",
                                    .Scores = New Integer() {88, 94, 65, 91}}

        Dim arrList As New ArrayList()
        arrList.Add(student1)
        arrList.Add(student2)
        arrList.Add(student3)
        arrList.Add(student4)

        ' Use an explicit type for non-generic collections
        Dim query = From student As Student In arrList
                    Where student.Scores(0) > 95
                    Select student

        For Each student As Student In query
            Console.WriteLine(student.LastName & ": " & student.Scores(0))
        Next
        ' Keep the console window open in debug mode.
        Console.WriteLine("Press any key to exit.")
        Console.ReadKey()
    End Sub

End Module
' Output:
'   Omelchenko: 98
'   Garcia: 97

Viz také