Question

How to extract uppercase characters (capital letters) from a string in VB.NET

Answer 1

Imports System
 
Public Class Test
    Public Shared Function extract_uppercase(s As String) As String
         Dim len As Integer = s.Length
         Dim upper_s As String = ""
 
         For i As Integer = 0 To len - 1
             If (s(i) >= "A" And s(i) <= "Z") Then
                  upper_s = upper_s + s(i)
             End If
         Next
 
         return upper_s
    End Function
 
    Public Shared Sub Main()
        Dim s As String = "vVb.BnNeETt" ' vb.netVB.NET
        Dim uc As String = extract_uppercase(s)
        
        Console.Write(uc)
    End Sub
End Class
 
 
 
' run:
'
' VBNET

 

70+ SQL courses for beginners and professionals