asp 标记字符串中指定字符变色不分辨大小写
发布时间：2023-05-22 14:07:42 所属栏目：Asp教程 来源：
导读：遇到这种问题，单纯的使用replace函数不行，他会改变原有的字符串的大小写,在网上找到相关的代码，自己备份下
普通的替换函数
复制代码 代码如下:
public function HighLight(S,F)
dim tL,tM,tR,k
普通的替换函数
复制代码 代码如下:
public function HighLight(S,F)
dim tL,tM,tR,k
|
遇到这种问题，单纯的使用replace函数不行，他会改变原有的字符串的大小写,在网上找到相关的代码，自己备份下 普通的替换函数 复制代码 代码如下: 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>" & 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)) 正则表达式 复制代码 代码如下: Function HighLight(S,F) Dim regEx Set regEx = New RegExp regEx.IgnoreCase = True regEx.Global = True regEx.Pattern = "(" & F & ")" HighLight = regEx.Replace(S,"<span>$1</span>") End Function Response.write HighLight("abcaBcabCaBCabcaBCa","bc") （编辑：聊城站长网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
推荐文章
站长推荐
