Question

How to sort an array of numeric strings in descending 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(string2) - Convert.ToInt32(string1)
        Else
            Return string2.Length - string1.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:
'
' 55 9 8 7 6 0
'

 

70+ SQL courses for beginners and professionals