 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<% dim patern dim found dim str dim result patern="(a)|(b)" str=" A dog fall in love with a cat. Can you believe?" result="" call getMatchText(str,result,false) Response.Write result sub getMatchText(byref str,byref result,isNeedTrunc) \\\'on error resume next Dim regEx, Match, Matches dim tStr Set regEx = New RegExp \\\' 建立正则表达式。 regEx.Pattern = (patern) \\\' 设置模式。 regEx.IgnoreCase = True \\\' 设置是否区分字符大小写。 regEx.Global = True \\\' 设置全局可用性。 Set Matches = regEx.Execute(str) \\\' 执行搜索。 if err.number<>0 then response.write "错误1：" & err.description err.clear exit sub end if if matches.count <>0 then dim startIndex dim myMatchValue startIndex=1 for each match in matches if (instr(str,match.value)>0) then if instr(str,match.value)-50 >0 then startIndex=instr(str,match.value)-50 else startIndex=1 end if myMatchValue=match.value exit for end if next if isNeedTrunc then result= (mid(str,startIndex,strLength(myMatchValue)+100)) else result= (str) end if for each match in matches if not(instr(result,"<font color=red>" & match.value & "</font>")>0) then result=replace(result,match.value,"<font color=red>" & match.value & "</font>" ) end if next found=true else found=false end if set regEx=nothing end sub %> 返回类别: 教程 上一教程: 一个通过DATASET操作XML的类 下一教程: 关于在ASP中使用INCLUDE的一些问题 您可以阅读与"实现搜索结果的要害词变色标注的程序(使用正则表达式)"相关的教程: · 使用正则表达式实现模式图片新闻.ASP · 用正则表达式搜索电子邮件 · 通过几个异常实用的例子了解ASP中使用正则表达式 · 在ASP中利用“正则表达式” 对象实现UBB风格的论坛 · 用正则表达式突出显示字符串中查询到的单词的函数 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
