分析Html源代码，获得所有图片地址

最新推荐文章于 2021-12-06 15:21:15 发布

原创最新推荐文章于 2021-12-06 15:21:15 发布 · 1.5k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#html #string #function #integer

ASP.Net技巧专栏收录该内容

2 篇文章

订阅专栏

本文介绍了一种使用VBScript从HTML代码中提取图片链接的方法。通过解析HTML源代码，定位到<img>标签并获取其src属性值，从而实现自动化提取图片地址的功能。此方法适用于需要批量处理HTML文件及提取图片链接的场景。

'将Html代码给Html Dim Html, Imgs As String Html = LCase(x) Do While InStr(Html, " <img ") <> 0 '如果Html里面还有 <Img标签 Imgs = GetImg(Html) '获得Img标签的src值 '============= '你的代码，把得出的图片地址处理 '============= Html = Mid(Html, Imgs) '处理Html，逐个获得Img Loop Function GetImg(ByVal Html As String) As String Dim Img As Integer = InStr(Html, " <img ") '获得 <img标签位置 If Img <> 0 Then '如果有 <Img则 Html = Mid(Html, Img + 4) '把 <img标签之前的Html代码删掉 Html = Mid(Html, InStr(Html, "src= ' ") + 5) '把src= '和之前的html代码删掉 GetImg = Left(Html, InStr(Html, " ' ")) '把删掉后的代码，在 "之前的就是图片地址 Else GetImg = " " End If End Function

只要把Html源代码赋予Html,然后写一下处理图片地址过程。

类似的，你可以根据这个写出其他的分析处理Html代码……