asp中，施用正则提取文章中第一张图片路径并显示
日期：2014-05-17 浏览次数：21140 次
asp中，使用正则提取文章中第一张图片路径并显示
上次我发过个【asp中，如何在首页显示新闻内容中的第一张图片】，纠结的一个事情出现了，我将此调用的数据单独放一个页面测试时，是可以读取的【...<img border="0" src=<%=RegExp_Execute(regstr,rs("content"))%> width="200" height="200" />...】。然后整体放网站去时，这个图片就读不出来了。
附： Function RegExp_Execute(patrn, strng)
Dim regEx, Match, Matches,values
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = true
regEx.Global = True
For Each Match in Matches
values=Match.Value
Next
RegExp_Execute = values
End Function
------解决方案--------------------
你发的这个代码。根本就不是提取图片的。
上次我发过个【asp中，如何在首页显示新闻内容中的第一张图片】，纠结的一个事情出现了，我将此调用的数据单独放一个页面测试时，是可以读取的【...<img border="0" src=<%=RegExp_Execute(regstr,rs("content"))%> width="200" height="200" />...】。然后整体放网站去时，这个图片就读不出来了。
附： Function RegExp_Execute(patrn, strng)
Dim regEx, Match, Matches,values
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = true
regEx.Global = True
For Each Match in Matches
values=Match.Value
Next
RegExp_Execute = values
End Function
------解决方案--------------------
你发的这个代码。根本就不是提取图片的。
- VBScript code
Function GetFirstImg(Str) '取得img 标签内容
Dim tmp
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True '忽略大小写
objRegExp.Global = false '全文搜索 !关键!
objRegExp.Pattern = "<img (.*?)src=(.[^\[^>]*)(.*?)>"
Set Matches = objRegExp.Execute(Str)
For Each Match in Matches
tmp = tmp & Match.Value
Next
GetFirstImg = GetImgS(tmp)
End Function
Function GetImgS(Str)'获取所有图片
Set objRegExp1 = New Regexp
objRegExp1.IgnoreCase = True '忽略大小写
objRegExp1.Global = True '全文搜索
objRegExp1.Pattern = "src\=.+?\.(gif|jpg|png|bmp)"
Set mm = objRegExp1.Execute(Str)
For Each Match1 in mm
imgsrc = Match1.Value
'也许存在不能过滤的字符，确保万一
imgsrc = Replace(imgsrc, """", "")
imgsrc = Replace(imgsrc, "src=", "")
imgsrc = Replace(imgsrc, "<", "")
imgsrc = Replace(imgsrc, ">", "")
imgsrc = Replace(imgsrc, "img", "")
imgsrc = Replace(imgsrc, " ", "")
GetImgS = GetImgS & imgsrc'把里面的地址串起来备用
Next
End Function
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
