 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
关于“正则表达式”对象的常见方式、属性的使用方式，我在本刊的“在ASP中利用“正则表达式”对象实现数据的校验”一文中已 经有具体介绍了，可以参见那一篇文章，在这里，我主要介绍一下实现“UBB代码”的主要正则表达式对象方式：Replace()方 法。 Replace方式语法如下： 描述 替换在正则表达式查找中找到的文本。 语法 object.Replace(string1, string2) Replace 方式的语法包含以下几个部分： 部分 描述 object 必需的。总是一个 RegExp 对象的名称。 string1 必需的。string1 是将要进行文本替换的字符串。 string2 必需的。 string2 是替换文本字符串。 说明 被替换的文本的实际模式是通过 RegExp 对象的 Pattern 属性设置的。 Replace 方式返回 string1 的副本，其中的 RegExp.Pattern 文本已经被替换为 string2。假如没有找到匹配的文本，将返回 原来的 string1 的副本。 接下来，我们要确定我们最终想要实现一套什么样的UBB代码？这次我们要实现的UBB代码功能如下： URL超级链接 在你的信息里加入超级链接，只要按下列方法套入就可以了(UBB代码是粗体). [url]www.4ico.com[/url] 按上例套入，UBB代码会自动对URL产生链接，并保证当用户点击新的窗口时这个链接是打开着的。 电子邮件链接 在你的信息里加入电子邮件的超级链接，只要按照下例套入就可以了（UBB代码是粗体） [email] 123@abc.com[/email] 按上例套入，UBB代码会对电子邮件自动产生链接。 加入图象 在你的信息里加入图象，只要按下例套入就可以了(UBB代码是粗体). [img] http://www.4ico.com/test.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,str,"[/"]>=1 ‘假如没有达到字符串的末尾 if trim(temp)="" then temp=ReplaceTest("()(S+)( )",str,"<i>$2</i>") ‘进行UBB代码的模版匹配与替换 else temp=ReplaceTest("()(S+)( )",temp,"<i>$2</i>") ‘进行UBB代码的模版匹配与替换 end if temp=ReplaceTest("()(S+)( )",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,"<sub>$2</sub>")‘进行UBB代码的模版匹配与替换 temp=ReplaceTest("([sup])(S+)([/sup])",temp,"<sup>$2</sup>") 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=""mailto:$2"" target=_top>$2</a>") temp=ReplaceTest("([img])(S+)([/img])",temp,"<img src=""$2"">") temp=ReplaceTest("([url])(S+)([/url])",temp,"<a href=""$2"" target=_top>$2</a>") temp=ReplaceTest("([#(S+)])(S+)([/#])",temp,"<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代码的功能，怎么样，很简朴吧。 返回类别: 教程 上一教程: 下拉菜单输入,根据输入内容自动定位 下一教程: ASP导出EXCEL数据的四种方式 您可以阅读与"实现UBB代码"相关的教程: · UBB代码的实现(REPLACE方式) · 用ASP实现邮箱登陆的代码 · 用纯ASP代码实现图片上传 · 用纯ASP代码实现图片上传并存入数据库中 · 实现E-MAIL地址验证的VBS函数代码 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
