Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB4,VB5,VB6
Expertise: Intermediate
Jul 28, 2001

PhoneNumberFromString - Convert a phone string into a number

' convert a telephone string into a phone number

Function PhoneNumberFromString(ByVal PhoneString As String) As String
    Dim i As Integer
    Dim acode As Integer
    
    Const PhoneDigits = "22233344455566677778889999"
    
    ' prepare result in uppercase
    PhoneNumberFromString = UCase$(PhoneString)
    
    For i = 1 To Len(PhoneNumberFromString)
        acode = Asc(Mid$(PhoneNumberFromString, i, 1))
        Select Case acode
            Case 48 To 57
                ' nothing to do
            Case 65 To 90
                ' replace with corresponding char in PhoneChars
                Mid$(PhoneNumberFromString, i, 1) = Mid$(PhoneDigits, _
                    acode - 64, 1)
            Case Else
                ' raise an error if anything else
                Err.Raise 5, , "Invalid character"
        End Select
    Next
    
End Function
Francesco Balena
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date