 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
大家应当注重到了，我们所要用的函数Instr的小秘密就是它的最后一个可选择参数Compare，因为我们的UBB代码需要大小写不敏感的，默认的情况下，函数Instr是要进行二进制匹配的，也就是说是对大小写敏感的，所以记住了，这个 Compare参数的值应当设置成为1才可以满意我们的要求。 Replace 函数 返回字符串，其中指定数目的某子字符串被替换为另一个子字符串。 Replace(expression, find, replacewith[, compare[, count[, start]]]) 参数 expression 必选项。字符串表达式 包含要替代的子字符串。 Find 必选项。被搜索的子字符串。 Replacewith 必选项。用于替换的子字符串。 Start 可选项。expression 中开始搜索子字符串的位置。假如省略，默认值为 1。在和count 关联时必须用 count 可选项。执行子字符串替换的数目。假如省略，默认值为 －1，表示进行所有可能的替换。在和 start 关联时必须 用。 Compare 可选项。指示在计算子字符串时使用的比较类型的数值。有关数值，请参阅"设置"部分。假如省略,缺省值为 0 ,这意味着必须进行二进制比较。 设置 compare 参数可以有以下值： 常数 值 描述 vbBinaryCompare 0 执行二进制比较。 vbTextCompare 1 执行文本比较。 返回值 Replace 返回以下值： 假如 Replace 返回 expression 为零长度 零长度字符串 ("")。 expression 为 Null 错误。 find 为零长度 expression 的副本。 replacewith 为零长度 expression 的副本，其中删除了所有由 find 参数指定的内容。 start > Len(expression) 零长度字符串。 count 为 0 expression 的副本。 这里我们应当注重的自然也是这个Replace的Compare可选择参数了，这样我们在进行UBB代码全程替换的时候才可以保证对大小写的不敏感。 其实，实现UBB代码的程序核心思想都是一样的，实现了其中的一个，其他的也都是迎刃而解的了。下面我们以比较困难并且有代表性的[url]……[/url]语法的实现为例来具体讲解如何实现他： 首先，我们可以分析出来，在一段文章当中，要实现这个功能，其实也就是将形式为http://xxx.xxx.xxx的字符串找出来，并且加以适当的替换，并且要全程替换，也就是说，你要设法记住你的每一步所在的位置，以便依次进行替换，下面就是实现这个UBB语法的函数代码：(里面有具体注释) Function LinkURLs(strInput) Dim iCurrentLocation Dim iLinkStart Dim iLinkEnd Dim strLinkText Dim strOutPut \\\'初始化变量 strLinkText="" strOutput="" iCurrentLocation=1 Do while Instr(iCurrentLocation,strInput,"[url]",1)<>0 \\\'查找UBB语法字符串 iLinkStart=Instr(iCurrentLocation,strInput,"[url]",1) \\\'记录下开始位置 iLinkEnd=Instr(iCurrentLocation＋1,strInput,"[/url]",1) \\\'记录下结束位置 If iLinkEnd=0 then iLinkEnd=len(strINput)＋1 select case Mid(strInput,iLinkEnd－1,1) case ".","!","?" iLinkEnd=iLinkEnd－1 \\\'剔除多余标点符号 end select stroutput=strOutput ＆ Mid(strInput,iCurrentLocation,iLinkStart－iCurrentLocation) strLinkText=replace(Mid(strInput,iLinkStart＋5,iLinkEnd－iLinkStart－5),"[/url]","") strOutput=strOutput ＆ "" ＆ strLinkText ＆ "" iCurrentLocation=iLinkEnd \\\'记录下当前游标位置 Loop strOutput=strOutput ＆ Mid(strInput,iCurrentLocation) LinkURLs=replace(strOutput,"[/url]","",1,－1,1) End Function 好了，通过上面的这个实现[url]……[/url]功能的函数，我们可以以此类推得到实现其他UBB语法的函数，限于篇幅，我就不一一加以祥述了，你可以将这些函数放到一个文件中，形成一个UBB代码函数库，这样就可以方便的在你的程序当中加以引用了。 返回类别: 教程 上一教程: 无组件图文混合上传，MSSQL & ACCESS 下一教程: ASP调用WEBSERVICE文档 您可以阅读与"用ASP实现论坛的UBB功能(二)"相关的教程: · 用ASP实现论坛的UBB功能(一) · 在ASP中利用“正则表达式” 对象实现UBB风格的论坛 · 用asp.net实现的把本文推荐给挚友功能 · ASP查询XML的代码，实现了无刷新、模糊查询功能 · ASP正则表达式在UBB论坛中的应用 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
