May contest is last contest: Due to lack of participation, this will be the last month for free stuff. Get it while you can. See the Leaderboard for more info.
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
dwirch has posted a total of 160 articles.
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.