手机号码:
Dim pattern As String = "[1][358][0-9]{9}"
Dim txt = "地 如你有需要用车,请联系 18012361955 需要用车,请联系 18066322955"
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