以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]红袍老大，有个问题请教  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77423)
--  作者：aduydgd
--  发布时间：2015/11/18 9:54:00
--  [求助]红袍老大，有个问题请教
之前给我解决了一个问题，代码如下：

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

请帮忙修正一下，谢谢
--  作者：大红袍
--  发布时间：2015/11/18 10:48:00
--  
Dim str As String = "abcef0180"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[a-zA-Z0]+|[0-9]+")
If mc.count = 2 Then
    str = mc(0).value & mc(1).value + 1
    msgbox(str)
End If