GetDigits

---

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 this post

Posted: 2012-10-13
By: dwirch
Viewed: 1,447 times

Categories

Tutorials

ASP/ HTML

Visual Basic Script (VBS)

Attachments

No attachments for this post

Comments

No comments have been added for this post.

You must be logged in to make a comment.