[求助]：紧急，修改多个文件内的文字

ww_tj

有109个图，需要将每个图中的"d=9"文字修改为"e=80"，"f=19"文字修改为"g=70"，什么方法可以将有109个图一次修改完成，谢谢。紧急。

ywt

用FIND命令来解决这个问题

ww_tj

用FIND得一个一个的修改，能否有更好的方法，譬如用程序……，哪位大侠能否赐教一个VB或VBA程序呢？

雪山飞狐(lzh)

109个图，都在一个路径下么？发个样图上来看看

lonelycoder

ww_tj ：如果哥哥您对我还有一丝信任，
那么请发邮件到:
lonelycoder@sina.com
在这里交流很浪费您宝贵的时间，而我是真正能帮您在2分钟之内把问题圆满解决掉的唯一的那个人。
Do trust me, man!

ww_tj

都在一个路径下

自由的鱼

http://www.xdcad.net/forum/showthread.php?s=&threadid=164462

ll_j

使用命令文件打开，替换，关闭。
看看我贴的程序及示例。

ww_tj

黄金长老，因为急需用，我的现金不够，能发给我吗？我的email是：
pb_wang@tom.com

ll_j

已发，请查收。

ww_tj

黄金长老，谢谢，问题已经解决了，再次感谢。
另外我想请教一下如果用vb编程能否解决此问题，若能，请赐教。

ll_j

VB我不懂，不能乱说。

雪山飞狐(lzh)

VBA的（2004或2005版本）：

2. 
   
3. Sub MyReplace(PathName As String, str1 As String, str2 As String)
   
4.     Dim pFile As String
   
5.     Dim ObjDbx As Object
   
6.    
   
7.     pFile = Dir(PathName & "*.dwg")
   
8.     Set ObjDbx = GetInterfaceObject("ObjectDBX.AxDbDocument.16")
   
9.     '2002版本下改为Set ObjDbx = GetInterfaceObject("ObjectDBX.AxDbDocument.1")
   
10.    
    
11.     Do While pFile <> ""
    
12.         ObjDbx.Open PathName & pFile
    
13.         
    
14.         For Each i In ObjDbx.ModelSpace
    
15.             If i.ObjectName = "AcDbText" Or i.ObjectName = "AcDbMText" Then
    
16.                 i.textString = Replace(i.textString, str1, str2)
    
17.             End If
    
18.         Next i
    
19.         
    
20.         ObjDbx.SaveAs PathName & pFile
    
21.         pFile = Dir()
    
22.         
    
23.     Loop
    
24.    
    
25. End Sub
    

<br /> Sub MyReplace(PathName As String, str1 As String, str2 As String)<br />     Dim pFile As String<br />     Dim ObjDbx As Object<br />     <br />     pFile = Dir(PathName & "*.dwg")<br />     Set ObjDbx = GetInterfaceObject("ObjectDBX.AxDbDocument.16")<br />     '2002版本下改为Set ObjDbx = GetInterfaceObject("ObjectDBX.AxDbDocument.1")<br />     <br />     Do While pFile <> ""<br />         ObjDbx.Open PathName & pFile<br />         <br />         For Each i In ObjDbx.ModelSpace<br />             If i.ObjectName = "AcDbText" Or i.ObjectName = "AcDbMText" Then<br />                 i.textString = Replace(i.textString, str1, str2)<br />             End If<br />         Next i<br />         <br />         ObjDbx.SaveAs PathName & pFile<br />         pFile = Dir()<br />         <br />     Loop<br />     <br /> End Sub<br />

silen618

这样修改之后，文件存为2004格式，能否直接存为2000或者R14格式。

urljit

高手就是高手，来此一遭不虚此行。