使用方法:手工修改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文本文件常用方法与函数代码