Identify first letter from every word in a TextBox - vb.net

Question

I tried to create a unique code for each shop in the form I made. I have two TextBox controls (TBNameStore and TBCodeStore). What I want is that when I write the name of the shop, for example "Brothers in Arm", in TBNameStore, then TBCodeStore should automatically be filled with the text "BIA".
How can I do that?

Answer 1

Well I write a code that can help you with your problem.
Option Strict On
Public Class Form1
Public Function GetInitials(ByVal MyText As String) As String
Dim Initials As String = ""
Dim AllWords() As String = MyText.Split(" "c)
For Each Word As String In AllWords
If Word.Length > 0 Then
Initials = Initials & Word.Chars(0).ToString.ToUpper
End If
Next
Return Initials
End Function
Private Sub TBNameStore_TextChanged(sender As Object, e As EventArgs) Handles TBNameStore.TextChanged
TBCodeStore.Text = GetInitials(TBNameStore.Text)
End Sub
End Class
Like you can see, the GetInitials get you all the first letter of all the words in the text.

Answer 2

One possible solution using the mentioned Split and SubString methods and LINQ could look like this:
create a StringBuilder where every first character of each word is stored
separate the words using the specified delimiter (default is empty space) using the String.Split method
convert the array to list in order to apply the LINQ-ToList extension => ToList()
for each found word => ForEach(sub (word as String) ...
take the first character from the word, convert it to upper case and put it in the result
=> result.Append(word.SubString(0, 1).ToUpper())
return the result as string => result.ToString()
The code looks like this:
private function abbreviation(input as String, optional delimiter as String = " ")
dim result = new StringBuilder()
input.Split(delimiter) _
.ToList() _
.ForEach(sub (word as String)
result.Append(word.SubString(0, 1).ToUpper())
end sub)
return result.ToString()
end function
Usage:
dim s = "Brothers in Arms"
Console.WriteLine("{0} => {1}", s, abbreviation(s))
and the output looks like expected:
Brothers in Arms => BIA