[RESOLVED] [02/03] String.Split

[GrimmReaper]

Hello again everyone!

In my program, the user will enter Full Names of a customer. Now, what I want to achieve is to Capitalise the customer's name (Uppercase), he / she is known by.
So for example: My full names are Ron Peter, but people call me Ron. In this case, I want to convert only Ron to uppercase, and leave Peter in title case. This will produce the end result of:
RON Peter

But, if I was known as Peter, it should have looked like this:
Ron PETER

I thought to use String.Split here, but it either converts everything to uppercase, or throw me an index out of bounds exception.

This is what I've tried:

    Private Sub AppCAPITALISE(ByVal strName As String, ByVal intNameIndex As Integer) 'sub to convert & display end result
        Dim stArAppFName As String()

        stArAppFName = strName.Split(" ", intNameIndex)
        For intTemp As Integer = 0 To intNameIndex
            txtAppFullNames.Text = stArAppFName(intTemp).ToUpper
        Next intTemp
    End Sub

    Private Sub rdFirst_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdFirst.Click, rdSecond.Click, rdThird.Click, rdFourth.Click 'how many names?
        Select Case DirectCast(sender, RadioButton).Name
            Case "rdFirst"
                shAppCAP = 1
            Case "rdSecond"
                shAppCAP = 2
            Case "rdThird"
                shAppCAP = 3
            Case "rdFourth"
                shAppCAP = 4
        End Select
        AppCAPITALISE(strFullNames, shAppCAP)
    End Sub

    Private Sub txtAppFullNames_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtAppFullNames.LostFocus 'store text entered
        If Not txtAppFullNames.Text = String.Empty Then strFullNames = txtAppFullNames.Text

    End Sub

The variables I used were:

    Private shAppCAP As Short
    Private strFullNames As String

Can anyone help me format the names appropriately, please?

[RobDog888]

Its your loop. It will capitalise all words in teh string array from the first word to whatever is designated in the received argument for the function.

You should be upper'ing only the item in the arrray that is passed in. And remember its zero based arrays and not 1 based.

[mehul.pandya]

Hi

ur loop looks like this

For intTemp As Integer = 0 To intNameIndex-1

then it will not gives u error.

Bye.

[RobDog888]

Hi

ur loop looks like this

For intTemp As Integer = 0 To intNameIndex-1

then it will not gives u error.

Bye.

Yes, as I posted its a zero based array not one based.

[GrimmReaper]

Thanx for your responses, at least I don't get any exception now.
BUT, when intNameIndex = 1 it returns:
RON PETER
when intNameIndex = 2 it returns:
PETER

How can I only capitalise one name in the string only, and still show the other names?
Like:
RON Peter
or
Ron PETER

[RobDog888]

Something like this.

	Private Sub AppCAPITALISE(ByVal strName As String, ByVal intNameIndex As Integer) 'sub to convert & display end result
		Dim stArAppFName As String()
		stArAppFName = strName.Split(" "c)
		txtAppFullNames.Text = stArAppFName(intTemp - 1).ToUpper
	End Sub

[penagate]

Private Function capitaliseName(fullName As String, knownName As String) As String
  Dim names As String() = fullName.Split(" "c)
  For i As Integer = 0 To names.Length - 1 Step 1
    If (names(i) = knownName) Then _
      names(i) = names(i).ToUpper()
  Next
  Return String.Join(names, " "c)
End Function

[GrimmReaper]

Didn't see your post Penagate, le met try it now

[RobDog888]

Ok, a more "complete" example.

	Private Sub AppCAPITALISE(ByVal strName As String, ByVal intNameIndex As Integer) 'sub to convert & display end result
		Dim stArAppFName As String()
		stArAppFName = strName.Split(" "c)
		For i As Integer = 0 To stArAppFName.Length - 1
			If i = intNameIndex Then
				txtAppFullNames.Text = txtAppFullNames.Text & stArAppFName(i - 1).ToUpper
			Else
				txtAppFullNames.Text = txtAppFullNames.Text & stArAppFName(i - 1)
			End If
		Next
	End Sub

[GrimmReaper]

Penagate, it shows me that value of type char cannot be converted to 1 dimensional array of string, on this line:

 Return String.Join(names, " "c)

[penagate]

Sorry I got them the wrong way round. Should be (" "c, names)

[mehul.pandya]

Hey Try This

Private Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox2.Text = ProperString(TextBox1.Text, 0)
    End Sub
    Private Function ProperString(ByVal strVal As String, ByVal istrPos2Cap As Integer) As String
        Dim strArr() As String
        Dim i As Integer
        ProperString = ""
 
        strArr = strVal.Split(" ")
        For i = 0 To strArr.Length - 1
            If i = istrPos2Cap Then
                ProperString += " " & strArr(i).ToUpper
            Else
                ProperString += " " & System.Globalization.CultureInfo.InstalledUICulture.TextInfo.ToTitleCase(strArr(i))
            End If
        Next i
        ProperString = ProperString.Trim
    End Function

[GrimmReaper]

WOW, thank you guys!
One of my problems was that some of my indexes were wrong as well, it's fixed.

I asked for 1 solution, and ended up with three magnificent ways of doing this - Thank you guys, thank you!!

[GrimmReaper]

OK, one very last question.
How can I reset the text back to it's original casing?

I've tried:

    Private Sub rdNone_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdNone.Click
        Dim AppTI As TextInfo = New CultureInfo("en-US", False).TextInfo
        Dim newText As String = AppTI.ToTitleCase(txtAppFullNames.Text)
        txtAppFullNames.Text = newText

    End Sub

And imported the System.Globalisation namespace.

The text doesn't revert back to Title case, any help?