怎樣在ASP中實現(xiàn)replace不區(qū)分大小寫替換?
--采用ASP正則表達式實現(xiàn)不區(qū)分大小寫替換
ASP中經(jīng)常會用到replace,比如在查找時,要求高度顯示被查找的字符,怎么使用replace不區(qū)分大小寫替換字符?
在網(wǎng)上查詢了幾個相關(guān)函數(shù)都不能正常運行,以下提供一個ASP正則表達式來實現(xiàn)replace不區(qū)分大小寫替換字符,保留原來大小寫狀態(tài),只是高亮進行顯示:
函數(shù)如下:
Function SWhighstr(Str,keyword) '注釋:str為需要搜索的字符串,keyword:搜索的關(guān)鍵詞
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
在網(wǎng)站程序中調(diào)用時使用:SWhighstr(str,keyword)
程序使用效果案例:http://www.sw996.com/newslist.asp 不分大小寫搜索,查看效果
如在使用過程中有問題,歡迎共同交流學習!
--采用ASP正則表達式實現(xiàn)不區(qū)分大小寫替換”發(fā)表評論。