Cleaning a phone number array with REGEX Topic is solved

[Gate]

I have a list of poorly formatted phone numbers in an array. How would I format them all using one line of REGEX?

Code: Select all

a := ["+11231231234","+67 123 123 1234","+1 123 123 1234","123 123 1234"," 123 123 1234","(123) 123 1234","123-123-1234","1231231234","12 31 23 12 34","(123) 123-1234","+1 (123) 123-1234","+67 (123) 123-1234"],

for k, v in a.Clone()
	a[k] := RegExMatch(v, "((\d\D*){10})$")   ; does not filter out \D like I intended
	
; GOAL: a[k] = "1231231234"
	

[teadrinker]

Code: Select all

a := ["+11231231234","+67 123 123 1234","+1 123 123 1234","123 123 1234"," 123 123 1234","(123) 123 1234","123-123-1234","1231231234","12 31 23 12 34","(123) 123-1234","+1 (123) 123-1234","+67 (123) 123-1234"]

for k, v in a
   MsgBox, % RegExReplace(v, ".(?=(\D*\d\D*){10})|\D")

[mikeyww]

Code: Select all

tel := ["+11231231234"     , "+67 123 123 1234"  , "+1 123 123 1234", "123 123 1234"  , " 123 123 1234"
       ,"(123) 123 1234"   , "123-123-1234"      , "1231231234"     , "12 31 23 12 34", "(123) 123-1234"
       ,"+1 (123) 123-1234", "+67 (123) 123-1234"]
new  =
For each, ph in tel
 new .= "`n" SubStr(RegExReplace(ph, "[+\- ()]"), -9)
MsgBox, 64, Result, % SubStr(new, 2)

[Gate]

Thank you both for your answers. I really needed a short, one line answer for a reason that's hard to explain, so teadrinker really took the cake here. But definitely both solutions work, I tested them both out! So thanks both of you for your time!

[mikeyww]

I agree that mine is way too long! Best wishes.