关闭

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

318人阅读 评论(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 ' 遍历 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)

%>

0
0

猜你在找
【直播】机器学习&数据挖掘7周实训--韦玮
【套餐】系统集成项目管理工程师顺利通关--徐朋
【直播】3小时掌握Docker最佳实战-徐西宁
【套餐】机器学习系列套餐(算法+实战)--唐宇迪
【直播】计算机视觉原理及实战--屈教授
【套餐】微信订阅号+服务号Java版 v2.0--翟东平
【直播】机器学习之矩阵--黄博士
【套餐】微信订阅号+服务号Java版 v2.0--翟东平
【直播】机器学习之凸优化--马博士
【套餐】Javascript 设计模式实战--曾亮
查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:1100285次
    • 积分:15509
    • 等级:
    • 排名:第692名
    • 原创:866篇
    • 转载:4篇
    • 译文:0篇
    • 评论:13条
    最新评论