Question

How to extract the first letter from each word in a string with VB.NET

Answer 1

Module Module1

    Sub Main()

        Dim s As String = "vb programming language"
        Dim fl As String = ""
        Dim words() As String = s.Split(" ")

        For Each w As String In words
            If w.Length > 0 Then
                fl = fl & w.Chars(0).ToString + " "
            End If
        Next

        Console.WriteLine(fl)

    End Sub

End Module

' run:
' 
' v p l

 

70+ SQL courses for beginners and professionals

Answer 2

Module Module1

    Sub Main()

        Dim s As String = "vb programming language"
        Dim fl As String = ""
        Dim words() As String = s.Split(" ")

        For Each w As String In words
            If w.Length > 0 Then
                fl = fl & w.Chars(0).ToString.ToUpper + " "
            End If
        Next

        Console.WriteLine(fl)

    End Sub

End Module

' run:
' 
' V P L

 

70+ SQL courses for beginners and professionals