Bagikan melalui

Cara: Mengkueri ArrayList dengan LINQ (Visual Basic)

  • Artikel

Saat menggunakan LINQ untuk mengkueri koleksi IEnumerable yang bukan generik seperti ArrayList, Anda harus secara eksplisit mendeklarasikan jenis variabel rentang untuk mencerminkan jenis objek tertentu dalam koleksi. Misalnya, jika Anda memiliki objek ArrayList dari Student, Dari Klausul Anda akan terlihat seperti ini:

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

Dengan menentukan jenis variabel rentang, Anda mengonversi secara eksplisit setiap item di ArrayList ke Student.

Penggunaan variabel rentang yang diketik secara eksplisit dalam ekspresi kueri sama dengan memanggil metode Cast. Cast memunculkan pengecualian jika konversi eksplisit yang ditentukan tidak dapat dilakukan. Cast dan OfType adalah dua metode Operator Kueri Standar yang beroperasi pada jenis IEnumerable yang bukan generik. Dalam Visual Basic, Anda harus secara eksplisit memanggil metode Cast pada sumber data untuk memastikan jenis variabel rentang tertentu. Untuk informasi selengkapnya, lihat Mengetik Hubungan dalam Operasi Kueri LINQ.

Contoh

Contoh berikut menunjukkan kueri sederhana di atas ArrayList. Perhatikan bahwa contoh ini menggunakan penginisialisasi objek saat kode memanggil metode Add, tetapi hal ini bukan merupakan persyaratan.

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

Lihat juga