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

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

1)

字符串       前面的字符a >任意長(zhǎng)度字符/a>后面的字符

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

2)

字符串       前面的字符a >任意長(zhǎng)度字符/a>后面的字符

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

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

字符串       前面的字符a >任意長(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

以上內(nèi)容是關(guān)于正則表達(dá)式鏈接替換函數(shù)的技巧，希望大家喜歡。