正则筛选靓号求各位费心

U小愚 · 发表于 2022-5-8 20:50:04

最近想写个靓号筛选，
这是我写的.. 但是有问题，
怎么都搞不定
正则筛选靓号
--------比如手机号是11位数，
求大神指教！！！
尾数_ABCDABED  如： 83905780598
尾数_ABCDAECD  如： 83905780178
尾数_ABCDABCE  如： 83905780579
尾数_ABCDEBCD  如： 83905786578

尾数_AABBCCDD 我写的是 \d{3}(\d)\1(\d)\2(\d)\3(\d)\4\d*
尾数_ABCDABCD 我正则的是 \d{3}(\d)(\d)(\d)(\d)\1\2\3\4\d*

求大神指教。

补充内容 (2022-5-8 20:50):
839 是我随便乱打的凑数11位

真冬 · 发表于 2022-5-8 20:50:05

2022年5月9日.e (5.54 KB, 下载次数: 19)

发了两次都要审核，没办法这个时间审核的人不在，先发文件吧

补充内容 (2022-5-9 00:54):
我的想法是先解析字母规律来匹配符合规律的数字，不然有新的规律加入不方便

鹏书 · 发表于 2022-5-8 23:22:18

用户可扩展靓号筛选器
https://125.confly.eu.org/forum.php?mod=viewthread&tid=14718244
(出处: 精易论坛)

真冬 · 发表于 2022-5-8 23:29:42

2346分别是什么？

补充内容 (2022-5-8 23:30):
为什么
A-0
B-5
C-7
D-8
E-9

补充内容 (2022-5-8 23:36):
还有1是啥？

U小愚 · 发表于 2022-5-8 23:45:26

nikezhi 发表于 2022-5-8 23:22
用户可扩展靓号筛选器
https://125.confly.eu.org/forum.php?mod=viewthread&tid=14718244
(出处: 精易论坛)

这个看过，可以是可以，不是正则的，我是想学习正则的方式

U小愚 · 发表于 2022-5-8 23:48:19

真冬发表于 2022-5-8 23:29
2346分别是什么？

补充内容 (2022-5-8 23:30):

啥2346，就是规则匹配靓号，可以看靓号的网站，他们的定义可能是

补充内容 (2022-5-8 23:49):
ABC**ABC
ABC*ABC*
*ABC*ABC
AB*CAB*C
A*BCA*BC
AB**AB**
**AB**AB

补充内容 (2022-5-8 23:52):
换成正则来实现的话，这个怎么写呢，
11位数字，按这个来应该就是跟我表达的 ABCD EBCD 不就是 *ABC*ABC

鹏书 · 发表于 2022-5-8 23:51:25

U小愚发表于 2022-5-8 23:45
这个看过，可以是可以，不是正则的，我是想学习正则的方式

正则不擅长做这个

真冬 · 发表于 2022-5-8 23:59:49

U小愚发表于 2022-5-8 23:48
啥2346，就是规则匹配靓号，可以看靓号的网站，他们的定义可能是

补充内容 (2022-5-8 23:49):

ABCD EBCD 怎么会和*ABC*ABC一样呢？

真冬 · 发表于 2022-5-9 00:47:58

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

' 调试输出 (子程序_是否包含规则 (“13123452341”, “ABCDEBCD”))
_编辑框2_内容被改变 ()

子程序名	返回值类型	公开	备注
_编辑框1_内容被改变

_编辑框2_内容被改变 ()

子程序名	返回值类型	公开	备注
_编辑框2_内容被改变

变量名	类型	静态	数组	备注
a	文本型
b	文本型		0
i1	整数型
i2	整数型
c	整数型
d	文本型

b ＝分割文本 (编辑框1.内容, #换行符, )

计次循环首 (取数组成员数 (b), i1)

如果真 (子程序_是否包含规则 (b [i1], 编辑框2.内容, c, d))

a ＝ a ＋ b [i1] ＋ #换行符＋取重复文本 (c, “ ”) ＋ d ＋ #换行符

计次循环尾 ()
编辑框3.内容＝ a

子程序名	返回值类型	公开	备注
子程序_是否包含规则	逻辑型
参数名	类型	参考	可空	数组	备注
c_来源	文本型
c_规则	文本型				#换行符分割
c_起始位置	整数型
c_返回规则	文本型

变量名	类型	静态	数组	备注
i1	整数型
i2	整数型
i3	整数型
b	整数型
c	整数型
cc	整数型
gz	文本型		0
cd	整数型

gz ＝分割文本 (c_规则, #换行符, )

计次循环首 (取数组成员数 (gz), i3)

cd ＝取文本长度 (gz [i3]) － 1

计次循环首 (取文本长度 (c_来源) － 1, i1)

b ＝取代码 (c_来源, i1)

如果真 (b ≥ #键0 且 b ≤ #键9 )

c ＝ b －取代码 (c_来源, i1 ＋ 1)

i2 ＝ i2 ＋ 1

cc ＝取代码 (gz [i3], i2) －取代码 (gz [i3], i2 ＋ 1)

' 调试输出 (字符 (b), c, cc, i2)

判断 (c ≠ cc)

i2 ＝ 0

判断 (cd ＝ i2)

c_起始位置＝ i1 － cd

c_返回规则＝ gz [i3]

返回 (真)

计次循环尾 ()

计次循环尾 ()
返回 (假)

.版本 2<br />
<br />
.程序集 窗口程序集_启动窗口<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
' 调试输出 (子程序_是否包含规则 (“13123452341”, “ABCDEBCD”))<br />
_编辑框2_内容被改变 ()<br />
<br />
.子程序 _编辑框1_内容被改变<br />
<br />
_编辑框2_内容被改变 ()<br />
<br />
.子程序 _编辑框2_内容被改变<br />
.局部变量 a, 文本型<br />
.局部变量 b, 文本型, , "0"<br />
.局部变量 i1, 整数型<br />
.局部变量 i2, 整数型<br />
.局部变量 c, 整数型<br />
.局部变量 d, 文本型<br />
<br />
b ＝ 分割文本 (编辑框1.内容, #换行符, )<br />
.计次循环首 (取数组成员数 (b), i1)<br />
    .如果真 (子程序_是否包含规则 (b [i1], 编辑框2.内容, c, d))<br />
        a ＝ a ＋ b [i1] ＋ #换行符 ＋ 取重复文本 (c, “ ”) ＋ d ＋ #换行符<br />
    .如果真结束<br />
<br />
.计次循环尾 ()<br />
编辑框3.内容 ＝ a<br />
<br />
.子程序 子程序_是否包含规则, 逻辑型<br />
.参数 c_来源, 文本型<br />
.参数 c_规则, 文本型, , #换行符分割<br />
.参数 c_起始位置, 整数型, 参考 可空<br />
.参数 c_返回规则, 文本型, 参考 可空<br />
.局部变量 i1, 整数型<br />
.局部变量 i2, 整数型<br />
.局部变量 i3, 整数型<br />
.局部变量 b, 整数型<br />
.局部变量 c, 整数型<br />
.局部变量 cc, 整数型<br />
.局部变量 gz, 文本型, , "0"<br />
.局部变量 cd, 整数型<br />
<br />
gz ＝ 分割文本 (c_规则, #换行符, )<br />
.计次循环首 (取数组成员数 (gz), i3)<br />
    cd ＝ 取文本长度 (gz [i3]) － 1<br />
    .计次循环首 (取文本长度 (c_来源) － 1, i1)<br />
        b ＝ 取代码 (c_来源, i1)<br />
        .如果真 (b ≥ #键0 且 b ≤ #键9)<br />
            c ＝ b － 取代码 (c_来源, i1 ＋ 1)<br />
            i2 ＝ i2 ＋ 1<br />
            cc ＝ 取代码 (gz [i3], i2) － 取代码 (gz [i3], i2 ＋ 1)<br />
            ' 调试输出 (字符 (b), c, cc, i2)<br />
            .判断开始 (c ≠ cc)<br />
                i2 ＝ 0<br />
            .判断 (cd ＝ i2)<br />
                c_起始位置 ＝ i1 － cd<br />
                c_返回规则 ＝ gz [i3]<br />
                返回 (真)<br />
            .默认<br />
<br />
            .判断结束<br />
<br />
        .如果真结束<br />
<br />
    .计次循环尾 ()<br />
.计次循环尾 ()<br />
返回 (假)

还不如解析字母规律来匹配符合规律的数字简单一些，万一有新的规则就不方便加进去

真冬 · 发表于 2022-5-9 00:51:49

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

' 调试输出 (子程序_是否包含 (“13123452341”, “ABCDEBCD”))
_编辑框2_内容被改变 ()

子程序名	返回值类型	公开	备注
_编辑框1_内容被改变