[已解决]怎样用正则表达式提取字符串的电话号码？

tinytiger

怎样用正则表达式提取字符串的7位、8位或11位电话号码（连续出现7次、8次或11次的数字）？
最好能写成自定义函数

最佳答案

月排行榜 / 总排行榜

香川群子

2015-6-28 09:39

(^|\D)(\d{7}|\d{8}|\d{11})(\D|$)

这样就可以提取字符串中的连续7个或8个或11个数字。

写成自定义函数代码如下：

1. Function TQ$(txt$)
   
2.     With CreateObject("VBScript.RegExp")
   
3.         .Global = True
   
4.         .Pattern = "(^|\D)(\d{7}|\d{8}|\d{11})(\D|$)"
   
5.         If .test(txt) Then
   
6.             For Each m In .Execute(txt)
   
7.                 s = s & "/" & m.SubMatches(1)
   
8.             Next
   
9.             TQ = Mid(s, 2)
   
10.         End If
    
11.     End With
    
12. End Function
    

复制代码

跳转到最佳答案楼层

Excel学徒123

上传附件

香川群子

(^|\D)(\d{7}|\d{8}|\d{11})(\D|$)

这样就可以提取字符串中的连续7个或8个或11个数字。

写成自定义函数代码如下：

1. Function TQ$(txt$)
   
2.     With CreateObject("VBScript.RegExp")
   
3.         .Global = True
   
4.         .Pattern = "(^|\D)(\d{7}|\d{8}|\d{11})(\D|$)"
   
5.         If .test(txt) Then
   
6.             For Each m In .Execute(txt)
   
7.                 s = s & "/" & m.SubMatches(1)
   
8.             Next
   
9.             TQ = Mid(s, 2)
   
10.         End If
    
11.     End With
    
12. End Function
    

复制代码

香川群子

解释一下表达式：
(^|\D)(\d{7}|\d{8}|\d{11})(\D|$)

第1组 (^|\D):  起始位^ 或| 任意非数字\D

第2组(\d{7}|\d{8}|\d{11})： 长度分别为 {7} 或| {8} 或| {11} 的数字\d

第3组 (\D|$):  任意非数字\D 或| 结束位$

tinytiger

香川群子 发表于 2015-6-28 09:39
(^|\D)(\d{7}|\d{8}|\d{11})(\D|$)

这样就可以提取字符串中的连续7个或8个或11个数字。

完全符合要求，非常感谢！

tinytiger

香川群子 发表于 2015-6-28 09:46
解释一下表达式：
(^|\D)(\d{7}|\d{8}|\d{11})(\D|$)

如果想把手机号（1**********）和带区号的固定电话(如0234*******或0123-*******)区分开来，该怎么表达啊？谢谢！

tinytiger

是不是该这么写：
.Pattern = "(^|\D)(\d{7}|\d{8}|1\d{10}|0\d{10,11}|0\d{2,3}-\d{7,8})(\D|$)"

tinytiger

晕了，中间带“-”时不对了，找到原因了，原来少了一个\

tinytiger

修正了一下，是不是该这么写：.Pattern = "(^|\D)(\d{7}|\d{8}|1\d{10}|0\d{2,3}[^0]\d{6,7}|0\d{2,3}-\d{7,8})(\D|$)"