订阅｜上一篇:Data Mining Technologies, Techniques, Tools, and Trends｜下一篇:不能启动 Easy Config时如何创建一个新的网络服务
用正则表达式突出显示字符串中查询到的单词的函数
[作者]：菩提树下的杨过 [来源]：互联网 [收录时间]：2007-7-30 21:34:54

　　圧(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,"" )

Set objRegExp=Nothing
BoldWord=strContent
End Function