月光软件站 - 编程文档 - 网站制作 - 批量查找/替换,包括子目录,自动备份.简单脚本.

网站制作

本类阅读TOP10

·IIS 安装配置全攻略
·html基础学习笔记（2）
·html基础学习笔记（1）
·用VS.NET打开网上下载的.NET web项目出错的解决办法
·如何在网页上实现进度条
·限制TextArea区的文字输入数量
·HTML 4.0 语言快速参考
·在weblogic上配置SSL
·页面垂直居中的两种方法
·Zope/Plone内容管理系统的探讨与应用－内容管理系统（CMS）的概述

→ 分类导航

VC语言	Delphi
VB语言	ASP
Perl	Java
Script	数据库
其他语言	游戏开发
文件格式	网站制作
软件工程	.NET开发

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

作者：未知来源：月光软件站 加入时间：2005-5-13　月光软件站

<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>

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

相关文章：

相关软件：