fortypoundhead.com

Congratulations to Rossy65: The points contest for March is complete, and Rossy65 has won the Amazon gift card. Participate in the April contest, and win the next prize! See the Leaderboard for more info.

GetDigits

Primary Category = ASP

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

  • 1
  • 2
  • 3
  • 4
  • 5

 

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 159 articles.

You can find more information from dwirch by visiting http://www.derekwirch.com.

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:54.146.230.254

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