白云岛资源网 Design By www.pvray.com
函数
Function RegImg(TheStr) Dim RegEx Set RegEx = New RegExp '建立正则表达对象。 RegEx.IgnoreCase =True ' 是否区分大小写，True为不区分且默认 RegEx.Global = True '全部匹配还是只匹配第一个 RegEx.Pattern = "<img[^>]*src\s*=\s*['"&CHR(34)&"]"&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='图片标题' style='border:none;position:relative;' /><img src='/111.jpg' /><img src='/222.jpg' />"
Response.Write RegImg(htmlBody)
到这里就为拿出了，大家可以根据需要修改。
白云岛资源网 Design By www.pvray.com
广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除！
免责声明：本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除！
白云岛资源网 Design By www.pvray.com
暂无评论...
P70系列延期，华为新旗舰将在下月发布
3月20日消息，近期博主@数码闲聊站 透露，原定三月份发布的华为新旗舰P70系列延期发布，预计4月份上市。
而博主@定焦数码 爆料，华为的P70系列在定位上已经超过了Mate60，成为了重要的旗舰系列之一。它肩负着重返影像领域顶尖的使命。那么这次P70会带来哪些令人惊艳的创新呢？
根据目前爆料的消息来看，华为P70系列将推出三个版本，其中P70和P70 Pro采用了三角形的摄像头模组设计，而P70 Art则采用了与上一代P60 Art相似的不规则形状设计。这样的外观是否好看见仁见智，但辨识度绝对拉满。