[问题求助] 求VBS修改文件夹下指定文本文件里的内容

currentpath = createobject("Scripting.FileSystemObject").GetFolder(".").Path
msgbox (currentpath)  
                                                      
MsgBox ("Please check the board name , is ok ?")
MsgBox Mid (currentpath,23,5)             
   


set fso=createobject("scripting.filesystemobject")
set fil=fso.opentextfile("testplan")
s=fil.readall
fil.close
set fi=fso.opentextfile("testplan",2)
Rem s=Replace(s,"global IYET_Analog_Tests_Attempts, IYET_VectorlessTest_Attempts","global kite_name$, IYET_Analog_Tests_Attempts, IYET_VectorlessTest_Attempts"& vbcrlf &"kite_name$=aaa")
s=Replace(s,"report is FailRep_Path$&Serial$(1)&","report  is  FailRep_Path$&Serial$(1)&'_'& 'kite_name'&")
s=Replace(s,"kite_name",Mid (currentpath,23,5))
fi.write s
fi.close
复制代码