vb.net 使用自定义顺序对对象列表进行排序

Question

我有一个对象列表，我正在尝试按两个属性进行排序，其中一个属性按自定义顺序排序。该列表具有 ReqType 和 PartNumber 属性。 ReqType 将为“M”、“B”、“S”或 null，我想按该顺序对列表进行排序。然后按零件编号排序。

Input list:
PartNumber    ReqType
124           B
125           M
123           B
121           S
120           M
115            

Expected Sort:
PartNumber    ReqType
120           M
125           M
123           B
124           B
121           S
115            

我从下面的代码开始，但它只按字母顺序对 ReqType 进行排序。

Return EBom.OrderBy(Function(f) f.ReqType).ThenBy(Function(f) f.PartNumber).ToList 

然后我找到了一种使用下面的代码创建自定义排序顺序的方法。尽管使用 Ebom.Sort() 似乎不允许我为 PartNumber 添加第二个排序顺序。我意识到我可以将 PartNumber 排序添加到自定义函数中，但这似乎需要大量工作。

EBom.Sort()
Return EBom.ToList


Implements IComparable(Of EBomList)
Public Function SortReq(other As EBomList) As Integer Implements IComparable(Of EBomList).CompareTo
    If (Me.ReqType = other.ReqType) Then
        Return 0
    ElseIf (Me.ReqType = "M") Then
        Return -1
    ElseIf (Me.ReqType = "B") Then
        If (other.ReqType = "M") Then
            Return 1
        Else
            Return -1
        End If
    ElseIf (Me.ReqType = "S") Then
        If (other.ReqType = "M" Or other.ReqType = "B") Then
            Return 1
        Else
            Return -1
        End If
    Else
        Return 1
    End If
End Function

有没有更简单的方法来按自定义顺序排序，或者至少将自定义排序函数与 .thenby(.....) 结合起来以获得我想要的顺序？

Answer 1

执行此操作的更简洁的代码版本是在排序方法中使用函数，如下所示。

    d.Sort(Function(X As EBomList, Y As EBomList)
               Dim Tx As Integer = InStr("MBS ", X.ReqType.PadLeft(1, " "c))
               Dim Ty As Integer = InStr("MBS ", Y.ReqType.PadLeft(1, " "c))
               Select Case Tx
                   Case Is < Ty : Return -1
                   Case Is > Ty : Return 1
                   Case Else : Return X.PartNumber.CompareTo(Y.PartNumber)
               End Select
           End Function)

注意，当类型代码相同时，只需检查零件编号。

我假设您的零件编号实际上是一个数字。如果它是一个字符串，您需要适本地填充它。例如。

Return X.PartNumber.PadLeft(6," "c).CompareTo(Y.PartNumber.PadLeft(6," "c))

替代且更快的方法

如果您有大量数据，您可能需要考虑增强 EBomLit 以创建排序键，而不是进行字符串搜索...

如...

Private _ReqType As String
Private _TypeKey As Integer 

Public Property ReqType As String
    Get
        Return _ReqType
    End Get
    Set(value As String)
        _ReqType = value
        _TypeKey = InStr("MBS ", value.PadLeft(1, " "c))
    End Set
End Property

Public ReadOnly Property TypeKey As Integer
    Get
        Return _TypeKey
    End Get
End Property

然后排序就变成了...

    d.Sort(Function(X As EBomList, Y As EBomList)
               Select Case X.TypeKey
                   Case Is < Y.TypeKey : Return -1
                   Case Is > Y.TypeKey : Return 1
                   Case Else : Return X.PartNumber.CompareTo(Y.PartNumber)
               End Select
           End Function)

更快

您甚至可以进一步扩展它，通过使用填充的“PartNumber”从“TypeKey”创建完整的排序键，并将它们用作将整个 shebang 保存在 SortedDictionary 而不是列表中的键。