页面导航： 首页 → 网络编程 → 正则表达式 → 正文内容

发布：dxy 发布日期：2007-4-6 字体：[增加 减小] 类型：转载

vbs:把一段文字中指定字符颜色变成红色的正则
 
function c(Tstr,Word) 
Dim re 
Set re = new RegExp 
re.IgnoreCase =True 
re.Global=True 
re.pattern = "("&Word&")" 
c=re.replace(Tstr,"<font style='color:red;'>$1</font>") 
End function 
调用方法 
response.write c("内容字串","要显示为红色的字") 
比如 
<% 
function c(Tstr,Word) 
Dim re 
Set re = new RegExp 
re.IgnoreCase =True 
re.Global=True 
re.pattern = "("&Word&")" 
c=re.replace(Tstr,"<font style='color:red;'>$1</font>") 
End function 
Response.write("lamking.com","a") 
%> 
就把lamking.com中的a替换为红色的。 

文章评论

共有 位脚本之家网友发表了评论我来说两句