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编辑过]