Foxtable(狐表)用户栏目专家坐堂 → [求助]红袍老大,有个问题请教


  共有1956人关注过本帖树形打印复制链接

主题:[求助]红袍老大,有个问题请教

帅哥哟,离线,有人找我吗?
aduydgd
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:681 积分:5332 威望:0 精华:0 注册:2011/12/26 20:43:00
[求助]红袍老大,有个问题请教  发帖心情 Post By: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

请帮忙修正一下,谢谢

 回到顶部