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

10年的富川網(wǎng)站建設(shè)經(jīng)驗，針對設(shè)計、前端、開發(fā)、售后、文案、推廣等六對一服務(wù)，響應(yīng)快，48小時及時工作處理。成都營銷網(wǎng)站建設(shè)的優(yōu)勢是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同，自動調(diào)整富川建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調(diào)整網(wǎng)站的寬度，無論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設(shè)計，從而大程度地提升瀏覽體驗。創(chuàng)新互聯(lián)從事“富川網(wǎng)站設(shè)計”,“富川網(wǎng)站推廣”以來，每個客戶項目都認(rèn)真落實執(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托動到do.vbs上。即可將txt的內(nèi)容生成為html格式，并且有換行效果。

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

網(wǎng)站題目：怎么用VBS將一篇txt后綴的內(nèi)容保存為html格式-創(chuàng)新互聯(lián)
本文來源：http://weahome.cn/article/dsgsjh.html