VB.NET Proper Case Issue?

[SANDEEP PREMCHANDANI]

        Dim strName As String
        strName = TextBox1.Text

        strName = StrConv(strName, vbProperCase)

        Label1.Text = strName

My question is: If I give blank spaces before name after name and between name and surname/title, then I want to remove all blank spaces except one blank space between name and surname/title.

Example : Input > " SANDEEP PREMCHANDANI "

Output > I want "Sandeep Premchandani" (Single space between Sandeep and Premchandani)

[richkid]

Dim strName, str, strUserName As String
        Dim arrName As String()

        strUserName = ""
        strName = TextBox1.Text
        arrName = strName.Split("bbb")


        For Each str In arrName
            If str.Length > 0 Then
                strUserName += str & ""
            End If
        Next

        strUserName = StrConv(strUserName, vbProperCase)
        Label1.Text = strUserName

[SANDEEP PREMCHANDANI]

Thanks a lot Mr. Richkid.

[richkid]

glad to help

[MrMancunian]

@richkid Perhaps next time, instead of just posting code, you can try to explain how to get to the solution? Now Sandeep can get back to work, but he doesn't know why this works and how to find it.

Give a poor man a fish, he can eat for a day. Give him a fishingrod and he can catch food for the rest of his life.

Steven

[Frinavale]

I don't know why @richkid is using the split method and then looping through things...you could just use the Regex.Replace method to replace anything that matches one or more white-space characters with one white-space character.

For example:

Dim str As String = "A     bunch of         spaces  and     tabs       are inserted   through   out       this  String!"

'Please note that "\s+" matches "one or more white space character"

Dim cleanedStr As String = RegularExpressions.Regex.Replace(str, "\s+", " ")
MessageBox.Show(str)
MessageBox.Show(cleanedStr)

-Frinny