国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > Regex > 正文

獲取連接和圖片地址的正則表達式

2020-03-16 21:23:21
字體:
來源:轉載
供稿:網友
一段獲取連接和圖片地址的正則表達式,代碼如下:


  1. function AddSiteURL(ByVal Str)  
  2.   If IsNull(Str) Then  
  3.       AddSiteURL = ""  
  4.       Exit Function   
  5.   End If  
  6.  
  7.   Dim re  
  8.   Set re=new RegExp  
  9.   With re  
  10.     .IgnoreCase =True  
  11.     .Global=True  
  12.  
  13.     .Pattern="<img (.*?)src=""(?!(http|https)://)(.*?)"""  
  14.     str = .replace(str,"<img $1src=""" & SiteURL & "$3""")  
  15.  
  16.     .Pattern="<a (.*?)href=""(?!(http|https|ftp|mms|rstp)://)(.*?)"""  
  17.     str = .replace(str,"<a $1href=""" & SiteURL & "$3""")  
  18.   End With  
  19.   Set re=Nothing  
  20.  
  21.   AddSiteURL=Str  
  22. End Function 

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 松原市| 阳江市| 姚安县| 龙山县| 襄城县| 台前县| 云阳县| 泰来县| 固原市| 靖江市| 诏安县| 耿马| 额济纳旗| 岐山县| 同心县| 万源市| 耒阳市| 元谋县| 江源县| 哈密市| 弋阳县| 瑞安市| 满城县| 自治县| 铜川市| 乐安县| 静海县| 湖州市| 邹城市| 青阳县| 彭山县| 寿阳县| 漳浦县| 巩留县| 桂阳县| 尼勒克县| 莱芜市| 万州区| 通海县| 白河县| 河曲县|