110,567
社区成员
发帖
与我相关
我的任务
分享
Dim reg As New Regex("\b\d{6}\b")
Dim m As MatchCollection = reg.Matches("2018-10-09 16:45:52,10655158,13162152470,【俱乐部】您的验证码是772489,5分钟内有效,请确认本人操作。开铂金会员,赢苹果手机!")
If m.Count > 0 Then msgbox m(0).Value
Dim reg As New Regex("\b\d{6}\b", RegexOptions.ECMAScript)
Dim m As MatchCollection = reg.Matches("2018-10-09 16:45:52,10655158,13162152470,【俱乐部】您的验证码是772489,5分钟内有效,请确认本人操作。开铂金会员,赢苹果手机!")
If m.Count > 0 Then msgbox m(0).Value