VB.NET

VB.NET RSS

Separating Names

Please support our VB.NET advertiser: Intel Parallel Studio Home

•

Join Date: Oct 2007

Posts: 13

Reputation: Magnusz is an unknown quantity at this point

Solved Threads: 0

Magnusz

Offline

Newbie Poster

Separating Names

Oct 30th, 2007

Im trying to Separate First Name, Middle Initial, and last name into Textboxes, with a function of a button.

Example :

Full Name : Tony J Holley

First Name: Tony
Middle Initial: J
Last Name: Holley

All I have is this, and is for the first name Separator:

' determines the person's first name
Dim name As String
name = txtfullname.Text
txtfirstname.Text = firstname(name)

End Sub
Function firstname(ByVal name As String) As String
Dim firstspace As Integer
firstspace = name.IndexOf(" ")
Return name.Substring(0, firstspace)

I don't know how to separate the middle Initial nor the Last name.

Thanks In Advance.

•

Join Date: Aug 2005

Posts: 5,266

Reputation: iamthwee is a splendid one to behold

Solved Threads: 377

iamthwee

Offline

Posting Expert

Re: Separating Names

Oct 30th, 2007

>Tony J Holley

Does your name have three words in it always. Is each word separated by only one space. Please answer these questions.

*Voted best profile in the world*

•

Join Date: Oct 2007

Posts: 13

Reputation: Magnusz is an unknown quantity at this point

Solved Threads: 0

Magnusz

Offline

Newbie Poster

Re: Separating Names

Oct 30th, 2007

Yeah Three names and Yes only one space between names.

•

Join Date: Mar 2006

Posts: 121

Reputation: manal is an unknown quantity at this point

Solved Threads: 17

manal

Offline

Junior Poster

Re: Separating Names

Oct 31st, 2007

you can use split method in string class

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
 
 
         Dim namepart(3) As String
         fullname = TextBox1.Text
 
        For i = 0 To TextBox1.Text.Length - 1
            namepart = fullname.Split(" ")
        Next
        TextBox2.Text = namepart(0)
        TextBox3.Text = namepart(1)
        TextBox4.Text = namepart(2)
 

         Dim namepart(3) As String
         fullname = TextBox1.Text

        For i = 0 To TextBox1.Text.Length - 1
            namepart = fullname.Split(" ")
        Next
        TextBox2.Text = namepart(0)
        TextBox3.Text = namepart(1)
        TextBox4.Text = namepart(2)