模板
教程
環境
性能
功能
管理
批量查找/替換,包括子目錄,自動備份.簡單腳本.
發表于：2007-05-25來源：作者：點擊數：
標簽：
HTML HEAD META name=VI60_defaultClientScript content= Java Script META NAME=GENERATOR Content=Microsoft Visual Studio 6.0 TITLE/TITLE SCRIPT LANGUAGE= java script !-- //-- /SCRIPT script language= vb script '頭太暈, http://blog.csdn.net/su
<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>
通過修改,可使其支持正則表達式.
