Extract all first characters of any word in a text

I have to write a programm that given a text (in a textbox), when runing, the result in another textbox is the first letter of every word the original text has in it. Ideally, the result shoud be in UPPER case and should have all points the original text have.

Textbox1.Text= "Our Father in heaven, hallowed be your name.
Your kingdom come, your will be done, on earth, as it is in heaven.
Give us this day our daily bread, and forgive us our debts, as we also have forgiven our debtors.
And lead us not into temptation, but deliver us from evil."

Result in Textbox2.Text should be the following:


I was thinking to use the Substring(0,1) function.
José PerezAsked:
Who is Participating?
Carl TawnConnect With a Mentor Systems and Integration DeveloperCommented:
It's in the System.Text namespace, so you might need to either add an Import directive at the top of your page:
Imports System.Text

Open in new window

Or, use the fully qualified name:
Dim sb As New System.Text.StringBuilder()

Open in new window

Carl TawnSystems and Integration DeveloperCommented:
That would work. Simply split the string on the space character, to get an array, loop through and use Substring(0,1) to grab the first character from each word.

You could also do it with a Linq query, but that would depend on which version of .Net you are using.

You could first clean the string to have only points as punctuation and then use split


and create a str looping your array with Substring(0,1)

Never miss a deadline with monday.com

The revolutionary project management tool is here!   Plan visually with a single glance and make sure your projects get done.

Shaun KlineLead Software EngineerCommented:
The results in your example is also including sentence punctuation. Is that also a requirement of your program?

The simplest means to do what you are looking for is to use the string.Split function and loop through the resulting array. If you need to include punctuation, you would split on the sentence terminator (period, question mark, exclamation mark) and then split on the space for each sentence in the array.
José PerezAuthor Commented:
Carl Tawn:
Think we're almost done... I have coded the following, and put the result in a Messagebox and it is displaying each word as I desired, but now I have to write it to the Textbox2... can you tell how to put all together in just 1 string?

Public Class LetraXpalabra

    Private Sub btnAnalizar_Click(sender As Object, e As EventArgs) Handles btnAnalizar.Click
        Dim texto As String = txtTextoOriginal.Text 'original text
        Dim b As String() = texto.Split(" ".ToCharArray)
        'Dim a As String = a

        For Each palabra In b
            MessageBox.Show(palabra.Substring(0, 1))
    End Sub
End Class

Open in new window

Carl TawnSystems and Integration DeveloperCommented:
Change your For to:
Dim sb As New StringBuilder()
For Each palabra In b
    sb.Append(palabra.Substring(0, 1))

txtOutput.Text = sb.ToString()

Open in new window

José PerezAuthor Commented:
vb.net does not recognize "StringBuilder" should I have to import some library?
Jacques Bourgeois (James Burger)PresidentCommented:
Good luck in deciphering the old lady prayer cards (that is what you are doing, isn't it?).

I read about that and it is both a fascinating and moving story.
José PerezAuthor Commented:
With this code it is done! and yes it is a fascinating story!
Thanks for your comment.
God bless you!
All Courses

From novice to tech pro — start learning today.