得到连接和图片的地址正则

263 阅读 0 评论 174 点赞

我是靠谱客的博主还单身蚂蚁，这篇文章主要介绍得到连接和图片的地址正则，现在分享给大家，希望可以做个参考。

复制代码代码如下:

function AddSiteURL(ByVal Str) 
  If IsNull(Str) Then 
      AddSiteURL = "" 
      Exit Function  
  End If 

  Dim re 
  Set re=new RegExp 
  With re 
    .IgnoreCase =True 
    .Global=True 

    .Pattern="<img (.*?)src=""(?!(http|https)://)(.*?)""" 
    str = .replace(str,"<img $1src=""" & SiteURL & "$3""") 

    .Pattern="<a (.*?)href=""(?!(http|https|ftp|mms|rstp)://)(.*?)""" 
    str = .replace(str,"<a $1href=""" & SiteURL & "$3""") 
  End With 
  Set re=Nothing 

  AddSiteURL=Str 
End Function