Question

How to sort a string with digits and letters (digits before letters) in VB.NET

Answer 1

Imports System

Class Program
    Private Shared Function CustomSort(ByVal input As String) As String
        Dim chars As Char() = input.ToCharArray()
		
        Array.Sort(chars, Function(a, b)
                              If Char.IsDigit(a) AndAlso Char.IsLetter(b) Then Return -1
                              If Char.IsLetter(a) AndAlso Char.IsDigit(b) Then Return 1
                              Return a.CompareTo(b)
                          End Function)
        Return New String(chars)
    End Function

	Public Shared Sub Main()
        Dim input As String = "d2c5e4b3a1"
        Dim sortedInput As String = CustomSort(input)
				
        Console.WriteLine("Custom sorted string: " & sortedInput)
    End Sub
End Class
		

' run
'
' Custom sorted string: 12345abcde
'

 

70+ SQL courses for beginners and professionals