当前位置： 移动技术网 > IT编程>开发语言>.net > StripNonNumeric函数源程序

StripNonNumeric函数源程序

2019年01月14日  | 移动技术网IT编程  | 我要评论

中国工控,饲妖,跌停是什么意思

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


您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网