用正则表达式取得内容中第一个图片的地址

原创

iteyer 2021-07-30 14:41:59 ©著作权

文章标签 正则表达式 regex function 测试 qt 文章分类 后端开发

©著作权归作者所有：来自51CTO博客作者iteyer的原创作品，请联系作者获取转载授权，否则将追究法律责任

现在需要从一篇文章中提取出其中第一个图片的地址，这在写图片新闻这类代码的时候很常用，刚看了一篇文章，自己改写了两个函数：

<%
’取得文章内容中第一张图片的函数
Function GetImg(str)
dim regEx,Match,Matches,imgTemp
imgTemp=""
set regEx=New RegExp
regEx.IgnoreCase=true
regEx.Global=false
regEx.pattern="(<)(.[^<]*)(src=)(’|"&CHR(34)&"| )?(.[^’|/s|"&CHR(34)&"]*)(/.)(jpg|gif|png|bmp|jpeg)(’|"&CHR(34)&"|/s|>)(.[^>]*)(>)" ’设置模式。

set Matches=regEx.Execute(str)
If Matches.count>0 Then
imgTemp=Matches(0)
End if

GetImg=imgTemp
End Function

’取得文章内容中第一张图片的地址的函数
Function GetImgSrc(str)
dim regEx,Match,Matches,srcTemp
srcTemp=""
set regEx=New RegExp
regEx.IgnoreCase=true
regEx.Global=false
regEx.pattern="src="/(."*)(/.)(jpg|gif|png|bmp|jpeg)(’|"&CHR(34)&"|/s)"

set Matches=regEx.Execute(GetImg(str))
If Matches.count>0 Then
srcTemp=Matches(0)
End if

GetImgsrc="/srcTemp"
End Function
%>

测试代码如下：

<%
’测试上面的函数
text="

aaaaaaaaaaaaaaaaa