| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 请问如何对文本字符的数字后缀做自增长？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79000) |
| -- 作者：李睿涵 -- 发布时间：2015/12/22 14:42:00 -- 请问如何对文本字符的数字后缀做自增长？ 有个文本字段 里面记录了文本+数字 例如： ST09240 BUD329001 CFC2389之类的 （字符前缀无长度规律，数字也无长度规律） 请教，如何能让其按数字后缀自增长？ 即：ST09240 --> ST09241 ST09242... BUD329001 --> BUD329002 BUD329003... CFC2389 --> CFC2390 CFC2391....
请给一个自增长的代码，我好写到新增按钮里。 |
| -- 作者：大红袍 -- 发布时间：2015/12/22 15:05: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 |