用正则表达式突出显示字符串中查询到的单词的函数

web学习吧　2006-12-16　来源:　收藏本文

'在Windows Script 5.5下调试通过
Function BoldWord(strContent,word)
    dim objRegExp
    Set objRegExp=new RegExp
    objRegExp.IgnoreCase =true
    objRegExp.Global=True

    objRegExp.Pattern="(" & word & ")"
    strContent=objRegExp.Replace(strContent,"<font color=""#FF0000"">$1</font>" )

    Set objRegExp=Nothing
    BoldWord=strContent
End Function

上一篇：另外一个功能更强大的函数，也是用正则表达式写的，不过加了一些东西下一篇：正则表达式基础知识 (转)

【发表评论】【收藏本文】【推荐好友】【打印本页】【关闭窗口】

最新相关文章

热点教程

·检查sql字符串中是否有单引号，有则进行转化
·正则表达式验证
·正则表达式结合数组提取文章中的文件名
·身份验证常用正则表达式
·Javascript正则表达式测试网页
·一个特牛的日期时间判断正则表达式
·检查Email地址的比较完善的正则表达式函数
·使用正则表达式实现模式图片新闻(加强).ASP
·献丑啦--正则表达式练习器
·在ASP中利用“正则表达式” 对象实现UBB风格
·正则表达式在网络编程中的运用（3）
·用正则表达式搜索电子邮件
·在ASP中用“正则表达式对象”来校验数据的合
·简单的检查输入email是否合法程序
·正则表达式（Regular Expression）
·用正则表达式来校验数据的合法性
·很多人都对正则表达式不熟，特从www.phpuser.
·Asp正则表达式在ＵＢＢ论坛中的应用
·用正则表达式剔除文本中的HTML标记
·对正则表达式练习器的改进

实用信息推荐