如何完成文字replace功能?

mikewolf2k 发表于 2004-3-30 18:55:00

如题,vba中如何对text中的文字完成替换功能?用不着一个个读取text的内容再替换吧?

mccad 发表于 2004-3-30 19:05:00

你不读怎么知道你要把什么样的内容替换掉，你不会是不管什么内容都替换吧。

myfreemind 发表于 2004-3-30 20:06:00

如果你要全部替换就不用判断！

mikewolf2k 发表于 2004-3-30 21:00:00

就是把图中所有"aa"换成"bb"(保证图中存在"aa"字符),跟autocad中的find/replace完成的功能一样,编程怎么做?

subtlation 发表于 2004-3-31 08:42:00

自己写函数，在文字或属性中查找aa，用bb替换

myfreemind 发表于 2004-4-1 18:38:00

if ent.textstring="aa" then

ent.textstring="bb"

end if

ent.update

做一个循环就可以了！

mikewolf2k 发表于 2004-4-1 19:02:00

非得这么做吗,因为我先编程将cad中的text导出到excel的a列中,然后在b列中写入a列相应文字的替换文字,计划再编程将cad中的text替换成b列中相应的文字.

如果按上面的方法,那么得循环N x N次.理论上应该很慢的,如果能调用cad内置的find/replace命令就方便了.有没有其他快些的方法?

myfreemind 发表于 2004-4-1 20:08:00

呵呵，这样做简单嘛，也不会很慢

81979036 发表于 2005-9-16 14:43:00

11111111111111111111

1dddddddddddddddddddddddd

MJTD_7777 发表于 2005-9-16 14:46:00

myfreemind发表于2004-4-1 18:38:00static/image/common/back.gifif ent.textstring=\"aa\" then

ent.textstring=\"bb\"
end if
ent.update
做一个循环就可以了！

<BR>建议在此操作之前，先建立一个文字的选择集，然后在这个选择集中进行操作，这样可以快一些。

页: [1] 2

明经CAD社区's Archiver

如何完成文字replace功能?

11111111111111111111