-
I need to get a first name and last name from a textbox such as:
Whole$ = Text1.Text
Pos% = InStr (Whole$, " ")
FstName$ = Mid$(Whole$, Pos% + 1, InStr(Whole$, " ") - 1)
LstName$ = Mid$(Whole$, Len(FstName$) + 2, Len(Whole$) - 1)
I have to enter: -new johnnyboy nighty
-new is the command
johnnyboy is the first name
nighty is the last name
and I get:
FstName$ -- john
LstName$ -- johnnyboy nighty
Whats wrong?
P.S. I am sorry for posting so many messages in one day, but whenever a problem arises I can't seem to fix, there is no one I know that can help me.
-
Put it into an Array and search it that way.
Code:
Private Sub Command1_Click()
ArrayName = Split(Text1.Text, " ")
For i = 0 To UBound(ArrayName)
ArrName = ArrName & ArrayName(i) & vbCrLf
Next i
MsgBox ArrName
End Sub
-
<?>
Code:
'better coding practice to declare your variables
'if you have VB6 you can do it this way.
'same idea as Matthew..just a little more explanatory
Option Explicit
Private Sub Command1_Click()
Dim sWhole As String, FstName As String
Dim LstName As String
Dim mySplit As Variant 'must always be a varian to hold a split
sWhole = Text1.Text
mySplit = Split(sWhole, " ")
'the 3 elements of the split
'mySplit(0) = new
FstName = mySplit(1)
LstName = mySplit(2)
MsgBox "First Name is " & FstName
MsgBox "Last Name is " & LstName
End Sub
Private Sub Form_Load()
Text1 = "new johnnyboy nightly"
End Sub
-
Thank you all. My program is working now. It was easier to split into a vector (array).
-
Did I forget to declare? Oops..
Code:
Dim ArrayName As Variant
Dim ArrName As String
Dim i As Integer
...I feel so much better now :rolleyes:.
-
<?>
Code:
'this is your way
Private Sub Command1_Click()
whole$ = Text1.Text
Pos% = InStr(whole$, " ")
whole = Right(whole, Len(whole) - Pos)
Pos% = InStr(whole$, " ")
LstName$ = Right(whole, Len(whole) - Pos)
whole = Left(whole, Pos)
FstName$ = whole
MsgBox FstName
MsgBox LstName
End Sub
Private Sub Form_Load()
Text1 = "new johnnyboy nightly"
End Sub
