แจก : ระบบจองรถแทร็กเตอร์ พัฒนาด้วยภาษา VB.NET ฐานข้อมูล Access

Imports System.Collections.Generic
Imports System.Linq
Imports System.Reflection
Imports System.Linq.Expressions

Public Module IEnumerableHelper
   'Ctor
    Sub New()
    End Sub

    Private orderBy_ As MethodInfo = GetType(Enumerable).GetMethods(BindingFlags.[Static] Or BindingFlags.[Public]) _
                                     .Where(Function(x) x.Name = "OrderBy" AndAlso x.GetParameters().Length = 2).First()
    ''' <summary>
    ''' Usage : XXX(คนไกล้ชิดผมเท่านั้นถึงจะใช้งานมันเป็น)
    ''' </summary>
    ''' <typeparam name="TSource"></typeparam>
    ''' <param name="source"></param>
    ''' <param name="propertyName"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    <System.Runtime.CompilerServices.Extension()> _
    Public Function OrderBy(Of TSource)(source As IEnumerable(Of TSource), propertyName As String) As IEnumerable(Of TSource)
        Dim pi = GetType(TSource).GetProperty(propertyName, BindingFlags.[Public] Or BindingFlags.FlattenHierarchy Or BindingFlags.Instance)
        Dim selectorParam = Expression.Parameter(GetType(TSource), "keySelector")
        Dim sourceParam = Expression.Parameter(GetType(IEnumerable(Of TSource)), "source")
        Return Expression.Lambda(Of Func(Of IEnumerable(Of TSource), 
                                 IOrderedEnumerable(Of TSource)))(Expression.[Call](orderBy_.MakeGenericMethod(GetType(TSource), pi.PropertyType),
                                 sourceParam, Expression.Lambda(GetType(Func(Of ,)).MakeGenericType(GetType(TSource), pi.PropertyType),
                             Expression.[Property](selectorParam, pi), selectorParam)), sourceParam).Compile()(source)
    End Function
    ''' <summary>
    ''' Usage : XXX(คนไกล้ชิดผมเท่านั้นถึงจะใช้งานมันเป็น)
    ''' </summary>
    ''' <typeparam name="TSource"></typeparam>
    ''' <param name="source"></param>
    ''' <param name="propertyName"></param>
    ''' <param name="ascending"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    <System.Runtime.CompilerServices.Extension()> _
    Public Function OrderBy(Of TSource)(source As IEnumerable(Of TSource), propertyName As String, ascending As Boolean) As IEnumerable(Of TSource)
        Return If(ascending, source.OrderBy(propertyName), source.OrderBy(propertyName).Reverse())
    End Function

    ''' <summary>
    ''' Usage : XXX(คนไกล้ชิดผมเท่านั้นถึงจะใช้งานมันเป็น)
    ''' </summary>
    ''' <typeparam name="T"></typeparam>
    ''' <typeparam name="TKey"></typeparam>
    ''' <param name="items"></param>
    ''' <param name="property"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    <System.Runtime.CompilerServices.Extension> _
    Public Function DistinctBy(Of T, TKey)(items As IEnumerable(Of T), [property] As Func(Of T, TKey)) As IEnumerable(Of T)
        Return items.GroupBy([property]).[Select](Function(x) x.First())
    End Function
End Module

อันใบตองพันห่อปลาร้าได้ ฉันใด
จิตต์มนุษย์นั่นไซร์ยากแท้ หยั่งถึง


แสดงฟ้าบ่งบอกถึงจริงแท้ สูงส่ง
แสลงดินบ่งบอกถึงที่แท้   ตนเอง