复制代码 代码如下:

'=====================================

'获取内容中所有图片

'=====================================

Function Get_ImgSrc(ByVal t0)

Dim t1,Regs,Matches,Match

t1=""

IF Not(IsNull(t0) Or Len(t0)=0) Then

Set Regs=New RegExp

Regs.Pattern="<img[^>]+src=""([^"">]+)""[^>]*>"

Regs.Ignorecase=True

Regs.Global=True

Set Matches=Regs.Execute(t0)

IF Matches.Count>0 Then

For Each Match In Matches

IF Left(Match.SubMatches(0),7)<>"http://" Then

t1=t1&"<option value="""&Match.SubMatches(0)&""">"&Match.SubMatches(0)&"</option>"

End IF

Next

End IF

End IF

Get_ImgSrc=t1

Set Matches=Nothing

Set Regs=Nothing

End Function

'=====================================

'获取内容中第一个图片

'=====================================

Function Frist_Pic(ByVal t0)

Frist_Pic=""

Dim Regs,Matches

Set Regs=New RegExp

Regs.Ignorecase=True

Regs.Global=True

Regs.Pattern="<img[^>]+src=""([^"">]+)""[^>]*>"

Set Matches=Regs.Execute(t0)

IF Regs.test(t0) Then

Frist_Pic=Matches(0).SubMatches(0)

End IF

Set Matches=Nothing

Set Regs=Nothing

End Function