用正则表达式突出显示字符串中查询到的单词的函数
发表时间:2024-05-17 来源:明辉站整理相关软件相关文章人气:
[摘要]圧(Windows Script 5.丵谋謃郕輚? Function BoldWord(strContent,word) dim objRegExp Set objRegExp=new RegExp objRegExp.IgnoreCase =true objRegExp.Global=True ...
圧(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