ASP正则提取内容里所有图片路径SRC

有时候客户提交的内容里包含多个图片,客户想单独把图片路径提取出来进行保存,下面编程之家跟大家分享:ASP正则提取内容里所有图片路径SRC的方法函数

ASP正则提取内容里所有图片路径SRC的函数代码

Function RegImg(TheStr)

    Dim RegEx

    Set RegEx = New RegExp '建立正则表达对象。

    RegEx.IgnoreCase =True ' 是否区分大小写,True为不区分且

    RegEx.Global = True '全部匹配还是只匹配第一个 

    RegEx.Pattern = "<img[^>]*srcs*=s*['"&CHR(34)&"]?([w/-:.]*)['"&CHR(34)&"]?[^>]*>" ' 搜索所使用的正则表达式

    If Regex.test(TheStr) Then  ' 判断是否有匹配值,返回True或者False。不受Global属性影响。

        Dim Matches

        Set Matches = RegEx.Execute(TheStr) ' 执行搜索。Execute 方法返回一个Matches 集合,其中包含了在 TheStr 中找到的每一个匹配的 Match 对象。如果未找到匹配,Execute 将返回空的 Matches 集合。

        For Each Match in Matches ' 遍历匹配集合。

        'RetStr = RetStr & Match.Value & "<br />" '获取整个img

        RetStr = RetStr & Match.SubMatches(0)&"||" '只取src

        Next

        RegImg = RetStr

    End If           

End Function

'调用方法

htmlBody="<img id='img'  src='/images/01.jpg' alt='图片标题' border:none;position:relative;' /><img  src='/111.jpg' /><img  src='/222.jpg' />"

Response.Write RegImg(htmlBody)

扩展阅读:ASP获取HTML内容里的第一张图片与所有图片名称

相关文章

数组的定义 Dim MyArray MyArray = Array(1‚5‚123‚12‚98...
\'参数: \'code:要检测的代码 \'leixing:html或者ubb \'n...
演示效果: 代码下载: 点击下载
环境:winxp sp2 ,mysql5.0.18,mysql odbc 3.51 driver 表采...
其实说起AJAX的初级应用是非常简单的,通俗的说就是客户端(j...
<% ’判断文件名是否合法 Function isFilename(aFilename...