在ASP中操作“正则表达式”?工具实现UBB气魄威风凛凛的论坛
|
上一次，我们谈到在ASP中怎样操作“正则表达式”工具来实现各类数据的校验，文中描写了正则表达式工具的强盛成果，接下来，我们来看看有关“正则表达式”工具的其他成果。当我们在网上冲浪的时辰，尤其是赏识种种论坛的时辰，常常接见到“UBB代码”这个词语。什么是UBB代码呢？UBB代码是HTML的一个变种,是Ultimate Bulletin Board (海外一个BBS措施，海内也有不少处所行使这个措施)回收的一种非凡的TAG。为了停止用户有时可能故意的ＨＴＭＬ代码对论坛的进攻，各类论坛根基上都屏障了ＨＴＭＬ代码，可是为了使得论坛越发“多姿多彩”，论坛城市响应的开放一些自界说的Ｔａｇ标签，相同于ＨＴＭＬ中的Ｔａｇ，好比“,,[RED],[/RED]”，这样，可以提供一些等同于ＨＴＭＬ代码的成果，又停止了论坛受到恶意进攻，这些自界说的各类Ｔａｇ就是俗称的UBB代码。眼下时髦的论坛均支持UBB代码，好比：ｈｔｔｐ：／／ｗｗｗ。ｃｈｉｎａａｓｐ。ｃｏｍ（动感技能收集）的论坛就很好的支持UBB代码。此刻，我们一同行使“正则表达式”工具来实现我们本身的富厚多彩的UBB代码吧。 按上例套入，UBB代码会对电子邮件自动发生链接。 插手图象 在你的信息里插手图象，只要按下例套入就可以了(UBB代码是粗体). [img ]/uploadfiles/2005/03121513734.gif[/img] 在上例中，UBB代码会自动让图象在你的信息里表现。 其他Ｔａｇ 尚有这些tag,u small h1 h2 h3 h4 h5 h6 strike blink sub sup del pre big,这些tag的成果与html的成果等同 [h1]这是一个问题[/h1] [/tag]是必需的 让一段笔墨行使颜色表现 这是一个非凡的tag [#ff0000]一段赤色的字[/#] #后头跟的颜色的16进制RGB代码，如赤色是ff0000,绿色是00ff00,而蓝色是0000ff 至于其他各式百般的UBB代码的实现方法同上面的相同，我们就以上面UBB代码实现作为例子来讲授“正则表达式”工具的强盛成果。 我们首要行使Replace()要领共同响应的模版，就可以利便的实现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,"[/"]>=1 ‘假如没有到达字符串的末端 if trim(temp)="" then temp=ReplaceTest("()(S+)()","<i>$2</i>") ‘举办UBB代码的模版匹配与替代 else temp=ReplaceTest("()(S+)()",temp,"<i>$2</i>") ‘举办UBB代码的模版匹配与替代 end if temp=ReplaceTest("()(S+)()","<b>$2</b>") ‘举办UBB代码的模版匹配与替代 temp=ReplaceTest("([big])(S+)([/big])","<big>$2</big>") ‘举办UBB代码的模版匹配与替代 temp=ReplaceTest("([strike])(S+)([/strike])","<strike>$2</strike>")‘举办UBB代码的模版匹配与替代 temp=ReplaceTest("([sub])(S+)([/sub])","<sub>$2</sub>")‘举办UBB代码的模版匹配与替代 temp=ReplaceTest("([sup])(S+)([/sup])","<sup>$2</sup>") temp=ReplaceTest("([pre])(S+)([/pre])","<pre>$2</pre>") temp=ReplaceTest("()(S+)()","<u>$2</u>") temp=ReplaceTest("([small])(S+)([/small])","<small>$2</small>") temp=ReplaceTest("([h1])(S+)([/h1])","<h1>$2</h1>") temp=ReplaceTest("([h2])(S+)([/h2])","<h2>$2</h2>") temp=ReplaceTest("([h3])(S+)([/h3])","<h3>$2</h3>") temp=ReplaceTest("([h4])(S+)([/h4])","<h4>$2</h4>") temp=ReplaceTest("([h5])(S+)([/h5])","<h5>$2</h5>") temp=ReplaceTest("([h6])(S+)([/h6])","<h6>$2</h6>") temp=ReplaceTest("([red])(S+)([/red])","<font color=red>$2</font>") '这里可以增进新的UBB代码的实现模版 temp=ReplaceTest("( temp=ReplaceTest("([img])(S+)([/img])","<img src=""$2"">") temp=ReplaceTest("()(S+)()","<a href=""$2"" target=_top>$2</a>") temp=ReplaceTest("([#(S+)])(S+)([/#])","<font color=$1>$3</font>")‘举办UBB代码的模版匹配与替代 i=i+1 loop if trim(temp)<>"" then UBB=temp ‘将颠末UBB代码过滤后的字符串传出 else UBB=str ‘将颠末UBB代码过滤后的字符串传出 end if end function 在函数UBB的代码中我们可以看到“$1”，“$2”，“$3”等等，这些字符串就是匹配后的字符串的代词，就犹如一些“宏”一样，我们可以行使他们利便取代匹配到的字符串，而不必再行使措施去记着匹配字符串的位置。通过这两个简朴的函数挪用，我们实现了UBB代码的成果，怎么样，很简朴吧。 这样，我们只要在表现文章的时辰挪用UBB函数，对文章内容举办处理赏罚之后，再表现到赏识器上面，就实现了论坛的UBB代码成果。而且，你可以利便的在函数UBB添加必要的UBB代码匹配替代模版，从而可以不绝的扩充你的UBB代码的成果。 （以上措施均在WinNT4.0英文版SP5，IIS4.0,IE5.x中运行通过） （编辑：湖南网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
