漫游的备忘录
ASP正则为@昵称 加上链接
2012-8-17 漫游


微博的信息会把形如“@昵称“的部分显示成带链接的,显然是用正则实现的。起始标志是@,结束标志是:或空格、换行。替换好后在前台显示,然后可以用jQuery控制这类链接,比如鼠标悬停时弹出该用户的详细信息层。



'把@昵称 替换成带链接的


function RegNickName(fString)

'\s 匹配任何空白字符,包括空格、制表符、换页符等等。等价于 [ \f\n\r\t\v]。

'? 当该字符紧跟在任何一个其他限制符后面时,匹配模式是非贪婪的。非贪婪模式尽可能少的匹配所搜索的字符串,而默认的贪婪模式则尽可能多的匹配所搜索的字符串。

Set reg = New RegExp

reg.IgnoreCase = True

reg.Global = True

reg.Pattern = "@(.{2,16}?)([:|\s])"

RegNickName = reg.Replace(fString, "<a href=""/u/$1"" class=""uname"">@$1</a>$2")

Set reg = Nothing

end function