| 用正则表达式突出显示字符串中查询到的单词的函数 |
|
作者:佚名 文章来源:网海之贝 点击数: 更新时间:2004-8-30 17:49:25  |
圧(Windows Script 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 |
| 文章录入:admin 责任编辑:admin |
|
上一篇文章: 一个新版本的ubb转化程序
下一篇文章: 正则表达式练习器 |
| 【字体:小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |