Question

How to move all uppercase characters to the beginning of string in VB.NET

Answer 1

Imports System
 
Public Class Test
    Public Shared Function move_uppercase_to_beginning(s As String) As String
        Dim len As Integer = s.Length
        Dim lowercase As String = ""
        Dim uppercase As String = ""
     
        Dim ch AS Char
        For i As Integer = 0 To len - 1
            ch = s(i) 
            If ch >= "A" And ch <= "Z" Then
                uppercase += ch
            else  
                lowercase += ch
            End If
        Next
        return uppercase + lowercase
    End Function
     
    Public Shared Sub Main()
        Dim s As String = "VB.NET C++ C# Python Java"
   
        Console.Write(move_uppercase_to_beginning(s))
    End Sub
End Class
 
 
 
' run:
' 
' VBNETCCPJ. ++ # ython ava
'

 

70+ SQL courses for beginners and professionals