[编程申请]：多文本的查找与替换:

逐月飞鸿 · 发表于 2004-9-22 09:01:14

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

多文本的批量查找与替换:
我们在文本的查找与替换的时候,我们往往需要进行一系列,查找与替换如:Ⅰ改为A,Ⅱ改为B,Ⅲ改为C "我们的"改为"我".
现有的find命令只能一次替换一个,需要运行多次才可以.
能不能编个程序可以一次替换多文本呢?例如:
运行程序后提示:输入查找文本(多文本以/分隔):Ⅰ/Ⅱ/Ⅲ/我们的... 输入替换文本(多文本以/分隔):A/B/C/我...
这样可以一次替换多文本.修改的效率会有很大的提高!
先谢谢高手了!

它山之石 · 发表于 2004-9-22 10:50:22

我觉得你这个相法没有意义。而且容易出错。

qlz · 发表于 2004-9-29 21:59:12

可能会出错的吧！

海豚 · 发表于 2004-9-29 23:33:45

一次要改变这么多的机会并不大，而且同意楼上所说的，容易出错，错了后有时不能发现，当发现后如果已经进行了其他有用的操作，不知道是否UNDO好。

lmt112233 · 发表于 2004-10-4 13:05:19

一次替换多文本.效率不一定提高.萬一出错也挺煩

自由的鱼 · 发表于 2004-10-7 21:32:17

不会一次替换这么多吧?

逐月飞鸿 · 发表于 2007-4-23 11:21:09

defun c:mfind ()
;(CMDLA0)
  (setq ss (ssget  '((0 . "TEXT,MTEXT,ATTRIB,ATTDEF,SHAPE")))
i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
(setq #txt (dxf 1 (entget s1)))
(cond-user)
  )
;(CMDLA1)
)
(defun cond-user ()
  (cond
;替换后文字，查找文字
((= #txt "Ⅷ") (sub_upd s1 1 "H"))
   ((= #txt "Ⅶ") (sub_upd s1 1 "G"))
((= #txt "Ⅵ") (sub_upd s1 1 "F"))
((= #txt "Ⅴ") (sub_upd s1 1 "E"))
((= #txt "Ⅳ") (sub_upd s1 1 "D"))
((= #txt "Ⅲ") (sub_upd s1 1 "C"))
((= #txt "Ⅱ") (sub_upd s1 1 "B"))
((= #txt "Ⅰ") (sub_upd s1 1 "A"))
;;…oldtext-----→newtext…用户自定义
(t (princ))
  )
)
(defun dxf (code elist / cc) (cdr (assoc code elist)))
(defun sub_upd (ename code #new)
  (setq cc (subst (cons code #new)
   (assoc code (entget ename))
   (entget ename)))
  (entmod cc)
  (entupd ename)
)

coolzhb · 发表于 2007-4-26 16:06:29

最初由逐月飞鸿发布
[B]多文本的批量查找与替换:
我们在文本的查找与替换的时候,我们往往需要进行一系列,查找与替换如:Ⅰ改为A,Ⅱ改为B,Ⅲ改为C "我们的"改为"我".
现有的find命令只能一次替换一个,需要运行多次才可以.
能不能编个程序... [/B]

文字修改大师可以，ddctt里面有多重替换！

idchris · 发表于 2008-7-27 20:42:28

一直在找这个东西！！太好了！！

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

[编程申请]：多文本的查找与替换:

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [编程申请]：多文本的查找与替换: