您现在的位置是：网站首页> 编程资料编程资料

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

2023-05-25 413人已围观

简介得到连接和图片的地址正则_正则表达式_

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="    str = .replace(str,"
    .Pattern="    str = .replace(str,"  End With 
  Set re=Nothing 

  AddSiteURL=Str 
End Function