【原创】文字任意位置原位递增，（源码奉献，一个不留）

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

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

账号		自动登录	找回密码
密码			注册

【原创】文字任意位置原位递增，（源码奉献，一个不留）

点评

点评

点评

点评

点评

点评

1548845899 1548845899 当前离线积分 1588 明经币个注册时间 2010-11-12 在线时间小时威望金钱个贡献激情	发表于 2011-10-15 21:15:59 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡