[RESOLVED] String seperation

[Bjede]

Hi there..

How do I seperate one string, into two seperate strings?
If i want to divide a Name, say Jack Johnson, into first name and last name, and write the first name in a seperate column, and the last name in a seperate column as well?

Thx for your time..

Bjede

[Hack]

Welcome to the forums.

Dim arrName() As String
Dim strName As String
strName = "Jack Johnson"
arrName = Split(strName, " ")
Text1.Text = arrName(0)
Text2.Text = arrName(1)

[Bjede]

Hi Hack..

Thx for your quick response.. What if the name consists of a for, middle and a last name, and for- and middle name needs to "one" string..

/Bjede

[Hack]

They won't be one string, but you can display then as if they were.

If there are three names, then you will have arrName(0), arrName(1) and arrName(2)

[Bjede]

Super.. it works.. thx Hack..

[LaVolpe]

Do you have control over how the name is being saved? If so, save the name in a format you can easily parse. Some names won't have middle initials, some may have 2 or more, some last names can be hyphenated, some first names are actually two names (like Jo Ann), some names are only initials (actor: D.B. Sweeney). There are many variations.

[MartinLiss]

If you could have a name like "Eddie Van Halen" or "Frans van der Hoff" then you should modify Hack's code like this

Dim arrName() As String
Dim strName As String
Dim lngIndex As Long
strName = "Eddie Van Halen" 'Frans van der Hoff
arrName = Split(strName, " ")
Text1.Text = arrName(0)
Text2.Text = arrName(1)
For lngIndex = 2 To UBound(arrName)
    Text2.Text = Text2.Text & " " & arrName(lngIndex)
Next

[Lord Orwell]

you could do this (slightly more complitcated) code that will always separate at the last space:

n$ = "Jack Johansen Johnson"
a = instrrev(n$, " ")
firstname = left(n$, a - 1)
lastname = right(n$, len(n$) - len(firstname) - 1
text1.text = firstname
text2.text = lastname

[Hack]

If you don't know how many names you will be dealing with (2 or 3) then try something like this

Private Sub Command1_Click()
Dim arrName() As String
Dim strName As String
strName = Text4.Text
arrName = Split(strName, " ")
Select Case UBound(arrName)
    Case 2 'we have a middle name
       Text1.Text = arrName(0) & " " & arrName(1)
       Text2.Text = arrName(2)
    Case 1 'we have no middle name
       Text1.Text = arrName(0)
       Text2.Text = arrName(1)
End Select
End Sub

[Bjede]

No, not really.. I do have some problems, when there are no middlename.. I need somehow to be able to know whether I have a middlename or not.. is it possible to do some sort of test, to see how many names there is in my array?

[Bjede]

just worked out.. thx guys..

[MartinLiss]

If you don't know how many names you will be dealing with (2 or 3) then try something like this

Private Sub Command1_Click()
Dim arrName() As String
Dim strName As String
strName = Text4.Text
arrName = Split(strName, " ")
Select Case UBound(arrName)
    Case 2 'we have a middle name
       Text1.Text = arrName(0) & " " & arrName(1)
       Text2.Text = arrName(2)
    Case 1 'we have no middle name
       Text1.Text = arrName(0)
       Text2.Text = arrName(1)
End Select
End Sub

My code in post #7 does the same.

[Lord Orwell]

No, not really.. I do have some problems, when there are no middlename.. I need somehow to be able to know whether I have a middlename or not.. is it possible to do some sort of test, to see how many names there is in my array?

you can get the upper bound of an array really easy

dim MyArray(1 to 5)
msgbox ubound(myarray)