Posted On 2012-10-13 by dwirch
Keywords: Get the digits out of a string
Tags: ASP VBScript Tutorial 
Views: 764

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


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.

Your IP address is:

Before you can post, you need to prove you are human. If you log in, this test goes away.

Recent Forum Posts

Job Spammer: Sathya Narayana
dwirch posted on March 15, 2017 at about 7:18 in Spammers

Job Spammer: Manish Kumar
dwirch posted on March 14, 2017 at about 17:44 in Spammers

Site Migration Complete
dwirch posted on March 12, 2017 at about 11:10 in Site News

Site Migration Complete
dwirch posted on March 11, 2017 at about 0:35 in Site News

Job Spammer: Jason Weinstein
dwirch posted on March 10, 2017 at about 14:00 in Spammers

Job Spammer: Ryan Wilson
dwirch posted on March 8, 2017 at about 17:00 in Spammers