'下面的代码也可以:(比程老师的复杂些)
Dim tx7 As String = "12-123-5" '要匹配的字符串
Dim d As System.Text.RegularExpressions.RegexOptions = System.Text.RegularExpressions.RegexOptions.Singleline Or System.Text.RegularExpressions.RegexOptions.Multiline'枚举Dim tx1 As String = "(?<=\d+[-]\d+[-])\d.*" '用于查找的表达式
output.show(System.Text.RegularExpressions.Regex.Match(tx7,tx1,d).value)