2）替代典型的UBB标签:[/b]
我们的目的就是要把[b]成对的替换成<b></b>下面来看我们实现它的模板
(\[b\])(.+)(\[\/b\])
这里用了"(.+)"来配匹到之间的整个字符串，在替代的时候我们要写成这样
str=checkexp(re,str,"<b>$2</b>")
（注意：checkexp是我自定义的函数，将在后面给出。这个函数将把[/b]按照我们提供的模板进行替代。）
也许你会问这里出现一个"$2"是什么东东,呵注意了这个$2可是很重要的，它代表了"(.+)"所配匹的整个字符串。
为什么是$2而不是$1、$3呢？因为$1代表(\[b\])所匹配的"[b]"字符串，$3代表(\[\/b\])所匹配的""字符串，显然这里我们需要的是$2而不是$1$3。
六）ＵＢＢ正则表达模板实例
下面是我写的一个ＵＢＢ函数，这个函数基本上能使你的论坛成为一个优秀的ＵＢＢ代码论坛了。当然，通过改进后，你可以得到一个更强大的ＵＢＢ论坛。
Function ReThestr(face,str)
dim re,str
re="\>"
str=checkexp(re,str,">")
re="\<"
str=checkexp(re,str,"<")
re="\n\r\n/"
str=checkexp(re,str,"<P>")
re=chr(32)
str=checkexp(re,str," ")
re="\r"
str=checkexp(re,str," ")
re="\[img\]((http:(\/\/|\\\\)){1}((\w)+[.]){1,3}(net|com|cn|org|cc|tv)(((\/[\~]*|\\[\~]*)
(\w)+)|[.](\w)+)*(\w)+[.]{1}(gif|jpg|png))\[\/img\]" '查找图片地址
str=checkexp(re,str," <img src='https://www.jb51.net/article/$1'> ")
re="\[w\](http:(\/\/|\\\\)((\w)+[.]){1,}(net|com|cn|org|cc|tv)(((\/[\~]*|\\[\~]*)(\w)+)|[.](\w)+)*
(((([?](\w)+){1}[=]*))*((\w)+){1}([\&](\w)+[\=](\w)+)*)*)\[\/w\]" '查找帧地址
str=checkexp(re,str,"<iframe src='https://www.jb51.net/article/$1'></iframe>")
re="([^('>)])(<br>)*((http|https|ftp):(\/\/|\\\\)((\w)+[.]){1,}(net|com|cn|org|cc|tv|([0-9]{1,3}))(((\/[\~]*|\\[\~]*)(\w)+)|[.](\w)+)*(((([?](\w)+){1}[=]*))*((\w)+){1}([\&](\w)+[\=](\w)+)*)*)" '查找链接地址
str=checkexp(re,str,"$1$2 <a href='https://www.jb51.net/article/$3' target=_blank>$3</a> ")
re="([^(|http:\\)])((www|cn)[.](\w)+[.]{1,}(net|com|cn|org|cc)(((\/[\~]*|\\[\~]*)(\w)+)|[.](\w)+)*
(((([?](\w)+){1}[=]*))*((\w)+){1}([\&](\w)+[\=](\w)+)*)*)" '查找不以开头的地址
str=checkexp(re,str,"$1 <a href='https://$2' target=_blank>$2</a> ")
re="([^(=)])((\w)+[@]{1}((\w)+[.]){1,3}(\w)+)" '查找邮件地址
str=checkexp(re,str," <a href='https://www.jb51.net/mailto:$2'>$2</a> ")
re="\[0-F]{6})\]((.)+)\[\/color\]" '替换字体色彩
str=checkexp(re,str,"<font color='https://www.jb51.net/article/$1'>$4</font>")
re="\[size=([0-9]{1})\]((.)+)\[\/size\]" '替换字体大小
str=checkexp(re,str,"<font size='https://www.jb51.net/article/$1'>$2</font>")
re="\((.)+)\[\/font\]" '替换字体
str=checkexp(re,str,"<font face='https://www.jb51.net/article/$1'>$3</font>")
re="(\[b\])(.+)(\[\/b\])" '加粗字体
str=checkexp(re,str,"<b>$2</b>")
re="(\[u\])(.+)(\[\/u\])" '下画线
str=checkexp(re,str,"<u>$2</u>")
re="(\[li\])(.+)(\[\/li\])" '列表
str=checkexp(re,str,"<li>$2</li>")
re="(\[QUOTE\])(.+)(\[\/QUOTE\])" '引用
str=checkexp(re,str,"<BLOCKQUOTE>引用:<HR SIZE=1>$2<HR SIZE=1></BLOCKQUOTE>")
re="\[email=((\w)+[@]{1}((\w)+[.]){1,3}(\w)+)\](.+)(\[\/email\])" '邮件
str=checkexp(re,str,"<a href=https://www.jb51.net/mailto:$1>$6</a>")
re="(\[center\])(.+)(\[\/center\])" '居中
str=checkexp(re,str,"<center>$2</center>")
re="fuck"
str=checkexp(re,str,"***")
re="操"
str=checkexp(re,str,"***")
re="sex"
str=checkexp(re,str,"***")
re="TMD"
str=checkexp(re,str,"***")
re="shit"
str=checkexp(re,str,"***")
ReThestr=str
end function
ＵＢＢ代码如下：
[i] [/i] [u] [/u]
[url] [/url] [email=] [/email] [img] [/img]
引用:
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
[li] [/li] [font=impact] [color=Yellow]
测试代码如下：
[img] [/img]
aol.com 192.168.0.1
how are you[/b]
page2000.xiloo.com/~page2000?PageNo=2&action=del
lucaihui@cmmail.com 大家好http:\\page2000.shit
<font color=red></font>
全部符合预想结果
七）ＡＳＰ正则表达式对像函数如下：
Function CheckExp(patrn,strng,tagstr)
Dim regEx,Matches