" ''查找不以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]" ''替换字体大小
str=checkexp(re,str,"＜font size=''$1''＞$2＜/font＞")
re="[font=((.)+){1,3}]((.)+)[/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＞$2＜HR SIZE=1＞＜/BLOCKQUOTE＞")
re="[@]{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=str
end function
