dforme 发表于 2014-1-8 13:10:34

在这里看到你的帖子，阅读权限40！
http://bbs.mjtd.com/thread-92870-1-1.html
还好现在找到了这个

自贡黄明儒 发表于 2014-1-8 15:32:16

;;85.23 [功能] 字符串末尾数字+1
;;http://bbs.mjtd.com/thread-107150-1-1.html中定义xd::string:regexps
;;http://bbs.mjtd.com/forum.php?mod=post&action=edit&fid=3&tid=107420&pid=608841&page=2中定义XD::String:Replace
;;示例(HH:EndNumberAdd "a3.02");返回"a3.03"
(defun HH:EndNumberAdd (str / I STR1 STR2)
(if (setq str1 (car (xd::string:regexps "\\d+$" str "")))
    (progn (setq str2 (itoa (1+ (atoi str1))))          ;提取的尾数+1
           (setq i (- (strlen str1) (strlen str2)))
           (if (> i 0)
             (repeat i (setq str2 (strcat "0" str2)))
           )
           (XD::String:Replace "\\d+$" str str2 "")
    )
    (strcat str "1")
)
)

树櫴希德 发表于 2014-9-13 16:04:17

黄院长出马，楼主大师

伪书虫86 发表于 2014-9-17 09:23:13

测试了，没有中文很好用，但是有中文的时候，经常会出错-----错误: 发生未知意外; 警告: 忽略展开 未知异常----

hoongdou 发表于 2015-11-26 12:47:11

好，厉害。。。。

qianyi0710 发表于 2016-1-10 19:40:27

好像不可以，码有问题

MENGZE 发表于 2016-5-7 19:16:00

带中文的不能用例如你好1就不能递增到你好2了

773786668 发表于 2018-3-17 10:28:27

看帖回帖是个好习惯，收藏

lcy03185405532 发表于 2018-8-16 17:54:08

谢谢各位大侠分享

zst1978 发表于 2020-2-20 03:07:20

多谢楼主分享！
页: 1 2 3 4 5 [6] 7
查看完整版本: 【源码分享】文字末尾的数字递增复制