'将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代码……