一个验证用户名的正则表达式
求一个验证用户名的正则表达式
各位大哥大姐,晚辈求一个验证用户名的正则表达式,苦苦思索了一个星期还是没有弄出来,本人愚钝,还望大家指教!
VBscript编程要求用户名的字符控制在3至20个之间,由中文、大小写字母、数字、下划线、小数点、减号组成, 必须以中英文或数字开头结尾且下划线、小数点、减号这三个字符中的其中一个的组合不能是连续的 a__a或a--a或a..a 这样的,但可以 a_a.a_a.a_a-a-a-a_a-a.a.a.a这样的。
如果超出这个范围则用户名不通过。
就是一直弄不明白下划线、小数点、减号这三个字符中的其中一个的组合的问题,头都大了
此为不符合的正则:
^.{0,2}$|.{21,}|^[^A-Za-z0-9\u4E00-\u9FA5]|[^\w\u4E00-\u9FA5.-]|([_.-])\1
function regtest(str)
Set re = New RegExp
re.Pattern = "^.{0,2}$|.{21,}|^[^A-Za-z0-9\u4E00-\u9FA5]|[^\w\u4E00-\u9FA5.-]|([_.-])\1"
if re.Test(str) then
msgbox("不符合")
else
msgbox("符合")
end if
end function
[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]
(?!pattern)
负向预查,在任何不匹配Negative lookahead matches the search string at any point where a string not matching pattern 的字符串开始处匹配查找字符串。这是一个非获取匹配,也就是说,该匹配不需要获取供以后使用。例如'Windows (?!95|98|NT|2000)' 能匹配 "Windows 3.1" 中的 "Windows",但不能匹配 "Windows 2000" 中的 "Windows"。预查不消耗字符,也就是说,在一个匹配发生后,在最后一次匹配之后立即开始下一次匹配的搜索,而不是从包含预查的字符之后开始