Procedura: Eseguire una query su un ArrayList con LINQ (Visual Basic)

  • Articolo

Quando si usa LINQ per eseguire una query su raccolte IEnumerable non generiche, ad esempio ArrayList, è necessario dichiarare in modo esplicito il tipo della variabile di intervallo in base al tipo specifico di oggetti nella raccolta. Ad esempio, con un ArrayList di oggetti Student, la clausola From sarà simile alla seguente:

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

Specificando il tipo della variabile di intervallo, si esegue il cast di ogni elemento di ArrayList in Student.

L'uso di una variabile di intervallo tipizzata in modo esplicito in un'espressione di query è equivalente alla chiamata del metodo Cast. Cast genera un'eccezione se non è possibile eseguire il cast specificato. Cast e OfType sono i due metodi dell'operatore query standard che operano sui tipi IEnumerable non generici. In Visual Basic è necessario chiamare in modo esplicito il metodo Cast sull'origine dati per garantire un tipo di variabile di intervallo specifico. Per altre informazioni, vedere Relazioni tra i tipi nelle operazioni di query (Visual Basic).

Esempio

L'esempio seguente mostra una query semplice su un oggetto ArrayList. Si noti che questo esempio usa gli inizializzatori di oggetto quando il codice chiama il metodo Add, anche se non si tratta di un requisito.

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

Vedi anche