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