服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|Java教程|ASP教程|编程技术|正则表达式|C/C++|IOS|C#|Swift|Android|VB|R语言|JavaScript|易语言|vb.net|

服务器之家 - 编程语言 - 正则表达式 - 得到链接和图片地址的正则表达式

得到链接和图片地址的正则表达式

2020-07-08 15:30正则表达式教程网 正则表达式

一款不错的得到链接和图片地址的正则表达式代码,有需要的朋友可以参考下

复制代码 代码如下:


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

延伸 · 阅读

精彩推荐