社区 › AutoLISP/Visual LISP 编程技术 › 【原创】文字任意位置原位递增，（源码奉献，一个不留）

mico_ye 发表于 2011-10-14 17:14:35

有意思吗？

yzr2002626 发表于 2011-10-15 15:02:07

yjr111, 把对于字母的加上去撒。整个全功能版本的。

yjr111 发表于 2011-10-15 16:29:31

对不起各位了，集成自定义命令本人道行太浅，整了很久整不出来，还是自己在命令行输:
(defun c:qqq()(c:ywdz))这样的方式更改吧，qqq是你自己要自定义的命令符。。

yjr111 发表于 2011-10-15 20:32:42

信守诺言，源码开始公开，先公开文本末尾大小写数字、字母递增的源码！在一楼原源码处更新，为了告慰被我干掉的那几条香烟，收点辛苦费。。。。。

小菜123 发表于 2011-10-15 20:58:43

十一->十二，(十)->(十一)都不行么?

1548845899 发表于 2011-10-15 21:15:59

小菜123 发表于 2011-10-15 23:00:27

下了个9.29程序，按下面的改了一下，十的问题解决了，请楼主复核


        ........               
                               (setq th2(strlen wz2));;;截取后的文本长度
                               (setq wzs(substr wz1 (+ th2 1) (- th1 th2)));;;找出所截取的数字文本
                            ;;=============增加处理"十"打头的数字
                             (if (= "十" (substr wzs 1 2)) (setq wzs (strcat "一" wzs)))
                          ;;=============

      .......
        (setq szm2(vl-string-subst "零" "零零" szm2))                       
        (setq xxx (1+ xxx))
    )
   (setq szm2(vl-string-right-trim "零" szm2))
   ;;=============增加处理"十"打头的数字
   (if (and (= "一" (substr szm2 1 2)) (= "十" (substr szm2 3 2))) (setq szm2 (substr szm2 3 (- (strlen szm2) 2))))
    ;;=============
                  

lingduwx 发表于 2011-10-15 23:50:36

哈哈，这个公布源码一定要顶起来哦
呵呵

小菜123 发表于 2011-10-16 08:34:25

本帖最后由 小菜123 于 2011-10-16 08:49 编辑

谢谢楼主提供源码。
本来觉得只有"一十"需要改为"十"，而"一千零一十"是正确的(反正我小时候上学是这么学的，不知道现在是不是变化了:)还有这种变态的数字:"２３４５" ，顺便也需要加上处理

xiaxiang 发表于 2011-10-16 10:16:45

推荐，值得下载！楼主很守信用

查看完整版本: 【原创】文字任意位置原位递增，（源码奉献，一个不留）