UC知道求ASP正则 不区分大小写替换
来源：百度知道 编辑：UC知道 时间：2024/05/22 17:45:04
效果是关键词那种,将指定字符串换成红色替换.
如果有字母要不分大小写替换,
如:
high High HIGH 都能替换成红色的 high High HIGH
不要那个非正则的替换，那个根本就不好用,
没有匹配就直接清空了，麻烦这样的朋友，就不要复制过来耽误您的宝贵时间了。
先谢谢这位朋友，你方法很好用，
但是，如果关键词都小写，替换完了都小写了啊?
原来大写的也小写了，
有没有,如:
原来是High HIGH, 我查high 后，
结果是连个红色的High HIGH
而不是连个红色的high high
如果有字母要不分大小写替换,
如:
high High HIGH 都能替换成红色的 high High HIGH
不要那个非正则的替换，那个根本就不好用,
没有匹配就直接清空了，麻烦这样的朋友，就不要复制过来耽误您的宝贵时间了。
先谢谢这位朋友，你方法很好用，
但是，如果关键词都小写，替换完了都小写了啊?
原来大写的也小写了，
有没有,如:
原来是High HIGH, 我查high 后，
结果是连个红色的High HIGH
而不是连个红色的high high
根据你进一步的要求，我把函数修改为：
<%
Function GoRed(Str,keyword)
Dim RegObj
Set RegObj= New RegExp
With RegObj
.Global = True
.IgnoreCase = True
.Pattern="([.\n]*)("&Keyword&")([.\n]*)"
GoRed=.Replace(Str,"$1<font color='red'>$2</font>$3")
End With
Set RegObj=Nothing
End Function
试试效果吧