Extracting Multiple Numbers from String

[bolillo1234]

I have thousands of fields that contain addresses and I need to extract only the numbers. The problem I am facing is that there are two numbers within the string and they begin at different times.

Examples of the data
1409 N 250 W
259 West 158 Johnson Blvd
109829 South 344 East

What Im trying to get
1409250
259158
109829344

Thanks,
Bolillo

 

[Peter_SSs]

@djmyers

You originally asked about a formula solution without the digit count limit. If you happen to have Office 365 with the CONCAT function then you could use a formula like B1 to use the space delimiter or C1 to use any text as delimiter.
Each of these is an array formula so should be entered without the {} but confirmed with Ctrl+Shift+Enter, not just Enter. If confirmed correctly, Excel will insert the {}.

I have also suggested another UDF that doesn't require looping through the individual characters of the string. Examples of use in D1:E1.

Function GetDigits(s As String, Optional sDel As String = " ") As String
  With CreateObject("VBScript.RegExp")
    .Global = True
    .Pattern = "\D+"
    GetDigits = Replace(Application.Trim(.Replace(s, " ")), " ", sDel)
  End With
End Function

Book1
	A	B	C	D	E
1	GNCP 638, 2014 Fall Placemats GFI , NORAD, 9/1-12/31/14	638 2014 9 1 12 31 14	638 - 2014 - 9 - 1 - 12 - 31 - 14	638 2014 9 1 12 31 14	638, 2014, 9, 1, 12, 31, 14
Sheet1

Cell Formulas
Range	Formula
D1	=GetDigits(A1)
E1	=GetDigits(A1,", ")
B1	{=TRIM(CONCAT(IFERROR(MID(A1,ROW(INDEX(A:A,1):INDEX(A:A,LEN(A1))),1)+0," ")))}
C1	{=SUBSTITUTE(TRIM(CONCAT(IFERROR(MID(A1,ROW(INDEX(A:A,1):INDEX(A:A,LEN(A1))),1)+0," ")))," "," - ")}
Press CTRL+SHIFT+ENTER to enter array formulas.