|
三、UBB正则表达模板实例 下面是我写的一个UBB函数，这个函数基本上能使你的论坛成为一个优秀的UBB代码论坛了。当然，通过改进后，你可以得到一个更强大的UBB论坛。 Function ReThestr(face,str) dim re,str re="＞" str=checkexp(re,str,">") re="＜" str=checkexp(re,str,"<") re=" /" str=checkexp(re,str,"＜P＞") re=chr(32) str=checkexp(re,str," ") re="" 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="[color=(((w)+)|][#][0-F]{6})]((.)+)[/color]" '替换字体色彩 str=checkexp(re,str,"＜font color='$1'＞$4＜/font＞") re="[size=(][0-9]{1})]((.)+)[/size]" '替换字体大小 |