我有一段文本，例如：
粤A28ST5 司机姓名：李军
身份证号码：362524857805150057
电话号码13809825268
车型：4米2宽体尾板箱车
如何从这段文本中用正则表达式提取出来车牌号码和电话号码？
车牌
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
电话号码现在没有什么固定的规则，无法使用正则提取了。自己分析字符串，比如取【
电话号码】之后的13个字符