StripNonNumeric函数源程序

季小夏测

季小夏测

2016-01-29 17:22

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
%


 
展开更多 50%)
分享

猜你喜欢

StripNonNumeric函数源程序

ASP
StripNonNumeric函数源程序

Java实现ftp功能(源程序)

编程语言 网络编程
Java实现ftp功能(源程序)

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

代码实例:JSP分页源程序

Web开发
代码实例:JSP分页源程序

LINE9的目录浏览源程序

Web开发
LINE9的目录浏览源程序

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

网络精英计数器源程序

ASP
网络精英计数器源程序

如何用UltraEdit编译C#源程序

电脑网络
如何用UltraEdit编译C#源程序

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

CDONTS发电子邮件例子

CDONTS发电子邮件例子

手工备份Windows XP的注册表

手工备份Windows XP的注册表
下拉加载更多内容 ↓