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".
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
GetDigits = strOutput
About the Author
dwirch has posted a total of 172 articles.
Comments On This Post
No comments on this post yet!
Do you have a thought relating to this post? You can post your comment here. If you have an unrelated question, you can use the Q&A section to ask it.
Or you can drop a note to the administrators if you're not sure where you should post.