fortypoundhead.com

GetDigits

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


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


About the Author

dwirch has posted a total of 173 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:23.20.157.174

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



Recent Forum Posts

Coding Archive?
dwirch posted on May 25, 2017 at about 12:38 in Site News

BWASL returns
dwirch posted on May 13, 2017 at about 15:24 in Site News

BWASL returns
dwirch posted on May 13, 2017 at about 8:46 in Site News

Job Spammer: Balashankar Bose Bose
dwirch posted on May 11, 2017 at about 10:05 in Spammers

Job Spammer: Bharti Jigyasi
dwirch posted on May 11, 2017 at about 7:58 in Spammers

List of Shady Characters
dwirch posted on April 25, 2017 at about 16:39 in Webmaster Stuff