vb.net 具有自定义顺序的对象排序列表答案

【问题标题】：vb.net sort list of objects with custom ordervb.net 具有自定义顺序的对象排序列表
【发布时间】：2017-07-06 05:30:25
【问题描述】：

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

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(.....) 结合起来以获得我想要的顺序？

【问题讨论】：

标签： vb.net list sorting

【解决方案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)

注意，只有在类型码相同的情况下才需要检查零件编号。

我假设您的 Partnumber 实际上是一个数字。如果它是一个字符串，则需要根据需要对其进行填充。例如。

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 而不是 List 中的键。

【讨论】：

【解决方案2】：

只需创建一个 ReqTypes 列表并查找索引：

Dim sortOrder = "MBS "

Dim sortedList = List.OrderBy(Function(x) sortOrder.IndexOf(If(x.ReqType Is Nothing, " ", x.ReqType))).ThenBy(Function(x) x.PartNumber).ToList()

注意：如果按字符以外的其他方式排序，则您需要创建一个合适的对象数组/列表以进行比较。

【讨论】：

【解决方案3】：

如果可以选择Enum 和Tuple，会更容易一些：

Enum PartNumber As Byte : M : B : S : __ : End Enum

Dim list = New List(Of Tuple(Of PartNumber, Integer)) From {
    Tuple.Create(PartNumber.B, 124),
    Tuple.Create(PartNumber.M, 125),
    Tuple.Create(PartNumber.B, 123),
    Tuple.Create(PartNumber.S, 121),
    Tuple.Create(PartNumber.M, 120),
    Tuple.Create(PartNumber.__, 115)}

list.Sort()

For Each item In list
    Debug.Print(item.Item2 & vbTab & item.Item1.ToString.Replace("_", ""))
Next

输出：

【讨论】：