Go4Expert

Go4Expert (http://www.go4expert.com/)
-   Visual Basic ( VB ) (http://www.go4expert.com/forums/visual-basic/)
-   -   Strings and Substrings (http://www.go4expert.com/forums/strings-and-substrings-t6053/)

John B 27Aug2007 03:00

Strings and Substrings
 
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 27Aug2007 05:03

Re: Strings and Substrings
 
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


shabbir 27Aug2007 08:28

Re: Strings and Substrings
 
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 27Aug2007 08:37

Re: Strings and Substrings
 
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 )



All times are GMT +5.5. The time now is 19:44.