内置函数,用于对字母数值进行排序



我只需要知道是否有任何内置功能可以在点网中实现排序功能[字母数字]。如果有,请告诉我。

这是我需要的

输入:
数据0
数据1
数据10
数据19
数据2
数据22
数据3
数据31

输出 :

数据0
数据1
数据2
数据3
数据10
数据19
数据22
数据31

没有

内置函数用于您要查找的内容。如果"数据"始终与示例中的长度相同。您可以比较字符串的长度,然后比较字符串本身。

Private Function Comparer(ByVal x As String, ByVal y As String) As Integer
    If x.Length = y.Length Then
        Return String.Compare(x, y)
    End If
    Return x.Length.CompareTo(y.Length)
End Function
Sub Main()
    Dim v As New List(Of String)
    v.Add("data0")
    v.Add("data1")
    v.Add("data10")
    v.Add("data19")
    v.Add("data2")
    v.Add("data22")
    v.Add("data3")
    v.Add("data31")
    v.Sort(AddressOf Comparer)
    For Each s As String In v
        Console.WriteLine(s)
    Next
    Console.ReadLine()
End Sub

相关内容

  • 没有找到相关文章

最新更新