基于字符串中前两个数字的订单列表 - .net

Question

所以我有 10 个列表框和一个 openfiledialog。我使用“添加”按钮打开一个 .txt 文件，并根据其包含的字符串将该文件中的每一行排序到不同的列表框。

以下是 .txt 文件中的三行：

Decent Cracker.crc, 2.0, 75 MB: 25.61.221.29
Generic Hasher.hash, 1.9, 63 MB: 25.61.221.29
Basic Port Scan.scan, 1.0, 23 MB: 25.61.221.29

Listbox 1 采用 .crc 字符串，Listbox 2 采用 .hash 字符串，等等...

我可以根据扩展名将文件过滤到适当的列表框，但我现在想做的是根据降序版本号对每个列表框进行排序（扩展名之后但大小之前的数字：ex 1.0） .

我尝试了以下代码，但显然失败了。

'sort by first number
    Dim items = (From item In ListBox1.Items
                 Let parts = item.ToString.Split(New String() {" - ("}, StringSplitOptions.None)
                 Order By CInt(parts(0))
                 Select item).ToArray
    ListBox1.Items.Clear()
    ListBox1.Items.AddRange(items)

任何帮助将不胜感激。

Answer 1

Module Module1
    Public Class RowComparer
        Implements IComparer(Of String)

        Public Function Compare(x As String, y As String) As Integer Implements IComparer(Of String).Compare
            Dim xCodeParts As String() = x.Split(","c)(1).Trim.Split("."c) ' something like 1.1
            Dim yCodeParts As String() = y.Split(","c)(1).Trim.Split("."c) ' something like 1.20

            Dim xCodeText As String = ""
            Dim yCodeText As String = ""

            For i As Integer = 0 To xCodeParts.Length - 1
                xCodeParts(i) = xCodeParts(i).PadLeft(10, "0"c)
                xCodeText &= String.Format("|{0}|", xCodeParts(i))
            Next
            ' xCodeText is something like |0000000001||0000000001|

            For i As Integer = 0 To yCodeParts.Length - 1
                yCodeParts(i) = yCodeParts(i).PadLeft(10, "0"c)
                yCodeText &= String.Format("|{0}|", yCodeParts(i))
            Next
            ' yCodeText is something like |0000000001||0000000020|

            Return -xCodeText.CompareTo(yCodeText) ' - for desc order    
        End Function
    End Class


    Sub Main()
        Dim list As New List(Of String)({
                                        "Decent Cracker.crc, 1.1, 75 MB: 25.61.221.29",
                                        "Generic Hasher.hash, 1.20, 63 MB: 25.61.221.29",
                                        "Basic Port Scan.scan, 1.10, 23 MB: 25.61.221.29",
                                        "Basyyyyyyyyy.scan, 2.10, 23 MB: 25.61.221.29",
                                        "BasixxxxScan.scan, 1.12, 23 MB: 25.61.221.29"})

        list.Sort(New RowComparer)
        list.ForEach(Sub(value) Console.WriteLine(value))

        Console.ReadLine()
    End Sub

'Result
'Basyyyyyyyyy.scan, 2.10, 23 MB: 25.61.221.29
'Generic Hasher.hash, 1.20, 63 MB: 25.61.221.29
'BasixxxxScan.scan, 1.12, 23 MB: 25.61.221.29
'Basic Port Scan.scan, 1.10, 23 MB: 25.61.221.29
'Decent Cracker.crc, 1.1, 75 MB: 25.61.221.29

End Module

编辑

Dim lines As String() = IO.File.ReadAllLines("C:\Trial\list.txt")
Dim list as new List(Of String)(lines)
list.Sort(New RowComparer)
ListBox1.Items.AddRange(list.ToArray)