匹配手机号的正则表达式的问题

向東

在一段文字里匹配手机号码，写了一个手机号码的正则：

1. (?=[0-9])\b(13|14|15|17|18|19)[0-9]\s\d{4}\s\d{4}(?![0-9])

复制代码

有个问题想请教一下：
比如这段文字里有：手机号152 2542 5668 138 2542 2589 189 5804 6858等。
或者有：手机号152 2542 5668、电话号码010-88204512
都能匹配到想要的手机号，没问题；

如果有：手机号1152 2542 5668
或者有：手机号152 2542 56688、电话号码010-88204512
对于上面错误的手机号是不匹配的，也没问题。

但是，出现个问题：
比如：手机号Mobile Phone152 2542 5668
就会有问题，上面的手机号并没错，但是匹配不到，不知道上面的表达式如何改动？

duquancai

1. Public Function getMobilCode(ByVal s As String) As String
   
2.     Dim js As Object, j As String
   
3.     Set js = CreateObject("MSScriptControl.ScriptControl")
   
4.     js.Language = "JavaScript"
   
5.     j = "a=[],r=/(?:\D|^)(1[35789]\d\s\d{4}\s\d{4})(?!\d)/g;while(m=r.exec('" & s & "')){a.push(m[1]);};a.join('\n');"
   
6.     getMobilCode = js.eval(j)
   
7. End Function
   
8. Sub main()
   
9.     Dim s As String
   
10.     s = "比如这段文字里有：手机号152 2542 5668 138 2542 2589 189 5804 6858等。"
    
11.     s = s & "或者有：手机号152 2542 5668、电话号码010-88204512"
    
12.     s = s & "都能匹配到想要的手机号，没问题；"
    
13.     s = s & "如果有：手机号1152 2542 5668"
    
14.     s = s & "或者有：手机号152 2542 56688、电话号码010-88204512"
    
15.     s = s & "对于上面错误的手机号是不匹配的，也没问题。"
    
16.     s = s & "但是，出现个问题："
    
17.     s = s & "比如：手机号Mobile Phone152 2542 5668"
    
18.     s = s & "就会有问题，上面的手机号并没错，但是匹配不到，不知道上面的表达式如何改动？"
    
19.     MsgBox getMobilCode(s)
    
20. End Sub

复制代码

向東

duquancai 发表于 2018-9-1 18:17

测试通过，看来JavaScript的正则可以，谢谢！

1. (?:\D|^)(1[35789]\d\s\d{4}\s\d{4})(?!\d)

复制代码

但是在线测试没通过：
https://www.jb51.net/tools/zhengze.htm

ggmmlol

看到你在我的帖子里的留言给的这个链接，然后过来看一下，试着解答一下：

一、手机号码，按你提供的数据格式，可以表示为：
(1[3-57-9]\d\s?\d{4}\s?\d{4})
二、手机号码的前后，都不允许紧接出现数字，所以以上表达式的前后都需要加上限定条件。
正确的限定方式为：
\D(1[3-57-9]\d\s?\d{4}\s?\d{4})(?!\d)
注意：不能使用\b做限定条件。
三、零宽先行断言，可以用(?!\d)或(?=\D|$)，而不能使用(?=\D)。因为(?=\D)不能匹配字符结尾位置。

使用我的【超级查找替换】加载宏小工具，并套用“万能正则表达式”，演示如下：

duquancai

pyshon语言写的代码》》》》》》

1. import re
   
2. 
   
3. mystr='''
   
4.         有个问题想请教一下：
   
5.         比如这段文字里有：手机号152 2542 5668 138 2542 2589 189 5804 6858等。
   
6.         或者有：手机号152 2542 5668、电话号码010-88204512
   
7.         都能匹配到想要的手机号，没问题；
   
8.         
   
9.         如果有：手机号1152 2542 5668
   
10.         或者有：手机号152 2542 56688、电话号码010-88204512
    
11.         对于上面错误的手机号是不匹配的，也没问题。
    
12.         
    
13.         但是，出现个问题：
    
14.         比如：手机号Mobile Phone152 2542 5668
    
15.         就会有问题，上面的手机号并没错，但是匹配不到，不知道上面的表达式如何改动？'''
    
16. 
    
17. reg=re.compile(r'(?<!\d)1[35789]\d\s*\d{4}\s*\d{4}(?!\d)')
    
18. print(reg.findall(mystr))

复制代码

向東

ggmmlol 发表于 2018-10-7 19:34
看到你在我的帖子里的留言给的这个链接，然后过来看一下，试着解答一下：

一、手机号码，按你提供的数据 ...

零宽先行断言(?!\d)，用来断言匹配字符的前面的字符，好像在VB的正则里是不支持的，你可以测试一下。

zopey

ggmmlol 发表于 2018-10-7 19:34
看到你在我的帖子里的留言给的这个链接，然后过来看一下，试着解答一下：

一、手机号码，按你提供的数据 ...

你编写的表达式，代入后结果正确

=tq(A2,-1.1,"\D(1[3-57-9]\d\s?\d{4}\s?\d{4})(?!\d)")
提取手机.zip (11.01 KB, 下载次数: 135)

2018-10-8 17:02 上传

点击文件名下载附件

xd3210

向東 发表于 2018-10-8 16:41
零宽先行断言(?!\d)，用来断言匹配字符的前面的字符，好像在VB的正则里是不支持的，你可以测试一下。

支持零宽度先行断言，但不支持零宽度后发断言

ggmmlol

向東 发表于 2018-10-8 16:41
零宽先行断言(?!\d)，用来断言匹配字符的前面的字符，好像在VB的正则里是不支持的，你可以测试一下。

零宽先行断言，并不是断言匹配字符的前面位置的字符，反而是断言匹配字符的后面位置的字符。
其正确理解，就是对后面将要出现的字符，先行判断的意思。

所以，，不要看到一个“先”字，就简单以为是对“前”面位置做判断。不要望文生义啊。

ggmmlol

zopey 发表于 2018-10-8 17:04
你编写的表达式，代入后结果正确

=tq(A2,-1.1,"\D(1[3-57-9]\d\s?\d{4}\s?\d{4})(?!\d)")

你的公式，用到的是香川群子编写的自定义函数，其中主要是用正则表达式的Execute方法加上循环提取目标字符串，用上我写的这个关键的正则表达式，结果应当是正确的。所以附件我就不下载了。

我的超级查找替换加载宏，用的是正则对象的Replace方法，可以不用循环而完成提取。在我的加载宏里面，也有以Replace方法编写的自定义函数，其代码比TQ函数更加简单高效。