vb.net - 列表（字符串）排序，数字升序，字母降序

Question

我正在尝试将字符串列表排序为非常特殊的顺序。我有一个“X123XXX”格式的项目列表，其中 X 可以是字母，123 可以是任何数字。

Dim AList As New List(Of String)
AList.Add("B200")
AList.Add("A100X")
AList.Add("A100XY")
AList.Add("A100XYZ")

AList.Sort()

'Actual Return in order (AList(1).tostring etc.)
'A100X
'A100XY
'A100XYZ
'B200

'Desired Return
'A100XYZ
'A100XY
'A100X
'B200

我遇到的问题是，我不仅需要对数字升序和字母降序进行排序，而且还需要对第一个字母升序进行排序。

我希望这些部分始终采用相同的格式（字母 + 3 个数字 + 最多 3 个可选字母）——我可以只选择前 4 个并对该 ASC 进行排序，然后对最后 3 个进行 DESC 排序。但我不知道如何在 vb.net 中做到这一点。看了一圈，只能找到 IComparable 的东西，好像用处不大。

Answer 1

你可以通过一些LINQ方法（OrderBy、ThenBy等）得到你想要的；它们允许您执行所需的所有修改。

代码交付你想要的：

 AList = AList.OrderBy(Function(x) x.Substring(0, 1)).ThenBy(Function(x) Convert.ToInt32(x.Substring(1, 3))).ThenByDescending(Function(x) x.Substring(4)).ToList()

更新

上面的代码按字母降序排列最后一部分（即从第 5 位到结尾的字母）；但显然 OP 希望根据字符串的长度执行最后一次排序（即最长的第一个和最短的最后一个）。以下代码提供了这样的行为：

AList = AList.OrderBy(Function(x) x.Substring(0, 1)).ThenBy(Function(x) Convert.ToInt32(x.Substring(1, 3))).ThenByDescending(Function(x) x.Substring(4).Length).ToList()

Answer 2

匿名函数的另一种方法，创建一个实现IComparer(Of String)的类：

Private Class CodeComparer
    Implements System.Collections.Generic.IComparer(Of String)

    Function Compare(ByVal a As String, ByVal b As String) As Integer _
             Implements IComparer(Of String).Compare
        Dim result As Integer = a.Substring(0, 4).CompareTo(b.Substring(0, 4))
        If result = 0 Then
            result = a.Substring(4).CompareTo(b.Substring(4)) * -1
        End If
        Return result
    End Function
End Class

这将按前 4 个字符按升序排序，然后按剩余字符按降序排序（因此是 * -1）。

然后您可以使用以下命令对列表进行排序：

items.Sort(New CodeComparer())

编辑：您还可以将相同的算法与传递给 Sort 方法的匿名函数一起使用。

items.Sort(Function(a, b)
               Dim result As Integer = a.Substring(0, 4).CompareTo(b.Substring(0, 4))
               If result = 0 Then result = a.Substring(4).CompareTo(b.Substring(4)) * -1
               Return tmp
           End Function)