Phone Characters to Numbers

[Esoteric]

Is there a quick way to take this
(555) 555-1212 and convert it to this 5555551212?

Please help - I thought maybe a trim or Replace function might do this, without a function.

 

[onpnt]

Dim regEx
Set regEx = New RegExp
regEx.Global = true
regEx.Pattern = "[\(\)\-\s]"
str = "(333) 333-3333"
str = Trim(regEx.Replace(str, "&quot)
alert str

http://www.onpntwebdesigns.com

admin@onpntwebdesigns.com

 

[sfvb]

This also works:
str = "(555) 555-1212"
str = replace(replace(replace(replace(str,"-", "&quot," ", "&quot,&quot", "&quot,"(", "&quot

 

[onpnt]

I think the point of regex is to eleviate lines of code like that. (makes debugging hell!) however it does work well.

http://www.onpntwebdesigns.com

admin@onpntwebdesigns.com

 

[sfvb]

(makes debugging hell!)
I agree, but he seemed to want to use either the trim or replace function.