[求助]通过算法检索出相应的手机号码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]通过算法检索出相应的手机号码

共有2392人关注过本帖树形打印复制链接主题：[求助]通过算法检索出相应的手机号码

农村人

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：174 积分：2349 威望：0 精华：0 注册：2015/8/12 15:36:00

[求助]通过算法检索出相应的手机号码 发帖心情

Post By：2016/4/11 23:52:00 [只看该作者]

AAAAA ,AAAA ,AAA, AABBB, AA ,AABBCC ,AABB ,ABABAB, ABAB ,ABCDABCD, ABCD ABC ABCABC AABBCC* ABCABC* AB BAB* ABC*ABC *ABC*ABC AB**AB** **AB**AB *A*A*A*A A*A*A*A* AABCC ABCAB AAAB ABBA ABAC BACA 以上规则怎么通过算法检索出相应的手机号码请高手指教

Hyphen

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/4/12 8:37:00 [只看该作者]

不太明白楼上的逻辑，举实例说明一下。

如果是从字符串中提取电话号码，参考

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78633

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/12 9:38:00 [只看该作者]

比如 AAAAA

Dim pattern As String = "([0-9]{1})\1{4}"
Dim str = "13827222227"
Dim reg As new System.Text.RegularExpressions.Regex(pattern)
If reg.Ismatch(str) = True Then
msgbox("AAAAA")
End If

比如 AABBB

Dim pattern As String = "([0-9]{1})\1{1}([0-9]{1})\2{2}"
Dim str = "13827188999"
Dim reg As new System.Text.RegularExpressions.Regex(pattern)
If reg.Ismatch(str) = True Then
msgbox("AABBB")
End If

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/12 9:39:00 [只看该作者]

自己去学习一下正则表达式。

下一主题 >> << 上一主题

主题：[求助]通过算法检索出相应的手机号码