vbs:把一段文字中指定字符顏色變成紅色的正則

functionc(Tstr,Word)

Dimre

Setre=newRegExp

re.IgnoreCase=True

re.Global=True

re.pattern="("&Word&")"

c=re.replace(Tstr,"$1")

Endfunction

調用方法

response.writec("內容字串","要顯示為紅色的字")

比如

<%

functionc(Tstr,Word)

Dimre

Setre=newRegExp

re.IgnoreCase=True

re.Global=True

re.pattern="("&Word&")"

c=re.replace(Tstr,"$1")

Endfunction

Response.write("www.49028c.com","a")

%>

就把www.49028c.com中的a替換為紅色的。