当前位置: 移动技术网 > IT编程>开发语言>Asp > asp 标记字符串中指定字符变色不区分大小写

asp 标记字符串中指定字符变色不区分大小写

2017年12月08日  | 移动技术网IT编程  | 我要评论
普通的替换函数 复制代码 代码如下:public function highlight(s,f) dim tl,tm,tr,k tl="" tm="" tr=s k=in

普通的替换函数

复制代码 代码如下:

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))

正则表达式

复制代码 代码如下:

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")

如您对本文有疑问或者有任何想说的,请点击进行留言回复,万千网友为您解惑!

相关文章:

验证码:
移动技术网