以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  求助正则表达式范例  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=189823)

--  作者：诚学思行 --  发布时间：2023/12/28 10:42:00 --  求助正则表达式范例 我有一段文本，例如： 粤A28ST5  司机姓名：李军 身份证号码：362524857805150057 电话号码13809825268 车型：4米2宽体尾板箱车 如何从这段文本中用正则表达式提取出来车牌号码和电话号码？

--  作者：有点蓝 --  发布时间：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) Next

--  作者：有点蓝 --  发布时间：2023/12/28 10:49:00 --   电话号码现在没有什么固定的规则，无法使用正则提取了。自己分析字符串，比如取【电话号码】之后的13个字符