我只需要知道是否有任何内置功能可以在点网中实现排序功能[字母数字]。如果有,请告诉我。
这是我需要的
输入:
数据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