StripNonNumeric函数源程序

中国IT动力,最新最全的IT技术教程

最新100篇 | 推荐100篇 | 专题100篇 | 排行榜 | 搜索 | 在线API文档 | 网通镜像

当前位置：> 程序开发 > Web开发 > Asp > 综合文章

StripNonNumeric函数源程序

作者:佚名时间:2006-11-05 16:55 出处:互连网责编:月夜寒箫

摘要：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
%>

关闭本页