StripNonNumeric函数源程序
2018-09-06 12:34
阅读：429
<%
Function StripNonNumeric(strInput)
Dim iPos, sNew, iTemp
strInput = Trim(strInput)
Then
iPos = 1
iTemp = Len(strInput)
= 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
%>
文章来自：搜素材网的编程语言模块，转载请注明文章出处。
文章标题：StripNonNumeric函数源程序
文章链接：http://soscw.com/index.php/essay/10462.html
文章标题：StripNonNumeric函数源程序
文章链接：http://soscw.com/index.php/essay/10462.html
评论
亲，登录后才可以留言！