2,462
社区成员
发帖
与我相关
我的任务
分享
Sub test()
'其实我也不熟
Dim 正则对象, i&, 测试数据$
测试数据 = "asdasdf乱七八pjdflkj sd 13800138000联系人 移动 电话2v fdsa3e +8612345678901"
Set 正则对象 = CreateObject("vbscript.regexp") '创建正则对象
正则对象.Global = True
'没有数据支持测试.就这样吧手机最少11位 大不了加两位国家 如8613800138000
正则对象.Pattern = "(\d{11,13})"
Set 查找后的结果 = 正则对象.Execute(测试数据) '执行正则查找 输入的内容自己加个循环就好
For i = 0 To 查找后的结果.Count - 1
Debug.Print 查找后的结果(i).SubMatches(0) '把所有11-13 位的数字提出来 至于是不是手机号码...自己看了...
Next
End Sub