將HTML或txt文件轉(zhuǎn)換為ASP輸出的vbs代碼
使用方法:手工修改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調(diào)用WMI實現(xiàn)搜索硬盤mp3文件
欄 目:vb
下一篇:用vbs讀取index.dat內(nèi)容的實現(xiàn)代碼
本文標題:將HTML或txt文件轉(zhuǎn)換為ASP輸出的vbs代碼
本文地址:http://www.jygsgssxh.com/a1/vb/7475.html
您可能感興趣的文章
- 01-10VBScript教程 第二課在HTML頁面中添加VBscript代碼
- 01-10VBS教程:屬性-Name 屬性
- 01-10VBS教程:屬性-Item 屬性
- 01-10VBS教程:方法-Copy 方法
- 01-10VBS教程:方法-Move 方法
- 01-10VBS常用腳本 好東西
- 01-10遠程或本地獲取系統(tǒng)信息的腳本RGIS.vbs
- 01-10用vba實現(xiàn)將記錄集輸出到Excel模板
- 01-10VBS中常用腳本代碼
- 01-10可以將文件轉(zhuǎn)換為vbs語句的vbs代碼


閱讀排行
本欄相關(guān)
- 01-10下載文件到本地運行的vbs
- 01-10飄葉千夫指源代碼,又稱qq刷屏器
- 01-10SendKeys參考文檔
- 01-10什么是一個高效的軟件
- 01-10VBS中的正則表達式的用法大全 &l
- 01-10exe2swf 工具(Adodb.Stream版)
- 01-10VBS中SendKeys的基本應(yīng)用
- 01-10用VBSCRIPT控制ONSUBMIT事件
- 01-10VBScript教程 第十一課深入VBScript
- 01-10VBScript語法速查及實例說明
隨機閱讀
- 01-10使用C語言求解撲克牌的順子及n個骰子
- 08-05dedecms(織夢)副欄目數(shù)量限制代碼修改
- 01-11ajax實現(xiàn)頁面的局部加載
- 08-05織夢dedecms什么時候用欄目交叉功能?
- 01-11Mac OSX 打開原生自帶讀寫NTFS功能(圖文
- 01-10delphi制作wav文件的方法
- 08-05DEDE織夢data目錄下的sessions文件夾有什
- 04-02jquery與jsp,用jquery
- 01-10C#中split用法實例總結(jié)
- 01-10SublimeText編譯C開發(fā)環(huán)境設(shè)置


