|
Displaying Source Code(s)
|
|
Get Digits
--------------------------------------------------------------------------------
Description : Get the digits out of a string
Function GetDigits(value)
Dim s, sd, i
s = ""
For i = 1 To Len(value)
sd = Mid(value, i, 1)
If (Asc(sd) >= Asc("0")) And (Asc(sd) <= Asc("9")) Then
s = s & sd
End If
Next
GetDigits = s
End Function
|
|
|