نمونه دستورات استفاده از LINQ در VB.Net

[ROSTAM2]

ایجاد یک لیست از آیتم های مشترک بین دو لیست (رشته ای) توسط LINQ



Dim List1, List2 As New List(Of String)
List1.Add("A")
List1.Add("B")
List1.Add("C")
List1.Add("D")
List1.Add("E")
List1.Add("F")


List2.Add("a")
List2.Add("b")
List2.Add("c")


Dim MergeList = From ItemA As String In List1 From ItemB As String In List2 Where ItemA.ToLower = ItemB.ToLower
Select ItemA


For Each Item As String In MergeList
MsgBox(Item)
Next

[ROSTAM2]

بدست آوردن بیشترین طول رشته بین مقادیر خصوصیات آیتم های یک شی یا یک لیست از مقادیر متنی توسط LINQ

بجای <PropertyName> نام خصوصیت آورده می شود.

آیتم های Manager یک لیست از یک کلاس است که خصوصیات متعددی دارد.



Dim index() As Object = {}
Dim MyList = From Item As T In Manager.Items Select GetType(T).GetProperty(<PropertyName>).GetValue(Item, index).ToString.Length


MSGBox(MyList.Max)

[ROSTAM2]

استخراج یک خصوصیت از بین خصوصیات یک کلاس توسط نام خصوصیت:


Dim PInfos As PropertyInfo() = Nothing
PInfos = GetType(T).GetProperties
Dim PI As PropertyInfo
Dim index() As Object = Nothing


Dim P = From PInfo As PropertyInfo In PInfos Where PInfo.Name.ToLower = <PropertyName>.ToLower
Select PInfo


PI = P.First