extracting numbers from a string 2

[GstRdr1]

I need to extract the numbers from a string and store them in a variable. For example I have thestring "05hdmj09kj03" how would I get vb to recognize just the 050903? I know that it's probably easy but I'm still new at this. Thanks

Marc
MCP -WinXP
-Win2k Server

 

[FRoeCassNet]

If you don't know how many numbers there are or where they are, you can do a simple loop:

Dim s As String
Dim sNum As String
Dim i As Integer

s = "05hdmj09kj03"
sNum = ""

For i = 1 To Len(s)
If IsNumeric(Mid(s, i, 1)) Then sNum = sNum & Mid(s, i, 1)
Next
Debug.Print sNum

 

[paulbent]

If the result can contain leading zeros it will have to be assigned to a string variable.

Function fNumbersFromString(ByVal strIn As String) As String

Dim lngC1 As Long

If strIn = vbNullString Then Exit Function

For lngC1 = 1 To Len(strIn)
If IsNumeric(Mid$(strIn, lngC1, 1) Then
fNumbersFromString = fNumbersFromString & _
Mid$(strIn, lngC1, 1)
End If
Next

End Function

Then call it as follows:

Dim strNumbers As String
strNumbers = fNumbersFromString("05hdmj09kj03&quot

Paul Bent
Northwind IT Systems

http://www.northwindit.co.uk

 

[paulbent]

Oops, missing ')'

If IsNumeric(Mid$(strIn, lngC1, 1)) Then

Paul Bent
Northwind IT Systems

http://www.northwindit.co.uk

 

[GstRdr1]

Thanks for you help!

Marc
MCP -WinXP
-Win2k Server

 

[strongm]

Or you could use a Regular Expression...