vbs:把一段文字中指定字符颜色变成红色的正则

日期:04-05  浏览:

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替换为红色的。 
上一篇:正则表达式:过滤&lt;font&gt;和&lt;/font&gt;
下一篇:vbs:一段比较精简的代码实现取得字符串的"字节"数

网友评论


点击图片更换


查看更多评论
 

推荐文章

·完美Email验证正则表达式
·JavaScript正则表达式之后向引用实例代码
·javascript常用正则表达式合集第1/2页
·IOS开发常用的正则表达式
·php中正则替换函数ereg_replace用法实例
·php正则表达式中贪婪与非贪婪介绍
·mysql update正则替换sql语句
·shell 正则表达式详细整理