StripNonNumeric函数源程序

2016-01-29 17:22 4 1 收藏

StripNonNumeric函数源程序,StripNonNumeric函数源程序

【 tulaoshi.com - ASP 】

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


 

来源:http://www.tulaoshi.com/n/20160129/1501116.html

延伸阅读
当你看到这个标题的时候肯定回以为是不是作者写错了标题,告诉你没有,学习java语言就是要有创新精神,你只有不断突破前人的你才会有进步。下面我把这一剂良药送给你。 Java作为一门编程语言,最好的学习方法就是写代码。当你学习一个类以后,你就可以自己写个简单的例子程序来运行一下,看看有什么结果,然后再多调用几个类的方法,看看运行...
标签: ASP
  <% bUseImages = CBool(Request.QueryString("images")) strCountFileName = Server.MapPath(Request.ServerVariables("SCRIPT_NAME") & ".dat") Set objFSO = Server.CreateObject("Scripting.FileSystemObject") ' Open the file as a text stream (1 = ForReading, True = Create) S...
/****************************************************************/ /* @(#)busyworkBook.java 1.0.0 2004-06-04 */ /* */ /* Email: pqdb123@yahoo.com.cn */ /* */ /* Copyright (c) 2004-2006 by ZhangYunFeng All Rights Reserved. */ /****************************************************************/ //导入awt包,event包 import...
标签: PHP
  引用“星空浪子”php中文文档的例子: 聊天室,是 Web 站上打发无聊人士的秘密武器。同时,站长或其它人员也可以在这儿杀时间。甚至发生一段轰轰烈烈的网路恋情呢,就算没有,起码可以增加打字的速度。 聊天室,其实就是多人共同使用的 CGI 程式。程式将每个人输入的字串,依系统接收完成的时间整理过后,再送给各个使用者。而 Web ...
现在很多企业或者公司基本上网方式基本上都是申请一条连接到Internet的线路,宽带、DDN、ADSL、ISDN等等,然后用一台服务器做网关,服务器两块网卡,一块是连接到Internet,另一块是连接到内网的HUB或者交换机,然后内网的其他机器就可以通过网关连接到Internet。也许有些人会这样想,我在内网之中,我们之间没有直接的连接,你没有办法攻击我。...

经验教程

354

收藏

31
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部