怎么用VBS將一篇txt后綴的內(nèi)容保存為html格式-創(chuàng)新互聯(lián)

這篇文章主要介紹了怎么用VBS將一篇txt后綴的內(nèi)容保存為html格式，具有一定借鑒價(jià)值，感興趣的朋友可以參考下，希望大家閱讀完這篇文章之后大有收獲，下面讓小編帶著大家一起了解一下。

10年的富川網(wǎng)站建設(shè)經(jīng)驗(yàn)，針對(duì)設(shè)計(jì)、前端、開(kāi)發(fā)、售后、文案、推廣等六對(duì)一服務(wù)，響應(yīng)快，48小時(shí)及時(shí)工作處理。成都營(yíng)銷網(wǎng)站建設(shè)的優(yōu)勢(shì)是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同，自動(dòng)調(diào)整富川建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調(diào)整網(wǎng)站的寬度，無(wú)論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設(shè)計(jì)，從而大程度地提升瀏覽體驗(yàn)。創(chuàng)新互聯(lián)從事“富川網(wǎng)站設(shè)計(jì)”,“富川網(wǎng)站推廣”以來(lái)，每個(gè)客戶項(xiàng)目都認(rèn)真落實(shí)執(zhí)行。

do.vbs

代碼如下:

'BY Coo_boi
If WScript.Arguments.Count=0 Then WScript.Quit
Dim fso,txt,htm
txt=WScript.Arguments(0)
Set fso=CreateObject("Scripting.FileSystemObject")
Set htm=fso.CreateTextFile(txt&".htm",True)
title=fso.GetFile(txt).Name
title=Left(title,Len(title)-4)
MsgBox title
htm.WriteLine ""
htm.WriteLine ""
htm.WriteLine ""
htm.WriteLine ""
htm.WriteLine ""
htm.WriteLine "

"&title&"

"
htm.WriteLine "

---

"
For Each line In Split(fso.OpenTextFile(txt).ReadAll ,vbCrLf)
htm.WriteLine line&"
"
Next
htm.WriteLine ""
htm.WriteLine ""
htm.Close
WScript.Echo "將txt轉(zhuǎn)換為html成功"

將上面的代碼保存為do.vbs,然后將1.txt托動(dòng)到do.vbs上。即可將txt的內(nèi)容生成為html格式，并且有換行效果。

感謝你能夠認(rèn)真閱讀完這篇文章，希望小編分享的“怎么用VBS將一篇txt后綴的內(nèi)容保存為html格式”這篇文章對(duì)大家有幫助，同時(shí)也希望大家多多支持創(chuàng)新互聯(lián)網(wǎng)站建設(shè)公司，，關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道，更多相關(guān)知識(shí)等著你來(lái)學(xué)習(xí)!

本文名稱：怎么用VBS將一篇txt后綴的內(nèi)容保存為html格式-創(chuàng)新互聯(lián)
鏈接分享：http://m.jiaotiyi.com/article/dsgsjh.html