首页 相关文章 StripNonNumeric函数源程序

StripNonNumeric函数源程序

<%
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
%


...[ 查看全文 ]

2016-01-29 标签:

StripNonNumeric函数源程序的相关文章

手机页面
收藏网站 回到头部