如何用正则表达式编写根据号码判断电信运营商的函数?

作者：绿色风分类：时间：2022-08-17 浏览：99

楼主
wise

Q：如何用正则表达式编写根据号码判断电信运营商的函数?
A:ALT+F11→插入模块→在模块中输入以下代码:

Function GetBusinessman(strNumber As String)
Set reg = CreateObject("vbscript.RegExp")
Dim myMatch As Boolean
reg.Pattern = "(150|151|152|157|158|159|135|136|137|138|139|187|188|1340|1341|1342|1343|1344|1345|1346|1347|1348)[0-9]{8}"
myMatch = reg.test(strNumber)
If myMatch Then GetBusinessman = "移动": Exit Function
reg.Pattern = "(130|131|132|155|156|186)[0-9]{8}"
myMatch = reg.test(strNumber)
If myMatch Then GetBusinessman = "联通": Exit Function
GetBusinessman = "电信"
End Function

Sub test()
MsgBox GetBusinessman("18810968527")
End Sub

2楼
bluexuemei

学习!

3楼
jydkz

经验之谈，谢谢楼主了，请继续努力

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表