- 打印本文 关闭窗口
- StripNonNumeric函数源程序
- 作者:采集员 文章来源:来源于网络 点击数: 更新时间:2005/9/10 13:07:48
- <%
Function StripNonNumeric(strInput)
Dim iPos, sNew, iTemp
strInput = Trim(strInput)
If strInput <> "" Then
iPos = 1
iTemp = Len(strInput)
While iTemp >= iPos
If IsNumeric(Mid(strInput,iPos,1)) = True Then
sNew = sNew & Mid(strInput,iPos,1)
End If
iPos = iPos + 1
Wend
Else
sNew = ""
End If
StripNonNumeric = sNew
End Function
%> - 打印本文 关闭窗口