批量查找/替换,包括子目录,自动备份.简单脚本.
来源:互联网 发布:华为荣耀盒子软件 编辑:程序博客网 时间:2024/05/07 18:34
<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>
通过修改,可使其支持正则表达式.
<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>
通过修改,可使其支持正则表达式.
- 批量查找/替换,包括子目录,自动备份.简单脚本.
- 一个批量安装文件夹下(包括子目录下)全部的Android apk文件批处理脚本
- 一个批量安装文件夹下(包括子目录下)全部的Android apk文件批处理脚本
- 一个批量安装文件夹下(包括子目录下)全部的Android apk文件批处理脚本
- Linux批量查找替换
- 批量查找替换字符串
- vim 批量查找替换
- shell 批量查找替换
- vim 批量查找替换
- vim 批量查找替换
- 批量替换文件名脚本
- linux下批量查找替换
- vim 中的批量查找替换
- vim 批量查找替换字符
- 批量替换扩展名的脚本
- 查找某个目录下的所有文件(包括子目录)
- 查找指定目录下的特定文件 (包括子目录)
- 查找某个目录下的所有文件(包括子目录)
- 一个真正合格的程序员应该具有的素质(转载)
- 在Hibernate中实现复杂的数据映射
- 为OpenSource担忧---从在weblogic下使用webwork2说起
- Bill Gates在某大学毕业典礼的演讲(转载)
- jad文件的错误代码,分享
- 批量查找/替换,包括子目录,自动备份.简单脚本.
- 终于有我自己的blog了
- 欧美物流链首采RFID系统
- JBPM的任务分派机制
- 两个多项式相加!
- 编程经验点滴(四)——《使用类的成员函数作为线程的执行函数》
- 欢迎来到罗云彬的编程乐园!
- 杂想0329
- 游标、游标的优点和种类(这是转的)