正则表达式链接替换函数的技巧

这篇文章给大家介绍正则表达式链接替换函数的技巧，涉及到正则表达式替换相关知识，对正则表达式链接替换函数的技巧感兴趣的朋友一起学习吧

 

正则表达式链接替换函数的技巧如下所示：

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 

以上内容是关于正则表达式链接替换函数的技巧，希望大家喜欢。