关键字自动变色的问题

[showlin]

有函数ChangeColor(str,key)，str是原字符串，key是包含N个关键字的数组

代码如下
function ChangeColor(str,key)
dim temp,num,i
temp=str
num=ubound(key)
for i=0 to num
temp=replace(temp,key(i),"<font color=CC0033 style=""background-color:#ffff00"">" & key(i) & "</font>")
next
changecolor=temp
end function

例如字符串www.baidu.com，关键字baidu，替换后结果是www.<font color=CC0033 style="background-color:#ffff00">baidu</font>.com，网页上显示baidu即为黄地红字

但是…………
字符串www.baidu.com，关键字两个：baidu和color，替换后结果就变成了
www.<font <font color=CC033 style="background-color:#ffff00">color</font>=CC033 style="background-<font color=CC033 style="background-color:#ffff00">color</font>:#ffff00">baidu.com

两次替换的结果
如何解决？请给可用代码。
鉴于楼主以前也问过这类问题，无人有给我正确答案，估计是人品问题，因此大放血200，不够的话，开贴再给。
帮顶有分，只说“用正则的”，请回家睡觉先…………

[net205]

还是沙发.

5079643帖子已经给你回复，
我的理解，应该可以解决你的问题

[showlin]

…………回复在哪？？？
-_-b

[李向荣]

function ChangeColor(str,key)
dim temp,num,i
temp=str
num=ubound(key)
for i=0 to num
temp=replace(temp,key(i),"!@#$%^&*" & key(i) & "*&^%$#@!")
next
temp=replace(temp,"!@#$%^&*" ,"<font color=CC0033 style=""background-color:#ffff00"">")
temp=replace(temp,"*&^%$#@!","</font>")
Changecolor=temp
end function

其实你的问题就是出在，你所要替换成的内容可能包含你所要替换的内容，这样如果多次替换就会造成不想要的，结果。我也不知道你要说的关键字有什么特点，所以就用特殊字符先代替一下，从而避免你所说的情况发生。你可以把特殊字符串换成你认为不可能在关键字里出现的就可以了。

[showlin]

啊？居然发了两个贴，晕

[showlin]

ok thanks
多谢lxrxyls(行云流水)
请至
http://community.csdn.net/Expert/topic/5079/5079624.xml?temp=.6197321
接分

[slayerbb]

啊？居然发了两个贴，晕

hehe
我也在奇怪呢：）