I am new, Sign me up!

Split Name to First and last Name

Code ResourceAuthor: Lokesh

Difficulty Level:

Published: 6th Feb 2007 Read: 5861 times

Filed in: VB.NET

Add Comment

Split Name to First and last Name. Public Function Sample() MsgBox getFirst_Name("LOKESH MURTHY") MsgBox getLast_Name("LOKESH MURTHY") End Function.

Sample Code

Public Function getFirst_Name(Full_Name As String)
On Error Resume Next
If IsNull(Full_Name) = True Or Len(Trim(Full_Name)) = 0 Then
getFirst_Name = " "
End If
Dim I As Long
For I = Len(Full_Name) To 1 Step -1
If Mid(Full_Name, I, 1) = " " Then
getFirst_Name = Mid(Full_Name, 1, I)
Exit Function
End If
Next I
End Function
Public Function getLast_Name(Full_Name As String)
On Error Resume Next
If IsNull(Full_Name) = True Or Len(Trim(Full_Name)) = 0 Then
getLast_Name = " "
End If
Dim I As Long
For I = Len(Full_Name) To 1 Step -1
If Mid(Full_Name, I, 1) = " " Then
getLast_Name = Trim(Mid(Full_Name, I, 999))
Exit Function
End If
Next I
End Function

Copyright GeekInterview.com

Next Article: Sample Cart

Latest Code Samples

♦ Remove Blank Lines from Script Files

♦ Split Name to First and last Name

♦ Sample Cart

♦ Birth Number from Date - Numerology

Popular Code Samples

♦ Split Name to First and last Name

♦ Birth Number from Date - Numerology

♦ Remove Blank Lines from Script Files

♦ Sample Cart

Related Code Samples

Post Comment

Comments

good code

Comment posted by: bhanudas on 2007-11-19T13:23:26

Popular Coders

#	Coder Name	Hits
1.	Lokesh	5862
2.	supersubra	2446
3.	Lokesh M	1529
4.	Biswabed Dash	808

Active Coders

#	Coder Name	Codes
1.	supersubra	1
2.	Biswabed Dash	1
3.	Lokesh	1
4.	Lokesh M	1

Refined Tags

Sponsored Links

About Us - Privacy Policy - Terms and Conditions - Contact

Copyright © 2005 - 2009 GeekInterview.com. All Rights Reserved