Saturday, October 13, 2012

GetDigits

Ever wanted to grab all the digits out of a string? This handy little function will do it. Not sure what purpose this would server, but someone requested it, so here it is.

For example, if you have a string value that contains "My n4me3 1s J0e", this function will return a string value containing "4310".

FUNCTION GetDigits(value)

dim strOutput, strDigit, intKount

strOutput = ""

for intKount = 1 to Len(value)

strDigit = Mid(value, intKount, 1)

if (Asc(strDigit) >= Asc("0")) and (Asc(strDigit) <= Asc("9")) then
strOutput = strOutput & strDigit
end if

next

GetDigits = strOutput

END FUNCTION

No comments:

Post a Comment