正則表達(dá)式鏈接替換函數(shù)的技巧有哪些

這篇文章主要介紹了正則表達(dá)式鏈接替換函數(shù)的技巧有哪些，具有一定借鑒價(jià)值，感興趣的朋友可以參考下，希望大家閱讀完這篇文章之后大有收獲，下面讓小編帶著大家一起了解一下。

正則表達(dá)式鏈接替換函數(shù)的技巧如下所示：

1)

字符串       前面的字符<a href="http://www.aaa.cn/000011.html">任意長(zhǎng)度字符</a>后面的字符

替換成        前面的字符<a href="http://www.bbb.cn/folder/show.asp?id=000011">任意長(zhǎng)度字符</a>后面的字符

2)

字符串       前面的字符<a href="http://www.aaa.cn/070006,ccc.html">任意長(zhǎng)度字符</a>后面的字符

替換成        前面的字符<a href="http://www.bbb.cn/folder/aa.asp?id=000011">任意長(zhǎng)度字符</a>后面的字符

3)    不屬于以上情況的，直接刪除鏈接

字符串       前面的字符<a href="http://www.aaa.cn/dddd.html">任意長(zhǎng)度字符</a>后面的字符 

替換成        前面的字符任意長(zhǎng)度字符后面的字符

函數(shù)的樣式如下，幫忙寫(xiě)正則表達(dá)式，謝謝。

Function ScriptHtml(Byval ConStr,FType)
  Dim Re
  Set Re=new RegExp
  Re.IgnoreCase =true
  Re.Global=True
  Select Case FType
  Case 1
    Re.Pattern="正則表達(dá)式"
    ConStr=Re.Replace(ConStr,"")
  Case 2
    Re.Pattern="正則表達(dá)式"
    ConStr=Re.Replace(ConStr,"")
  Case other
  End Select
  ScriptHtml=ConStr
  Set Re=Nothing
End Function

感謝你能夠認(rèn)真閱讀完這篇文章，希望小編分享的“正則表達(dá)式鏈接替換函數(shù)的技巧有哪些”這篇文章對(duì)大家有幫助，同時(shí)也希望大家多多支持億速云，關(guān)注億速云行業(yè)資訊頻道，更多相關(guān)知識(shí)等著你來(lái)學(xué)習(xí)!