文字中间的数字递增替换

阿富汗发货单

各位高手们我想求一个LISP程序：
能实现文字中间的数字递增替换，如有很多“第1张”如何连续递增替换为“第2张”“第3张”“第4张”。。。。。。
论坛里只有能实现开头和结尾的数字递增的程序，找了很久都没找到中间数字递增的，望各位好心人帮帮忙，先在这里谢过各位了

zyhandw

是不是用正则表达式或者反应器才能解决啊？可惜还不会，得继续努力学习啊！[em0]

阿富汗发货单

zyhandw 发表于 2012-6-21 16:09
是不是用正则表达式或者反应器才能解决啊？可惜还不会，得继续努力学习啊！

我也不知道要不要用反应器啊   ， 不过我想应该是先提取文字中的数字，然后改为记忆替换吧，不过不知道怎么编写啊    ，  望各位高手帮帮忙吧。

Gu_xl

1. (defun stradd (str i / n str1 str2 str3 str4)
   
2.   (setq n 0)
   
3.   (vl-some '(lambda (x / a)
   
4.               (if (< 47 x 58)
   
5.                 t
   
6.                 (setq n        (1+ n)
   
7.                       a        nil
   
8.                 )
   
9.               )
   
10.             )
    
11.            (VL-STRING->LIST str)
    
12.   )
    
13.   (setq str1 (substr str 1 n))
    
14.   (setq        str2 (substr str (1+ n))
    
15.         n    0
    
16.   )
    
17.   (vl-some '(lambda (x / a)
    
18.               (if (or (< x 48) (> x 57))
    
19.                 t
    
20.                 (setq n        (1+ n)
    
21.                       a        nil
    
22.                 )
    
23.               )
    
24.             )
    
25.            (VL-STRING->LIST str2)
    
26.   )
    
27.   (setq str3 (substr str2 1 n))
    
28.   (setq str4 (substr str2 (1+ n)))
    
29.   (strcat str1 (itoa (+ i (atoi str3))) str4)
    
30. )
    
31. ;;测试
    
32. ( stradd  "第1张" 1）
    
33. ==》
    
34. "第2张"
    

(defun stradd (str i / n str1 str2 str3 str4)<br />   (setq n 0)<br />   (vl-some '(lambda (x / a)<br />               (if (< 47 x 58)<br />                 t<br />                 (setq n        (1+ n)<br />                       a        nil<br />                 )<br />               )<br />             )<br />            (VL-STRING->LIST str)<br />   )<br />   (setq str1 (substr str 1 n))<br />   (setq        str2 (substr str (1+ n))<br />         n    0<br />   )<br />   (vl-some '(lambda (x / a)<br />               (if (or (< x 48) (> x 57))<br />                 t<br />                 (setq n        (1+ n)<br />                       a        nil<br />                 )<br />               )<br />             )<br />            (VL-STRING->LIST str2)<br />   )<br />   (setq str3 (substr str2 1 n))<br />   (setq str4 (substr str2 (1+ n)))<br />   (strcat str1 (itoa (+ i (atoi str3))) str4)<br /> )<br /> ;;测试<br /> ( stradd  "第1张" 1）<br /> ==》<br /> "第2张" <br />

阿富汗发货单

Gu_xl 发表于 2012-6-22 09:28

GU _XL版主你好，程序加载后出现“命令: ; 错误: 输入的列表有缺陷”，我是Autocad 2008的

阿富汗发货单

你好，可能你没理解我的意思，我要的是把很多“第1张”替换为“第2张”“第3张”。。不是复制递增啊

zyhandw

G版都出手了，看看学习一下

阿富汗发货单

阿富汗发货单 发表于 2012-6-22 09:41
GU _XL版主你好，程序加载后出现“命令: ; 错误: 输入的列表有缺陷”，我是Autocad 2008的

哦   可是试了改括号还是不行啊   也不知道命令是什么啊

阿富汗发货单

yjr111  起始递增，递增量1

试了也不行啊    我要的是lisp啊

香田里浪人

Gu_xl 发表于 2012-6-22 09:28

错误: 参数太少