在ASP中利用“正则表达式” 对象实现UBB风格的论坛

ReplaceTest，这个函数实现的功能主要是将“正则表达式”对象进行了封装，提供三个入口参数：

Patrn
这个参数传递的是UBB代码的匹配模版

Str
这个参数传递的是将要以UBB方式处理的字符串，比如文章内容。

ReplStr
这个参数传递的是匹配成的ＨＴＭＬ代码语言。

ReplaceTest函数的出口参数是经过模版匹配替换之后的字符串。

ReplaceTest函数代码如下：

Function ReplaceTest(patrn,str,replStr)

Dim regEx, str1 '' 建立变量。

str1=trim(str)

Set regEx = New RegExp '' 建立正则表达式。

regEx.Pattern = patrn '' 设置模式。

regEx.IgnoreCase = true '' 设置是否区分大小写。

ReplaceTest = regEx.Replace(str1, replStr) '' 作替换。

set regEx=nothing ‘销毁正则表达式对象

End Function

我们要编写的第二个函数是：UBB()函数。这个函数实现的功能就是将一段文本进行UBB功能的转换。这个函数仅仅只有一个入口参数：

Str
这个参数传递要被处理的字符串。

　　UBB函数的出口参数是经过UBB代码处理过后的字符串。　

　　UBB函数的代码如下：（程序中有详细注释信息）

Function UBB(str)

dim i,temp ‘声明变量

i=1

temp=""

do while instr(i,str,"[/"]>=1　‘如果没有达到字符串的末尾

if trim(temp)="" then

temp=ReplaceTest("(\[i])(\S+)(\[/i])",str,"<i>$2</i>")　　‘进行UBB代码的模版匹配与替换

else

temp=ReplaceTest("(\[i])(\S+)(\[/i])",temp,"<i>$2</i>")　　‘进行UBB代码的模版匹配与替换

end if

temp=ReplaceTest("(\[b])(\S+)(\[/b])",temp,"<b>$2</b>")　　‘进行UBB代码的模版匹配与替换

temp=ReplaceTest("(\[big])(\S+)(\[/big])",temp,"<big>$2</big>")　‘进行UBB代码的模版匹配与替换

temp=ReplaceTest("(\[strike])(\S+)(\[/strike])",temp,"<strike>$2</strike>")‘进行UBB代码的模版匹配与替换

temp=ReplaceTest("(\[sub])(\S+)(\[/sub])",temp,"_$2")‘进行UBB代码的模版匹配与替换

temp=ReplaceTest("(\[sup])(\S+)(\[/sup])",temp,"^$2")

temp=ReplaceTest("(\[pre])(\S+)(\[/pre])",temp,"<pre>$2</pre>")

temp=ReplaceTest("(\[u])(\S+)(\[/u])",temp,"<u>$2</u>")

temp=ReplaceTest("(\[small])(\S+)(\[/small])",temp,"<small>$2</small>")

temp=ReplaceTest("(\[h1])(\S+)(\[/h1])",temp,"<h1>$2</h1>")

temp=ReplaceTest("(\[h2])(\S+)(\[/h2])",temp,"<h2>$2</h2>")

temp=ReplaceTest("(\[h3])(\S+)(\[/h3])",temp,"<h3>$2</h3>")

temp=ReplaceTest("(\[h4])(\S+)(\[/h4])",temp,"<h4>$2</h4>")

temp=ReplaceTest("(\[h5])(\S+)(\[/h5])",temp,"<h5>$2</h5>")

temp=ReplaceTest("(\[h6])(\S+)(\[/h6])",temp,"<h6>$2</h6>")

temp=ReplaceTest("(\[red])(\S+)(\[/red])",temp,"<font color=red>$2</font>")

''这里可以增加新的UBB代码的实现模版

temp=ReplaceTest("(\[email])(\S+)(\[/email])",temp,"<a href=""m