Question

How to uppercase (capitalize) the first letter (character) of a string in VB.NET

Answer 1

Module Module1

    Sub Main()

        Dim s1 As String = "obi-wan kenobi"
        Dim s2 As String = "vb programming language"

        s1 = UppercaseFirstCharacter(s1)
        Console.WriteLine(s1)

        s2 = UppercaseFirstCharacter(s2)
        Console.WriteLine(s2)

    End Sub

    Function UppercaseFirstCharacter(s As String) As String

        If (s.Length > 0) Then

            Dim arr() As Char = s.ToCharArray()

            arr(0) = Char.ToUpper(arr(0))

            Return New String(arr)

        End If

        Return s

    End Function

End Module

' run:
' 
' Obi-wan kenobi
' Vb programming language

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System.Runtime.CompilerServices

Module Module1

    Sub Main()

        Dim s1 As String = "obi-wan kenobi"
        Dim s2 As String = "vb programming language"

        s1 = s1.UppercaseFirstCharacter()
        Console.WriteLine(s1)

        s2 = s2.UppercaseFirstCharacter()
        Console.WriteLine(s2)

    End Sub

    ' Extension Method
    <Extension()>
    Function UppercaseFirstCharacter(s As String) As String

        If (s.Length > 0) Then

            Dim arr() As Char = s.ToCharArray()

            arr(0) = Char.ToUpper(arr(0))

            Return New String(arr)

        End If

        Return s

    End Function

End Module

' run:
' 
' Obi-wan kenobi
' Vb programming language

 

70+ SQL courses for beginners and professionals

Answer 3

Module Module1

    Sub Main()

        Dim s1 As String = "vb is a programming language"
        Dim s2 As String = "star wars is an American epic space film series"

        s1 = UppercaseFirstCharacter(s1)
        s2 = UppercaseFirstCharacter(s2)

        Console.WriteLine(s1)
        Console.WriteLine(s2)

    End Sub

    Function UppercaseFirstCharacter(s As String) As String

        If (String.IsNullOrEmpty(s)) Then
            Throw New ArgumentException("String Is Null Or Empty")
        End If

        Return s.First().ToString().ToUpper() + s.Substring(1)

    End Function

End Module

' run:
' 
' Vb is a programming language
' Star wars Is an American epic space film series

 

70+ SQL courses for beginners and professionals