Go4Expert - Strings and Substrings

Go4Expert (http://www.go4expert.com/)

- Visual Basic ( VB ) (http://www.go4expert.com/forumdisplay.php?f=22)

- - Strings and Substrings (http://www.go4expert.com/showthread.php?t=6053)

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 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 21:43.