（急）补充正则表达式匹配数字规则

[宾远]

<%
Dim regEx
Set regEx = New RegExp
temp=""
str="13666020256"

'匹配6位顺增
regex.Pattern = "(?:0(?=1)|1(?=2)|2(?=3)|3(?=4)|4(?=5)|5(?=6)|6(?=7)|7(?=8)|8(?=9)){5}\d"
if regex.test(str) then temp="ABCDE"

'匹配6位顺降
regex.Pattern = "(?:9(?=8)|8(?=7)|7(?=6)|6(?=5)|5(?=4)|4(?=3)|3(?=2)|2(?=1)|1(?=0)){5}\d"
if regex.test(str) then temp="EDCBA"

'补充AABB AAAA AAABBB AAAB ABBB AABBCC AABBCCDD BBBAAA BAAA.....
..........

regEx.IgnoreCase = True
regEx.Global = True
response.write(temp)
%>

[宾远]

如果是以下的要怎么写呀？
ABAB
ABCABC

[wcwtitxu]

ABAB
((\d)(?!\2)\d)\1



ABCABC
((\d)(?!\2)(\d)(?!\3)\d)\1

[宾远]

多谢，终于可以了。弄这个不容易啊

[宾远]

很急很急，在线等。

[wcwtitxu]

AAAA
(\d)\1{3}

AAABBB
(?:(\d)\1\1(?!\1)){2}

AAAB
(\d)\1\1(?!\1)\d

ABBB
(\d)(?!\1)(\d)\2\2

AABB
(?:(\d)\1(?!\1)){2}

AABBCC
(?:(\d)\1(?!\1)){3}

AABBCCDD
(?:(\d)\1(?!\1)){4}