這篇文章給大家介紹正則表達式鏈接替換函數的技巧，涉及到正則表達式替換相關知識，對正則表達式鏈接替換函數的技巧感興趣的朋友一起學習吧

 

正則表達式鏈接替換函數的技巧如下所示：

1)

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

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

2)

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

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

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

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

替換成        前面的字符任意長度字符后面的字符

函數的樣式如下，幫忙寫正則表達式，謝謝。
 

1. Function ScriptHtml(Byval ConStr,FType) 
2.   Dim Re 
3.   Set Re=new RegExp 
4.   Re.IgnoreCase =true 
5.   Re.Global=True 
6.   Select Case FType 
7.   Case 1 
8.     Re.Pattern="正則表達式" 
9.     ConStr=Re.Replace(ConStr,"") 
10.   Case 2 
11.     Re.Pattern="正則表達式" 
12.     ConStr=Re.Replace(ConStr,"") 
13.   Case other 
14.   End Select 
15.   ScriptHtml=ConStr 
16.   Set Re=Nothing 
17. End Function 

以上內容是關于正則表達式鏈接替換函數的技巧，希望大家喜歡。