用正则表达式突出显示字符串中查询到的单词的函数（转）
Function BoldWord(strContent,word)
dim objRegExp
Set objRegExp=new RegExp
objRegExp.IgnoreCase =true
objRegExp.Global=True
dim objRegExp
Set objRegExp=new RegExp
objRegExp.IgnoreCase =true
objRegExp.Global=True
objRegExp.Pattern="(" & word & ")"
strContent=objRegExp.Replace(strContent,"$1" )
Set objRegExp=Nothing
BoldWord=strContent
End Function
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/10294527/viewspace-124693/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
检测整数和长整数的函数（转）
下一篇：
如何用ASP编写网站统计系统（二）（转）
请登录后发表评论
登录
全部评论
