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


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

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

帅哥哟,离线,有人找我吗?
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

请帮忙修正一下,谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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

 回到顶部