Question

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

Answer 1

Imports System

Public Class Test
    Public Shared Function move_uppercase_to_end(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 lowercase + uppercase 
    End Function
    
    Public Shared Sub Main()
        Dim s As String = "VB.NET C++ C# Python Java" 
  
        Console.Write(move_uppercase_to_end(s))
    End Sub
End Class



' run:
' 
' . ++ # ython avaVBNETCCPJ
'

 

70+ SQL courses for beginners and professionals