在网页中提取图片地址

'根据正则表达式获得字符串集合
function regExp_Execute(patrn,strng) 
    Dim regEx,Match,Matches,values   '建立变量。 
    Set regEx = New regExp   '建立正则表达式。 
    regEx.Pattern = patrn   '设置模式。 
    regEx.IgnoreCase = true   '设置是否区分字符大小写。 
    regEx.Global = True   '设置全局可用性。 
    Set Matches = regEx.Execute(strng)   '执行搜索。 
    For Each Match in Matches   '遍历匹配集合。 
      values=values&Match.Value&"," 
    Next 
    regExp_Execute = values 
End function
'在网页中提取图片地址
function getImgURL(htmlContent)       
  regstr="src\=.+?\.(gif|jpg)" 
  getImgURL=Replace(Replace(Replace(regExp_Execute(regstr,htmlContent),"'",""),"""",""),"src=","") 
end function

«1»
Powered By Z-Blog  Sunnymoor T3.1 
Copyright;2009-2009 blog.hit.edu.cn All Rights Reserved 哈工大网络与信息中心