将HTML或txt文件转换为ASP输出的vbs代码

2019-10-26 18:04:04

字体：大中小

来源：转载

供稿：网友

使用方法:手工修改html文件的名称与想要生成的asp的文件名称，然后将下面的代码保存为1.vbs，跟1.html放同一个目录双击运行即可。
复制代码代码如下:

html = "1.html"
asp = "1.asp"
Set fso = CreateObject("Scripting.FileSystemObject")
Set fhtml = fso.OpenTextFile(html, 1)
Set fasp = fso.OpenTextFile(asp, 2, true)
While fhtml.AtEndOfStream <> true
text = fhtml.ReadLine
text = "Response.Write "&""""&Replace(text, """", """""")&""""
fasp.WriteLine(text)
wend
fhtml.close
fasp.close
set fso = nothing
msgbox "success"

您可能感兴趣的文章:

VBS合并一个文件夹里的TXT的实现代码vbs解决处理TXT文本数据相关问题实现代码VBS实现将Excel表格保存为txt文本TXT转HTM、HTML「TXT转网页」的vbs实现代码用vbs产生的若干个随机数并写入到一个.txt中的代码用VBS将一篇txt后缀的内容保存为html格式vbs实现的支持拖动的txt文本切割器vbs操作txt文本文件常用方法与函数代码

上一篇：VBS中通过调用CAPICOM对象实现SHA1&amp;MD5加密

下一篇：vbs TLI.TLIApplication 被遗忘的COM组件