管理 IEnumerable.GroupBy() 的更有效方法

Question

这是我上一个问题的延续：

寻找更好的方法对我的列表进行排序

基本上，我有类似的情况，我需要对大约 40 个不同的字段执行 .GroupBy() 。

原始代码会使用一个巨大的 switch 语句，但我想知道是否有更好的方法。

我真正想做的是：

// 不确定 GroupBy 选择器函数 def 应该是什么...
Dictionary>> groupByMappings；

我可以用它来分组，例如：

myPortfolioHoldings.GroupBy(groupByMaping[frmGroupBySelector.SelectedColumn]);

正确的方法是什么？

Answer 1

您应该能够按对象进行分组：

Dictionary<PortfolioMapping, Func<Holding, object>> groupByMappings;

只要您的映射函数返回以下任一值，此功能就可以工作：

• 内置类型的实例（例如数字或字符串）
• 实现 IEquatable 的对象;
• 正确实现 Equals 和 GetHashCode 的对象

Answer 2

嗯，我个人所做的就是构建 lambda 表达式，然后将最终表达式应用到列表中。

我对 Linq.Expression 使用一些扩展方法，它只包装如下所示的内容：

<System.Runtime.CompilerServices.Extension()> _
Public Function Compose(Of T)(ByVal first As Expressions.Expression(Of T), ByVal second As Expressions.Expression(Of T), ByVal merge As Func(Of Expressions.Expression, Expressions.Expression, Expressions.Expression)) As Expressions.Expression(Of T)

    '' build parameter map (from parameters of second to parameters of first)
    Dim map = first.Parameters.[Select](Function(f, i) New With {f, .s = second.Parameters(i)}).ToDictionary(Function(p) p.s, Function(p) p.f)

    '' replace parameters in the second lambda expression with parameters from the first
    Dim secondBody = ParameterRebinder.ReplaceParameters(map, second.Body)

    '' applycomposition of lambda expression bodies to parameters from the first expression 
        Return Expressions.Expression.Lambda(Of T)(merge(first.Body, secondBody), first.Parameters)
    End Function

<System.Runtime.CompilerServices.Extension()> _
Public Function [And](Of T)(ByVal first As Expressions.Expression(Of Func(Of T, Boolean)), ByVal second As Expressions.Expression(Of Func(Of T, Boolean))) As Expressions.Expression(Of Func(Of T, Boolean))
    Return first.Compose(second, AddressOf Expressions.Expression.And)
End Function

然后您可以构建如下查询：

Dim MyQuery as Linq.Expressions.Expression(Of System.Func(Of MyListDataType, Boolean))
Dim MyGroupingExpression as Linq.Expressions.Expression(Of System.Func(Of MyListDataType, Boolean))

Dim MyQuery = Function(x) x.SomeValue = SomeExpectedValue
Select case SomeOtherVariable
    Case Option1
        Dim MyGroupingExpression = <blah>
    Case Option2
        Dim MyGroupingExpression = <blah>
End Select

Dim Results = MyList.Where(MyQuery.And(GroupingExpression))

这就是您想要的吗？