联系

点击这里立即发消息给我

加腾讯QQ:211812590
E_mail: 211812590@qq.com

条码二维码软件
实用工具软件

站点日历
73 2018 - 4 48
1234567
891011121314
15161718192021
22232425262728
2930




日志搜索

 标题   内容

联系

点击这里立即发消息给我

E_mail: 211812590@qq.com


ASP生成静态代码,可用模板技术,非常简单 ASP查看文件夹里的所有文件
晴天 asp提取出字符串中的数字   [ 日期:2011-04-06 ]   [ 来自:本站原创 ]

方法(一)
只提取字符串最前面的数字。

str="宫心计01"
Response.Write RegExpTest("[a-z0-9-]+",str)(0)
Function RegExpTest(patrn, strng) '以数组返回
    Dim regEx, Match, Matches
    Dim i, RetStr()
    i = 0
    Set regEx = New RegExp
    regEx.Pattern = patrn
    regEx.IgnoreCase = True
    regEx.Global = True
    Set Matches = regEx.Execute(strng)
    For Each Match in Matches
'        RetStr = RetStr & Match.Value
        Redim Preserve RetStr(i)
        RetStr(i) = Match.Value
        i = i + 1
    Next
    RegExpTest = RetStr
End Function


方法(二)
提取字符串中所有的数字。当字符中无数字输出为空

function RegExpTestsp(str,pat) 
     Dim r, Match, Matches 
     Set r = New RegExp 
     r.Pattern = pat 
     r.IgnoreCase = false 
     r.Global = True 
     Set Matches = r.Execute(str) 
     For Each Match in Matches 
     RetStr = RetStr & Match.Value 
     Next 
     RegExpTestsp = RetStr 
End function 
PValue = "宫心09数组返回01" 
pat="[\d]+" 
response.write(RegExpTestsp(PValue,pat))



在本网站提供显示的任何文字内容及图片仅供学习研究参考之用,若有觉的侵犯了您的合法权益,请联系删除!
Copyright@zg126.net all rights reserved 2010-2016