怎樣在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.h4pj6t.cn/newslist.asp 不分大小寫搜索,查看效果
如在使用過程中有問題,歡迎共同交流學習!
--采用ASP正則表達式實現不區分大小寫替換”發表評論。