將HTML或txt文件轉(zhuǎn)換為ASP輸出的vbs代碼
來(lái)源：本站原創(chuàng)|時(shí)間：2020-01-10|欄目：vb|點(diǎn)擊： 次
使用方法:手工修改html文件的名稱與想要生成的asp的文件名稱，然后將下面的代碼保存為1.vbs，跟1.html放同一個(gè)目錄雙擊運(yùn)行即可。
復(fù)制代碼 代碼如下:
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實(shí)現(xiàn)搜索硬盤(pán)mp3文件
欄 目：vb
下一篇：用vbs讀取index.dat內(nèi)容的實(shí)現(xiàn)代碼
本文標(biāo)題：將HTML或txt文件轉(zhuǎn)換為ASP輸出的vbs代碼
本文地址：http://mengdiqiu.com.cn/a1/vb/7475.html
您可能感興趣的文章
- 01-10VBScript教程 第二課在HTML頁(yè)面中添加VBscript代碼
- 01-10VBS教程：屬性-Name 屬性
- 01-10VBS教程：屬性-Item 屬性
- 01-10VBS教程：方法-Copy 方法
- 01-10VBS教程：方法-Move 方法
- 01-10VBS常用腳本 好東西
- 01-10遠(yuǎn)程或本地獲取系統(tǒng)信息的腳本RGIS.vbs
- 01-10用vba實(shí)現(xiàn)將記錄集輸出到Excel模板
- 01-10VBS中常用腳本代碼
- 01-10可以將文件轉(zhuǎn)換為vbs語(yǔ)句的vbs代碼
閱讀排行
- 1C語(yǔ)言 while語(yǔ)句的用法詳解
- 2java 實(shí)現(xiàn)簡(jiǎn)單圣誕樹(shù)的示例代碼(圣誕
- 3利用C語(yǔ)言實(shí)現(xiàn)“百馬百擔(dān)”問(wèn)題方法
- 4C語(yǔ)言中計(jì)算正弦的相關(guān)函數(shù)總結(jié)
- 5c語(yǔ)言計(jì)算三角形面積代碼
- 6什么是 WSH(腳本宿主)的詳細(xì)解釋
- 7C++ 中隨機(jī)函數(shù)random函數(shù)的使用方法
- 8正則表達(dá)式匹配各種特殊字符
- 9C語(yǔ)言十進(jìn)制轉(zhuǎn)二進(jìn)制代碼實(shí)例
- 10C語(yǔ)言查找數(shù)組里數(shù)字重復(fù)次數(shù)的方法
本欄相關(guān)
- 01-10下載文件到本地運(yùn)行的vbs
- 01-10飄葉千夫指源代碼，又稱qq刷屏器
- 01-10SendKeys參考文檔
- 01-10什么是一個(gè)高效的軟件
- 01-10VBS中的正則表達(dá)式的用法大全 &l
- 01-10exe2swf 工具(Adodb.Stream版)
- 01-10VBS中SendKeys的基本應(yīng)用
- 01-10用VBSCRIPT控制ONSUBMIT事件
- 01-10VBScript教程 第十一課深入VBScript
- 01-10VBScript語(yǔ)法速查及實(shí)例說(shuō)明
隨機(jī)閱讀
- 01-10使用C語(yǔ)言求解撲克牌的順子及n個(gè)骰子
- 08-05dedecms(織夢(mèng))副欄目數(shù)量限制代碼修改
- 01-11ajax實(shí)現(xiàn)頁(yè)面的局部加載
- 08-05織夢(mèng)dedecms什么時(shí)候用欄目交叉功能？
- 01-11Mac OSX 打開(kāi)原生自帶讀寫(xiě)NTFS功能(圖文
- 01-10delphi制作wav文件的方法
- 08-05DEDE織夢(mèng)data目錄下的sessions文件夾有什
- 04-02jquery與jsp,用jquery
- 01-10C#中split用法實(shí)例總結(jié)
- 01-10SublimeText編譯C開(kāi)發(fā)環(huán)境設(shè)置