《vbs批量修改文件,bat批处理文件调用执行vbs,并在cmd窗口打印返回.doc》由会员分享，可在线阅读，更多相关《vbs批量修改文件,bat批处理文件调用执行vbs,并在cmd窗口打印返回.doc（2页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、vbs批量修正文件，bat批处置文件挪用履行vbs，并在cmd窗口打印前往值vbs运转后果运用vbs足本对任务目次下的字符串进展交换并统计被修正的文件数主调的批处置办法将捕获该vbs足本运转后的后果并打印在比方代码t.vbs如下：cmd窗口。Setfso=Wscript.CreateObject(Scripting.FileSystemObject)flrName=D:Workspacesrcdirthatyouneeddealwithcount=0getthecountofmodifiedfilesfunctionTraversal(dir)setflr=fso.getfolder(dir)
2、setfs=flr.filesfindstr1=assembly:SecurityTransparentfindstringthatneedtobereplacedfindstr2=replace(findstr1,)becasusethereisspacecharinfindstr,soaddthisfindstr2replaceStr=assembly:replaceAllowPartiallyTrustedCallers()destinationstringinforeachfinfsiflcase(f.name)=assemblyinfo.csthensetfindf=fso.open
3、textfile(f)dowhilefindf.atendofstream=falsed=f.datelastmodifiedgetmodifieddatetimeofcurrentfilealltext=findf.readallif(InStr(alltext,findstr1)0)thens=replace(alltext,findstr1,replaceStr)count=count+1findf.close()Ifnofindstr2,deletethefollowingelseifblockelseif(InStr(alltext,findstr2)0)thens=replace(
4、alltext,findstr2,replaceStr)count=count+1findf.close()elsefindf.close()exitdoendifsetr=fso.opentextfile(f,2,true)r.writesd2=f.datelastmodifiedifd2=dthenexitdoloopendifnextsetfs=flr.subfoldersforeachfinfsTraversal(f.path)nextendfunctionTraversal(flrName)msgbox(Done!&count&filesweremodifiedsuccessfull
5、y.)wscript.echoDone!&count&filesweremodifiedsuccessfully.valuepopupbywscript.echocanbereceivedby.bateasilyWscript.quitcountthisvariablecountinordertogetareturnvalueby%ErrorLevel%下面的操纵只履行了处置文件的步调假如不需求提取运转后果，在批处置或主调vbs足本里直截了当运转该vbs文件就行了。假如在bat里挪用该vbs足本，并盼望打印出提醒信息能够用下面的两种办法来完成：1，在bat中参加如下代码echoofffor/fdelims=%ain(cscript/nologoc:t.vbs)do(setScriptOut=%a)echoResult:%ScriptOut%下面的echo打印字符串的格局本人依照需求界说，c:t.vbs文件目次修正为你的vbs文件目次。2，bat中参加echooffcscript/nologoc:t.vbsecho-Modify%ErrorLevel%AssemblyInfo.csfilessuccessfully.-