by VB Tips and Source Code (5 Submissions)
Category: String Manipulation
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Date Added: Wed 3rd February 2021
Rating: 
(3 Votes)
The purpose of this routine is to take a string of text (such as with a textbox) and extract a numerical value from it. let's say that you have a textbox in which people enter dollar amounts. Many users are likely to enter something such as "$ 4,335.49" and expect calculations to be performed on it. The trouble is, the value of that string is 0 (zero), not 4335.49!
Inputs
The function shown below called PurgeNumericInput requires one argument. That argument is a string containing numbers with or without special characters.
Assumes
Using the following function, a person would actually be able to enter a string like "$4,335.49" or even "4335.49 dollars" and still have the value returned as 4335.49.
VBcodersFunction PurgeNumericInput (StringVal As Variant) As Variant
On Local Error Resume Next
Dim x As Integer
Dim WorkString As String
If Len(Trim(StringVal)) = 0 Then Exit Function ' this is an empty string
For x = 1 To Len(StringVal)
Select Case Mid(StringVal, x, 1)
Case "0" To "9", "." 'Is this character a number or decimal?
WorkString = WorkString + Mid(StringVal, x, 1) ' Add it to the string being built
End Select
Next x
PurgeNumericInput = WorkString 'Return the purged string (containing only numbers and decimals
End Function
You then just need to call the function passing a string argument to it. An example is shown below.
Sub Command1_Click
Dim NewString as Variant
NewString = PurgeNumericInput("$44Embedded letters and spaces 33 a few more pieces of garbage .9")
If Val(NewString) 0 Then
MsgBox "The Value is: " & NewString
Else
MsgBox "The Value is ZERO or non-numeric"
End If
End Sub
Notice how much alphanumeric garbage was placed in the string argument. However, the returned value should be 4433.9! Two questions might arise when using this type of example.
#1 - What if the string was "0"? This could be determined by checking the length of the string (variant) returned. If the user entered a "0" then the length of the string would be > 0.
#2 - What if the string contains more than one decimal? You could use INSTR to test for the number of decimals. However, chances are, if the user entered more than one decimal you might better have them re-enter that field again anyway.
