Como consultar um ArrayList com LINQ (Visual Basic)
Ao usar a LINQ para consultar coleções IEnumerable não genéricas como ArrayList, você deve declarar explicitamente o tipo da variável de intervalo para refletir o tipo específico dos objetos na coleção. Por exemplo, se você tiver um ArrayList de objetos Student, sua Cláusula From deverá ter uma aparência semelhante a esta:
Dim query = From student As Student In arrList
'...
Especificando o tipo da variável de intervalo, você está convertendo cada item na ArrayList em um Student.
O uso de uma variável de intervalo de tipo explícito em uma expressão de consulta é equivalente a chamar o método Cast. Cast lança uma exceção se a conversão especificada não puder ser realizada. Cast e OfType são os dois métodos de operador de consulta padrão que operam em tipos IEnumerable não genéricos. No Visual Basic, você deve chamar explicitamente o método Cast na fonte de dados para garantir um tipo de variável de intervalo específico. Para obter mais informações, consulte Relações de Tipo em Operações de Consulta (Visual Basic).
Exemplo
O exemplo a seguir mostra uma consulta simples sobre um ArrayList. Observe que este exemplo usa os inicializadores de objeto quando o código chama o método Add, mas isso não é um 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
