Strings and Substrings

John B's Avatar, Join Date: Aug 2007
Newbie Member
I'm trying to create a program that will validate phone numbers. I need to use strings and substring to tell if it is using the hyphens in the phone numbers. If it is not a validate phone number a message will show saying that it is not validate and why. If it is validate then it will show a message that is it.
jwshepherd's Avatar, Join Date: Aug 2007
Team Leader
use a form with one textbox, one label,one command button
Code:
Option Explicit

Private Sub Command1_Click()
Dim strTemp As Integer, strLen As String, x As Integer, strPhone As String
strPhone = Text1.Text
strLen = Len(strPhone)
For x = 1 To strLen
    strTemp = Asc(Mid$(strPhone, x, 1))
    If strTemp = 45 Then strTemp = 0
    If strTemp < 48 Or strTemp > 57 Then
    Label1.Caption = "You must only use numbers"
    Else
    Label1.Caption = "Thank you "
    End If
    
    Next

End Sub

Last edited by jwshepherd; 27Aug2007 at 05:08..
shabbir's Avatar, Join Date: Jul 2004
Go4Expert Founder
Quote:
Originally Posted by John B
I'm trying to create a program that will validate phone numbers. I need to use strings and substring to tell if it is using the hyphens in the phone numbers. If it is not a validate phone number a message will show saying that it is not validate and why. If it is validate then it will show a message that is it.
I think other than hyphen (-) there are some other characters which are valid in phone numbers and they are plus (+) and brakets ( () ). +91-(348)-321654987 should be a valid phone number.
jwshepherd's Avatar, Join Date: Aug 2007
Team Leader
if you need thosejust add the follwing lines
Code:
   
    If strTemp = 45 Then strTemp = 0    'for -
    If strTemp = 43 Then strTemp = 0    'for +
    If strTemp = 40 Then strTemp = 0    'for (
    If strTemp = 41 Then strTemp = 0    'for )