Nasıl yapılır: LINQ ile ArrayList Sorgulama (Visual Basic)
gibi ArrayListgenel IEnumerable olmayan koleksiyonları sorgulamak için LINQ kullanırken, aralık değişkeninin türünü koleksiyondaki nesnelerin belirli türünü yansıtacak şekilde açıkça bildirmeniz gerekir. Örneğin, bir ArrayListStudent
nesneniz varsa From Yan Tümceniz şu şekilde görünmelidir:
Dim query = From student As Student In arrList
'...
Aralık değişkeninin türünü belirterek içindeki her öğeyi ArrayList bir Student
öğesine yayınlarsınız.
Bir sorgu ifadesinde açıkça yazılan bir aralık değişkeninin kullanılması, yöntemini çağırmaya Cast eşdeğerdir. Cast belirtilen atama gerçekleştirilemiyorsa bir özel durum oluşturur. Cast ve OfType genel IEnumerable olmayan türlerde çalışan iki Standart Sorgu İşleci yöntemidir. Visual Basic'te, belirli bir aralık değişken türünden Cast emin olmak için veri kaynağında yöntemini açıkça çağırmanız gerekir. Daha fazla bilgi için bkz . Sorgu İşlemlerinde Tür İlişkileri (Visual Basic).
Örnek
Aşağıdaki örnekte, üzerinde basit bir sorgu gösterilmektedir ArrayList. Bu örnekte kod yöntemini çağırdığında Add nesne başlatıcıları kullandığını, ancak bunun bir gereksinim olmadığını unutmayın.
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
Ayrıca bkz.
Geri Bildirim
https://aka.ms/ContentUserFeedback.
Çok yakında: 2024 boyunca, içerik için geri bildirim mekanizması olarak GitHub Sorunları’nı kullanımdan kaldıracak ve yeni bir geri bildirim sistemiyle değiştireceğiz. Daha fazla bilgi için bkz.Gönderin ve geri bildirimi görüntüleyin