Copterfly's blog

function TransNum(strng,def)
    if isnull(strng) Or Len(strng) = 0 then
        TransNum = def
        exit function
    end if
    dim regex
    Set regex = new Regexp
    regex.Global = false
    regex.IgnoreCase = false
    regex.Pattern="^[-]{0,1}[0-9]{0,}[.]{0,1}[0-9]{0,}$"
    ''regex.Pattern = "^[-]*\d*[.][\d+]{0,}$"
    if regex.Test(strng) then
        TransNum=cdbl(strng)
    else
        TransNum=def
    end if
end function

Dim a(11),iNum
a(0) = "-.1"
a(1) = "-1.1"
a(2) = "-0.1"
a(3) = "0.1"
a(4) = ".1"
a(5) = "111.132234345345354"
a(6) = "+.1"
a(7) = "111"
a(8) = "asfd.1"
a(9) = "-1"
a(10) = "188.188.188"
a(11) = "18a8.1"
Response.Write "<table border=1>"
For i = 0 to 11
    iNum = TransNum(a(i),0)
    Response.Write "<tr><td>" & a(i) & "</td><td>" & iNum & "</td><td>"
    Response.Write FormatCurrency(iNum,,-1,0,-1) & "</td>"
Next
Response.Write "</table>"

Trackbacks:     
Tags: 正则 | 分类：ASP技术
浏览概况：评论:0 | 阅读:12977

« 上一篇：启动IIS出现0x8ffe2740错误的解决办法

下一篇：Asp常用函数(比较完整版) »

 ||