以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]通过算法检索出相应的手机号码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83532)
--  作者：农村人
--  发布时间：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
--  发布时间：2016/4/12 8:37:00
--  
不太明白楼上的逻辑，举实例说明一下。

如果是从字符串中提取电话号码，参考
--  作者：大红袍
--  发布时间：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
--  作者：大红袍
--  发布时间：2016/4/12 9:39:00
--  
 自己去学习一下正则表达式。