求助正则表达式范例 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助正则表达式范例

共有1964人关注过本帖树形打印复制链接主题：求助正则表达式范例

诚学思行

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：440 积分：3489 威望：0 精华：0 注册：2017/3/8 0:04:00

求助正则表达式范例 发帖心情

Post By：2023/12/28 10:42:00 [只看该作者]

我有一段文本，例如：

粤A28ST5

司机姓名：李军

身份证号码：362524857805150057

电话号码13809825268

车型：4米2宽体尾板箱车

如何从这段文本中用正则表达式提取出来车牌号码和电话号码？

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110810 积分：563988 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/12/28 10:49:00 [只看该作者]

车牌

Dim pattern As String = "([京津沪渝冀豫云辽黑湘皖鲁新苏浙赣鄂桂甘晋蒙陕吉闽贵粤青藏川宁琼使领A-Z]{1}[a-zA-Z](([DF]((?![IO])[a-zA-Z0-9](?![IO]))[0-9]{4})|([0-9]{5}[DF]))|[京津沪渝冀豫云辽黑湘皖鲁新苏浙赣鄂桂甘晋蒙陕吉闽贵粤青藏川宁琼使领A-Z]{1}[A-Z]{1}[A-Z0-9]{4}[A-Z0-9挂学警港澳]{1})"

Dim txt = "粤A28ST5 司机姓名：李军"

Dim rgx = New System.Text.RegularExpressions.Regex(pattern, System.Text.RegularExpressions.RegexOptions.IgnoreCase)

For Each match As System.Text.RegularExpressions.Match In rgx.Matches(txt)

Output.Show(match.Value)

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110810 积分：563988 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/12/28 10:49:00 [只看该作者]

电话号码现在没有什么固定的规则，无法使用正则提取了。自己分析字符串，比如取【电话号码】之后的13个字符

下一主题 >> << 上一主题

主题：求助正则表达式范例