日期:2011-01-30  浏览次数:20699 次

大家应当注意到了,我们所要用的函数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代码的程序核心思想都是相同的,实现了其中的一个,其他的也都是迎刃而解的了。下面我们以比较困难并且有代表性的……语法的实现为例来详细讲解如何实现他:
  首先,我们可以分析出来,在一段文章当中,要实现这个功能,其实也就是将形式为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,"  iLinkStart=Instr(iCurrentLocation,strInput,"[url]",1) '记录下开始位置
  iLinkEnd=Instr(iCurrentLocation+1,strInput,"" target="_blank">",1)<>0 '查找UBB语法字符串
  iLinkStart=Instr(iCurrentLocation,strInput,"[url]",1) '记录下开始位置
  iLinkEnd=Instr(iCurrentLocation+1,strInput,"
",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
  好了,通过上面的这个实现……功能的函数,我们可以以此类推得到实现其他UBB语法的函数,限于篇幅,我就不一一加以祥述了,你可以将这些函数放到一个文件中,形成一个UBB代码函数库,这样就可以方便的在你的程序当中加以引用了。
  怎么样,通过我们自己的努力,现在我们的论坛也可以完全支持UBB代码功能了,我们的论坛现在也会变得色彩斑斓,图文并茂了,也必将会吸引到更多的网友,:)
  关于上面文章的实际应用例子,您可以在这里访问到: Http://TechTop.Yeah.Net
  (以上所有程序均在Windows9x/NT,IIS/PWS,Access/SQL7上面运行通过)(北京 苏红超)