之前给我解决了一个问题,代码如下:
Dim str As String = "abcef0123"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[a-zA-Z0]+|[1-9]+")
If mc.count = 2 Then
str = mc(0).value & mc(1).value + 1
msgbox(str)
End If
今天发现这个怎么也不起作用,于是查找了下原因,发现,如果字符数字最后一位是0的话,这个不起作用:
可以试试下面的,
Dim str As String = "abcef0180"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[a-zA-Z0]+|[1-9]+")
If mc.count = 2 Then
str = mc(0).value & mc(1).value + 1
msgbox(str)
End If
请帮忙修正一下,谢谢