【源码分享】文字末尾的数字递增复制

dforme

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

自贡黄明儒

1. ;;85.23 [功能] 字符串末尾数字+1
   
2. ;;http://bbs.mjtd.com/thread-107150-1-1.html中定义xd::string:regexps
   
3. ;;http://bbs.mjtd.com/forum.php?mo ... d=608841&page=2中定义XD::String:Replace
   
4. ;;示例(HH:EndNumberAdd "a3.02");返回"a3.03"
   
5. (defun HH:EndNumberAdd (str / I STR1 STR2)
   
6.   (if (setq str1 (car (xd::string:regexps "\\d+$" str "")))
   
7.     (progn (setq str2 (itoa (1+ (atoi str1))))          ;提取的尾数+1
   
8.            (setq i (- (strlen str1) (strlen str2)))
   
9.            (if (> i 0)
   
10.              (repeat i (setq str2 (strcat "0" str2)))
    
11.            )
    
12.            (XD::String:Replace "\\d+$" str str2 "")
    
13.     )
    
14.     (strcat str "1")
    
15.   )
    
16. )

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

树櫴希德

黄院长出马，楼主大师

伪书虫86

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

hoongdou

好，厉害。。。。

qianyi0710

好像不可以，码有问题

MENGZE

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

773786668

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

lcy03185405532

谢谢各位大侠分享

zst1978

多谢楼主分享！