提取出一篇文章里面的所有图片代码

最新推荐文章于 2025-06-05 17:03:11 发布

lg_lin

最新推荐文章于 2025-06-05 17:03:11 发布

阅读量2.1k

点赞数

分类专栏： asp 文章标签： function zk each

asp 专栏收录该内容

81 篇文章

订阅专栏

本文介绍了一种从HTML内容中提取图片路径的VBScript实现方法。通过使用正则表达式解析HTML源码，该方法能够准确地找到并返回所有图片的路径。适用于需要批量处理HTML文档提取图片的应用场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

提取一段字符串的图片文件，当有多张图片时，用“|”来分隔，可以用数组来获取

Function GetImagesInContent(strContent)
Set zk = Server.CreateObject("ZKLib.ZKComLib")
Set re=new RegExp
re.IgnoreCase =True
re.Global=false
MaxLoopCount = 5
s = strContent

strImageList = ""
LoopCount=0
re.Pattern = "(^[sS]*)<IMG.*src=""([^""]*)""([sS]*)"
Test=re.Test(s)
If Test Then

Do While Test
imgPath = re.Replace(s,"$2")
strImageList = strImageList & imgPath
s=re.Replace(s,"$1")

Test=re.Test(s)
LoopCount=LoopCount+1
If Test Then
strImageList = strImageList & "|"
End If
zk.SleepEx(10)
If LoopCount>20 Then Exit Do
Loop
End If
Set re = Nothing
Set zk = Nothing
GetImagesInContent = strImageList
End Function

'------------------------------------------------------------------------------------------

'--------------------------------------------------------------------
'提取一段字符串的图片文件
Function getphoto(strHTML)
Dim objRegExp, Match, Matches,tp
Set objRegExp = New Regexp

objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<img.+?>"
tp=""

Set Matches = objRegExp.Execute(strHTML)

For Each Match in Matches
tp=tp& Match.value
Next
getphoto=tp
Set objRegExp = Nothing
End Function

Function getsrc(strHTML)
Dim objRegExp, Match, Matches,tp
Set objRegExp = New Regexp

objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "src=.+?["&chr(34)&chr(32)&">]"
tp=""

Set Matches = objRegExp.Execute(Replace(Lcase(strHTML),chr(39),chr(34)))

For Each Match in Matches

tp=tp&"|$$|" & cutsrc(Trim(Match.value))
Next
getsrc=tp
Set objRegExp = Nothing
End Function

function cutsrc(strHtml)
   if Left(strHtml,5)="src="&chr(34) then
      cutsrc=Trim(mid(strHtml,6,len(strHtml)-6))
   else
      if Right(strHtml,1)=">" then
      cutsrc=Trim(mid(strHtml,5,len(strHtml)-5))
   else
      cutsrc=Trim(mid(strHtml,5,len(strHtml)-4))
      end if
   end if
end function

Response.Write getsrc(getphoto(shujv))