最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

asp 標(biāo)記字符串中指定字符變色不區(qū)分大小寫

 更新時(shí)間:2013年04月07日 12:12:17   作者:  
今天遇到這種問題,單純的使用replace函數(shù)不行,他會(huì)改變?cè)械淖址拇笮?在網(wǎng)上找到相關(guān)的代碼,自己備份下

普通的替換函數(shù)

復(fù)制代碼 代碼如下:

public function HighLight(S,F)
dim tL,tM,tR,k
tL=""
tM=""
tR=S
k=instr(1,tR,F,1)
do while k>0
tL=tL & left(tR,k-1)
tM=mid(tR,k,len(F))
tL=tL & "<span style='color:red'>" & tM & "</span>"
tR=right(tR,Len(tR)-len(F)-k+1)
k=instr(1,tR,F,1)
loop
HighLight=tL & tR
end function
 tS="abcaBcabCaBCabcaBCa"
tF="bc"
response.Write(tS)
response.Write("<br/>")
response.Write(HighLight(tS,tF))

正則表達(dá)式

復(fù)制代碼 代碼如下:

Function HighLight(S,F)
Dim regEx
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True
regEx.Pattern = "(" & F & ")"
HighLight = regEx.Replace(S,"<span style='color:red'>$1</span>")
End Function
Response.write HighLight("abcaBcabCaBCabcaBCa","bc")

相關(guān)文章

最新評(píng)論

凯里市| 连州市| 隆安县| 北票市| 永城市| 墨脱县| 洪洞县| 双城市| 琼海市| 区。| 桐城市| 永兴县| 马关县| 明水县| 聊城市| 上林县| 蕲春县| 崇仁县| 蒙山县| 焦作市| 新野县| 东辽县| 清流县| 襄汾县| 彰化市| 张掖市| 察雅县| 鄄城县| 城步| 甘谷县| 通许县| 渭南市| 闽清县| 昭通市| 邵阳市| 奈曼旗| 红河县| 富裕县| 定日县| 黄浦区| 甘德县|