使用方法:手工修改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的實現(xiàn)代碼
- vbs解決處理TXT文本數(shù)據(jù)相關(guān)問題實現(xiàn)代碼
- VBS實現(xiàn)將Excel表格保存為txt文本
- TXT轉(zhuǎn)HTM、HTML「TXT轉(zhuǎn)網(wǎng)頁」的vbs實現(xiàn)代碼
- 用vbs產(chǎn)生的若干個隨機數(shù)并寫入到一個.txt中的代碼
- 用VBS將一篇txt后綴的內(nèi)容保存為html格式
- vbs實現(xiàn)的支持拖動的txt文本切割器
- vbs操作txt文本文件常用方法與函數(shù)代碼