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替换为红色的。

vbs:一段比较精简的代码实现取得字符串的"字节"数
大家都知道汉字占用两个英文字母的长度，所以索取时要将其转换为长度２，这个例子比较简单的实现了这一功能[Ctrl+A全选注:如需引入外部Js需刷新才

vbs:能算出一个字符在一字段里共出现有几次的函数
FunctionRegExpTest(patrn,strng)DimregEx,MatchesSetregEx=NewRegExpregEx.Pattern=patrnregEx.IgnoreCase=True‘为真则忽略大小写，否则严格匹配大小写regEx.Global=TrueSetMatches=regEx.Exec

js:正则处理超文本流
>aname=aa>测试[Ctrl+A全选注:如需引入外部Js需刷新才能执行]