赞助广告 赞助广告
　 当前位置：网络学院 → 服务器 → 邮件服务器 → StripNonNumeric函数源程序
StripNonNumeric函数源程序
日期：2001年7月7日 作者：不详 人气： 查看:[大字体 中字体 小字体]

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

（出处：不详 ）
相关文章：
 
相关软件：
 
  特别推荐
  热点TOP10