Replace all non numerics with blanks

[raj]

how can i replace all non nuerics with blanks

i have some phone numbers such as follows:

(111)111-1111
or
111-111-1111

or
(111)1111111

i want to get rid of all non numbers and just have
1111111111

thanks

 

[Karl E. Peterson]

how can i replace all non nuerics with blanks

i have some phone numbers such as follows:

(111)111-1111
or
111-111-1111

or
(111)1111111

i want to get rid of all non numbers and just have
1111111111

That's a whole lot different from what most folks would consider "blanks" --
ie, space chars.

I'd just loop through it, concatenating numeric chars to a new string.

Public Function Crush(ByVal MyString As String) As String
Dim i As Long
Dim char As String
Dim retval As String

For i = 1 To Len(MyString)
char = Mid$(MyString, i, 1)
Select Case Asc(char)
Case 48 To 57
retval = retval & char
End Select
Next i
Crush = retval
End Function

Later... Karl

 

[raj]

sweet it works great

thats what i needed

thanks alot