Question

How to sort an array of numeric strings in ascending order with VB.NET

Answer 1

Imports System

Public Class Program
    Public Shared Function Compare(ByVal string1 As String, ByVal string2 As String) As Integer
        If string1.Length = string2.Length Then
            Return Convert.ToInt32(string1) - Convert.ToInt32(string2)
        Else
            Return string1.Length - string2.Length
        End If
    End Function

    Public Shared Sub Main()
        Dim arr As String() = {"7", "0", "55", "8", "9", "6"}

        Array.Sort(Of String)(arr, Function(ByVal x As String, ByVal y As String) Compare(x, y))

        For i As Integer = 0 To arr.Length - 1
            Console.Write(arr(i) & " ")
        Next
    End Sub
End Class
 
 
 
 
 
' run:
'
' 0 6 7 8 9 55
'

 

70+ SQL courses for beginners and professionals