[源码]批量文本替换

yizhi4669 · 发表于 2011-10-29 16:20:50

呵呵，感谢楼主的分享！
我觉得用燕秀工具箱中的文字替换要好一下，替换、被替换的文字都支持在图纸中拾取，这样很方便。再，在庞大的文件中执行的效率很高。

czb203 · 发表于 2012-1-2 09:15:49

本帖最后由 czb203 于 2012-1-2 09:16 编辑

用起来比自带的好用多了谢谢了哈

【KAIXIN】 · 发表于 2012-1-2 13:42:40

顶一个，好源码！稍加改动就会很完美

午后的猫 · 发表于 2012-2-9 20:41:50

呵呵，很完美啊

wdabb · 发表于 2012-2-13 18:44:56

谢谢啊，，还不错。。。。

haiyunzhou · 发表于 2012-2-18 23:24:58

学习了谢谢

print1985 · 发表于 2012-4-3 17:38:21

好像有点问题，用目标字串“米”查找词语“用作”会找到关键词，且会被替换为乱码。cad2008。希望版主能解决下。

print1985 · 发表于 2012-4-6 17:50:13

自己搞定了需要对汉字做+2字节的处理
      (while (<= schct txtln)
            (if (= (setq readch (substr etext schct subln)) oldch)
(setq schct (+ schct subln)
                  a newch)
            (progn
(if (> (ascii (substr readch 1 1)) 127);如果是汉字
   (progn
                  (setq readch (substr etext schct (1+ subln)));多读取一个字节
   (setq schct (+ schct 2))
   (setq a (substr readch 1 2));就取第1.2个字节为a
   )
   (progn
   (setq schct (1+ schct))
   (setq a (substr readch 1 1))
   )
)
            )
            )
(setq newtext (strcat newtext a))
      )

sdwy196912 · 发表于 2012-4-26 12:42:36

不错的程序.

longer1000 · 发表于 2012-5-22 08:46:13

楼主的分享精神值得学习，支持

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

[【风之影】] [源码]批量文本替换