正则表达式在UBB论坛中的应用(2)

　　六）ＵＢＢ正则表达模板实例

　　下面是我写的一个ＵＢＢ函数，这个函数基本上能使你的论坛成为一个优秀的ＵＢＢ代码论坛了。当然，通过改进后，你可以得到一个更强大的ＵＢＢ论坛。

Function ReThestr(face,str)　dim re,str　re=""　str=checkexp(re,str,">")　re=""　str=checkexp(re,str,"<")　re="nrn/"　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='$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 width='300' height='300' src='$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='$3' target=_blank$3/a ")　re="([^(http://|http:\)])((www|cn)[.](w)+[.]{1,}(net|com|cn|org|cc)(((/[~]*|\[~]*)(w)+)|[.](w)+)*(((([？](w)+){1}[=]*))*((w)+){1}([&](w)+[=](w)+)*)*)" '查找不以http://开头的地址　str=checkexp(re,str,"$1 a href='http://$2' target=_blank$2/a ")　re="([^(=)])((w)+[@]{1}((w)+[.]){1,3}(w)+)" '查找邮件地址　str=checkexp(re,str," a href='mailto:$2'$2/a ")　re="[0-F]{6})]((.)+)[/color]" '替换字体色彩　str=checkexp(re,str,"font color='$1'$4/font")　re="[size=([0-9]{1})]((.)+)[/size]" '替换字体大小　str=checkexp(re,str,"font size='$1'$2/font")　re="((.)+)[/font]" '替换字体　str=checkexp(re,str,"font face='$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$2HR SIZE=1/BLOCKQUOTE")　re="[email=((w)+[@]{1}((w)+[.]){1,3}(w)+)](.+)([/email])" '邮件　str=checkexp(re,str,"a href=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=strend functionＵＢＢ代码如下：[i] [/i] [u] [/u] [url] [/url] [email=] [/email] [img] [/img] 

引用:

---

---

　　测试代码如下：

http://cn.yahoo.comaol.com192.168.0.1www.yahoo.com how are you[/b]page2000.xiloo.com/~page2000？PageNo=2&action=dellucaihui@cmmail.com 大家好http:\page2000.shitfont color=redhttp://test.com/fonthttp://test

　　全部符合预想结果

　　七）ＡＳＰ正则表达式对像函数如下：

Function CheckExp(patrn,strng,tagstr)　  Dim regEx,Matches　  Set regEx=New RegExp'建立一个新对像　  regEx.Pattern=patrn'设置模板　  regEx.IgnoreCase=true'搜索是否区分大小写的 true表是不区分 flase表示区分　  regEx.Global=True'搜索是否应用于整个字符串　  Matches=regEx.replace(strng,tagstr)'匹配并替代字符串　  CheckExp=Matches返回函数结果end function

　　把上面的两个函数存为一个页面（如ubbcode.asp），这样就组成一个完整的ＵＢＢ函数了。

　　在你的论坛上加上这个函数，就成了支持ＵＢＢ代码的论坛了。只要在用时调用这个函数就行了。调用形式如

　　text=ReThestr(text)