网络Online

程序,电脑,生活,股票

asp 正则提取字符串,并以数组方式返回

<%
'### 提取字符,并以数组方式返回
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 ' 遍历 Matches 集合。
'        RetStr = RetStr & Match.Value
        Redim Preserve RetStr(i)
        RetStr(i) = Match.Value
        i = i + 1
    Next
    RegExpTest = RetStr
End Function

'### 提取中文字符
'Response.Write RegExpTest("[/u4e00-/u9fa5/uf900-/ufa2d]", "提取中sdfsdfsdf文字符")

Dim str
str = "<img src=""http://www.xrss.cn/04/ohzmxdpp/01.jpg"" title=""胖胖的啊""/><br /><br /><img src=""http://www.pclalal.com/04/ohzmxdpp/02.jpg"" /><br /><br /><img src=""http://www.xrss.cn/Upload/04/ohzmxdpp/03.jpg"" /><br /><br /><img src=""http://www.flashbase.cn/04/ohzmxdpp/04.jpg"" /><br /><br /><img src=""http://www.joke163.com/04/ohzmxdpp/05.jpg"" /><br /><br /><img src=""http://www.xrss.cn/Upload/04/ohzmxdpp/06.jpg"" /><br /><br /><img src=""http://www.xrss.cn/Upload/04/ohzmxdpp/07.jpg"" /><br /><br /><script type='text/javascript' language='javascript1.2' src='http://www.xuncai.com/picjs_mix2.asp?publisher=zww@fgbbs_A&width=300&height=300&large_width=301&large_height=302'></script>"

'### 提取图片地址
Dim result
result = RegExpTest("[a-zA-z]+://[^/s]*.jpg", str)
Response.Write UBound(result)
Response.Write "<br>"
for i=0 to ubound(result)
Response.Write result(i)&"<br>"
next

'Response.Write RegExpTest("[/u4e00-/u9fa5]",str)

%>

阅读更多
个人分类: 程序
上一篇asp 截取字符函数
下一篇用asp解析图片地址,并将其保存
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭