怎样在ASP中实现replace不区分大小写替换?
--采用ASP正则表达式实现不区分大小写替换
ASP中经常会用到replace,比如在查找时,要求高度显示被查找的字符,怎么使用replace不区分大小写替换字符?
在网上查询了几个相关函数都不能正常运行,以下提供一个ASP正则表达式来实现replace不区分大小写替换字符,保留原来大小写状态,只是高亮进行显示:
函数如下:
Function SWhighstr(Str,keyword) '注释:str为需要搜索的字符串,keyword:搜索的关键词
Dim RegObj
Set RegObj= New RegExp
With RegObj
.Global = True
.IgnoreCase = True
.Pattern="([.\n]*)("&Keyword&")([.\n]*)"
SWhighstr=.Replace(Str,"$1<font color='red'>$2</font>$3")
End With
Set RegObj=Nothing
End Function
在网站程序中调用时使用:SWhighstr(str,keyword)
程序使用效果案例:http://www.sw996.com/newslist.asp 不分大小写搜索,查看效果
如在使用过程中有问题,欢迎共同交流学习!
--采用ASP正则表达式实现不区分大小写替换”发表评论。