SRH Scripts

Function:
Removes unwanted characters from a string.

Source:
Public Function StripChars(sString, sChars)

Dim I
Dim nLength

If sString <> “” Then
nLength = Len(sChars)
For I = 1 To nLength
sString = Replace(sString, Mid(sChars, I, 1), “”)
Next
StripChars = sString
Else
StripChars = “”
End If

End Function

Example:
sReturnString=stripChars(”(619) 555-1234″, “() -”);

Output:
6195551234