一个没有什么用的程序.自动替换文件内容,并生成复本.
2005-03-10 15:18
701 查看
今天我们领导说要做什么GOOGLE的推广,必须把页面上的静态代码和图片给对方,也就是要把所有网页中的ASP代码去掉.
一个一个的改,实在太麻烦了,程序员嘛,怎么做这种千篇一律的工作呢?写程序吧.呵呵.
<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>
set fso=createobject("scripting.filesystemobject")
function rexp(txtval)
set rexv=new regexp
rexv.Global=true
rexv.IgnoreCase=true
rexv.Multiline=true
rexv.Pattern="/</%(.|/s)*?/%/>"
rexp=rexv.Replace(txtval,"")
end function
sub refile(oFilename,nFilename)
set fr=fso.OpenTextFile(oFilename)
set fw=fso.CreateTextFile(nFilename,true)
fw.write rexp(fr.readall)
fr.close
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 & "/" & left(nfile.name,strln) & "htm" else fso.CopyFile 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="">
<INPUT type="text" id=text2 name=text2 value="">
<INPUT type="button" value="Button" id=button1 name=button1 onclick="F_Start(text1.value,text2.value);alert('ok');">
</BODY>
</HTML>
一个一个的改,实在太麻烦了,程序员嘛,怎么做这种千篇一律的工作呢?写程序吧.呵呵.
<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>
set fso=createobject("scripting.filesystemobject")
function rexp(txtval)
set rexv=new regexp
rexv.Global=true
rexv.IgnoreCase=true
rexv.Multiline=true
rexv.Pattern="/</%(.|/s)*?/%/>"
rexp=rexv.Replace(txtval,"")
end function
sub refile(oFilename,nFilename)
set fr=fso.OpenTextFile(oFilename)
set fw=fso.CreateTextFile(nFilename,true)
fw.write rexp(fr.readall)
fr.close
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 & "/" & left(nfile.name,strln) & "htm" else fso.CopyFile 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="">
<INPUT type="text" id=text2 name=text2 value="">
<INPUT type="button" value="Button" id=button1 name=button1 onclick="F_Start(text1.value,text2.value);alert('ok');">
</BODY>
</HTML>
相关文章推荐
- 一个自动生成密码文件的小程序
- 额,你在main.xml中加了一个id以后,要右键点save,才会将这个id加入到R中,否则是没有的。。。R里的东西是程序自动生成的~~~
- c++程序编译后自动生成的文件有什么用
- 为什么在eclipes为创建一个android布局文件在R中没有自动生成
- 程序在Debug、Release下运行及单独运行Debug下的exe文件时没有问题;可是单独运行Release所生成的exe文件时,点击某一个按钮时,程序崩溃
- c++程序编译后自动生成的文件有什么用
- 用一个文件的内容 替换另一个文件的某些内容
- 软件工程第一个程序:像阿超那样,花20分钟写一个能自动生成小学四则运算题目的 “软件”,要求:除了整数以外,还要支持真分数的四则运算。
- r cannot be resolved to a variable 问题解决 / r.java文件没有自动生成 分类: Android安装及配置 2014-06-22 18:03 141人阅读 评论(0) 收藏
- 用INNO SETUP做安装程序时,如何自动注册一个自己开发的DLL文件??
- python+selenium 的安装程序步骤到自动运行一个Python文件
- 因为公司的产品用asp开发, 前一段时间用asp写了一个生成静态页面并分页的程序,但缘于对.net的热爱,写了这个.net下的生成静态页面并分页的程序。 主要的原理就是替换模板里的特殊字符。
- JXL包大解析;Java程序生成excel文件和解析excel文件内容
- Linux操作系统的简单指令及如何使用vim编写一个程序,然后使用gcc查看【预处理】、【编译】、【汇编】、【链接】各阶段文件的内容。
- 用myeclipse如何将java程序生成一个.exe可运行文件?
- Hibernate使用自定义脚本替换注解或者xml文件中的自动生成表结构
- r cannot be resolved to a variable 问题解决 / R.java文件没有自动生成
- 一个带采集远程文章内容,保存图片,生成文件等完整的采集功能
- win7:该文件没有与之关联的程序来执行该操作。请安装一个程序,或者,如果已安装程序,请在“默认程序”控
- vs2010 程序出错异常后,自动生成dmp文件