How to strip a phone number

[magicuser68]

I looked through the forums a couple times and I couldn't find any simple code to strip a phone number. I know there is a lot of regex stuff that I read about but I just can't figure it out on my own.

Can someone write a function that returns a 10 digit number from the examples below?

Examples:

1 (333) 333-3333
333-333-3333
(333) 333-3333
333 333 3333

Thanks in advance

 

[Erel]

Untested code:

Sub ParseRawPhone(s As String) As String
 Dim sb As StringBuilder
 sb.Initialize
 For i = 0 to s.Length - 1
  If IsNumber(s.CharAt(i)) Then sb.Append(s.CharAt(i))
 Next
 Return sb.ToString
End Sub

 

[magicuser68]

Yes! Great answer!

Worked like a charm!!! Thank you so much! :sign0060: