Extract a number from a string

[webisti]

Hi
I do have a module to extract a number from a string :

Public Function ExtractedValue(strSent) As Double
If IsNull(strSent) Then
Exit Function
End If
Dim strTemp As String
Dim intLoop As Integer
'This function extracts a numeric values from a string and returns it
' in ExtractedValue
'Return value of 0 if no numbers found
ExtractedValue = 0
strTemp = ""


'Perform the extraction
For intLoop = 1 To Len(strSent)
If Asc(Mid(strSent, intLoop, 1)) >= 48 And Asc(Mid(strSent, intLoop, 1)) <= 59 Then
strTemp = strTemp & Mid(strSent, intLoop, 1)
End If
Next intLoop
If Len(strTemp) > 0 Then
ExtractedValue = Val(strTemp)
End If
End Function

My problem is that the string I do have is like:

19.0 EA
195 PAC
42 M
150 L
the problem is that when the number is like 19.0 EA the value I get is 190, in reality it should be 19.
The rest is fine as there are no dot`s.
Any ideas on how to solve this issue?

Thanks

Webisti

[orange]

You may want to include ascii 46 (.) in your criteria--that should give you the decimal point.

[mrojas]

It appears to me that you need to include, in your If statement that validates the ASCII values, the corresponding ASCII code for the period, 46, otherwise your code strips the period off your string.

[webisti]

It appears to me that you need to include, in your If statement that validates the ASCII values, the corresponding ASCII code for the period, 46, otherwise your code strips the period off your string.

Thanks Guys it worked.

webisti