批量查找/替换,包括子目录,自动备份.简单脚本.|中文方案文档站(提供各类方案下载,WORD文档下载,范文,案例等)

<html>
<head>
<meta name=vi60_defaultclientscript content=javascript>
<meta name="generator" content="microsoft visual studio 6.0">
<title></title>
<script language=javascript>

</script>
<script language=vbscript>
'头太晕, http://blog.csdn.net/super852 http://spaces.msn.com/members/headfaint/
set fso=createobject("scripting.filesystemobject")
dim oldstring
dim newstring
sub refile(ofilename,nfilename)
   dim txtfile
   fso.copyfile ofilename,nfilename
   set fr=fso.opentextfile(ofilename)
   txtfile=replace(fr.readall,oldstring,newstring)
   fr.close
   set fw=fso.opentextfile(ofilename,2)
   fw.write txtfile
   fw.close
end sub
sub f_start(ofolder,nfolder)
   f_startn ofolder,nfolder
   set fld=fso.getfolder(ofolder)
   for each nfile in fld.files
      astrn=nfile.name
      strln=instrrev(astrn,".asp")
      if strln then refile ofolder & "\" & nfile.name,nfolder & "\" & nfile.name
   next
end sub

sub f_startn(ofolder,nfolder)
   set fld=fso.getfolder(ofolder)
   for each ifolder in fld.subfolders
       fso.createfolder(nfolder & "\" & ifolder.name)
       f_start ifolder,nfolder & "\" & ifolder.name
   next
end sub
</script>
</head>

<body>
目录:<input type="text" id=text1 name=text1 value=""><br>
备份目录:<input type="text" id=text2 name=text2 value=""><br>
查找:<input type="text" id=text3 name=text3 value=""><br>
替换:<input type="text" id=text4 name=text4 value=""><br>
<input type="button" value="button" id=button1 name=button1 onclick="oldstring=text3.value;newstring=text4.value;f_start(text1.value,text2.value);alert('ok');">
</body>
</html>

通过修改,可使其支持正则表达式.

批量查找/替换,包括子目录,自动备份.简单脚本.

[入库：2005年8月18日] [更新：2007年3月25日]