怎么让搜索出来的关键字变红色？

最新推荐文章于 2024-12-09 09:49:12 发布

转载最新推荐文章于 2024-12-09 09:49:12 发布 · 3.3k 阅读

收录于

ASP

当前文章被收录于：

ASP

176 篇文章 1 人学习

订阅专栏查看详情

当前文章被以下社区和专栏收录：

本文介绍了一个使用正则表达式来高亮显示字符串中特定单词的方法。通过定义一个函数，可以将匹配到的单词用特定的HTML标签包裹起来，实现视觉上的突出显示效果。

result= replace(result,search,"<font color=red>"&search&"</font>") 
'用正则表达式突出显示字符串中查询到的单词的函数 
Function BoldWord(strContent,word) 
if IsNull(strContent) then exit function 
dim objRegExp 
Set objRegExp=new RegExp 
objRegExp.IgnoreCase =true 
objRegExp.Global=True 
objRegExp.Pattern="(" & word & ")" 
strContent=objRegExp.Replace(strContent,"<span style=""color:#ff0000"">$1</span>" ) 
Set objRegExp=Nothing 
BoldWord=strContent 
End Function 