<%
' 以前写全文检索程序的时候写的.
' 原创 by 飞鸟@dev-club.com
' Email: flybird@dev-club.com
' ie5.5 脚本引擎 required
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
%>
分享到:
相关推荐
wps VBA excel高亮显示关键字 excel在搜索关键字时会把关键字高亮突出显示出来 遇到关键字就自动变色高亮的 , 是可以自己定义要变色的关键字
高亮显示 关键字 function HeightLight(Keyword) { //文本选择器 var TextRange; //是否找到 var Found=false; //找到的次数 var Count = 0; TextRange = document.body.createTextRange(); Found = ...
高亮显示关键字。 因为在网上搜到的类似插件,觉得不是太完美,或者说是不太符合自己想要的要求,于是自己写的一个高亮显示关键字插件,感觉还可以
C# winform 文本编辑器中高亮显示关键字 ,FastColoredTextBox
Editplus编辑Sql高亮显示关键字,操作步骤见word文档
vs2017 for shader高亮显示关键字,我用的unity版本是2018.
react-reactmarker高亮显示关键字并为您的文字添加颜色
本文实例讲述了jQuery过滤HTML标签并高亮显示关键字的方法。分享给大家供大家参考。具体如下: jQuery实现网页关键字过滤效果,将需要过滤的文字定义在JavaScript中,可定义多个,不过要修改JS代码为数组,这样可...
通过关键字搜索相关新闻,搜索出来的列表,默认是没有关键字高亮显示的,为了更好的客户体验度,现增加关键字高亮显示功能,调整后,仅需在创建适配器时多增加一个输入框对象即可
文件描述:Xshell软件(配色方案&高亮关键字/突出显示集)的相关文件 适用人群:所有IT计算机行业人群,重点突出用户为“网络工程师、运维工程师、弱点工程师、云计算工程师、网络安全工程师等技术人员” 软件适用...
实时、快速实现自定义关键字的高亮显示,可同时实现多个组关键字高亮显示。
主要为大家详细介绍了Vue实现搜索结果高亮显示关键字,具有一定的参考价值,感兴趣的小伙伴们可以参考一下
最近开发的时候做了textarea 高亮关键字,尝试过很多方法,比如用iframe,和编辑器替换,当然这也是一个方法,但是原来是用textbox的内容要达到兼容这两种方法是做不到的,所以这里是使用jquery插件和jquery核心文件搞的...
felx高亮显示SQL语句关键字
C#关键字高亮显示+关键字智能提示,内置SQL语法的关键字提醒和高亮显示
高亮显示关键字及关闭高亮显示关键字;可以设置页面是否为编辑模式或浏览模式;可以取得选择部分的HTML;支持从注册表中读取输入过的地址;自带一套添加及整理收藏夹窗体;支持页面保存为图片;还带广告过滤函数。...
很好用的JS关键字高亮显示代码 代码简洁 实用
在Ultraedit中高亮显示VHDL语言的关键字。下载后拷贝到wordfile文件后即可。