程序代码：

 
  Dim txt As String = "r10b0004,顶板(To)"
  Dim reg As New System.Text.RegularExpressions.Regex("r([^,]*)")
  MsgBox(reg.Match(txt).Groups(1).Value, vbInformation, "你要的数值")

[此贴子已经被作者于2019-9-2 17:11编辑过]