用VBS將一篇txt后綴的內(nèi)容保存為html格式
更新時間：2011年01月11日 00:44:48 作者：
把txt文件托放到這個vbs上試一下，它會自動生成一個htm文件。需要修的地方說一下。
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 "<html>"
htm.WriteLine "<head>"
htm.WriteLine "<title>"&title&"</title>"
htm.WriteLine "</head>"
htm.WriteLine "<body>"
htm.WriteLine "<h1 align=center>"&title&"</h1>"
htm.WriteLine "<hr color=red>"
For Each line In Split(fso.OpenTextFile(txt).ReadAll ,vbCrLf)
htm.WriteLine line&"<br>"
Next
htm.WriteLine "</body>"
htm.WriteLine "</html>"
htm.Close
WScript.Echo "將txt轉(zhuǎn)換為html成功"
將上面的代碼保存為do.vbs,然后將1.txt托動到do.vbs上。即可將txt的內(nèi)容生成為html格式，并且有換行效果。
復(fù)制代碼 代碼如下:
'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 "<html>"
htm.WriteLine "<head>"
htm.WriteLine "<title>"&title&"</title>"
htm.WriteLine "</head>"
htm.WriteLine "<body>"
htm.WriteLine "<h1 align=center>"&title&"</h1>"
htm.WriteLine "<hr color=red>"
For Each line In Split(fso.OpenTextFile(txt).ReadAll ,vbCrLf)
htm.WriteLine line&"<br>"
Next
htm.WriteLine "</body>"
htm.WriteLine "</html>"
htm.Close
WScript.Echo "將txt轉(zhuǎn)換為html成功"
將上面的代碼保存為do.vbs,然后將1.txt托動到do.vbs上。即可將txt的內(nèi)容生成為html格式，并且有換行效果。
相關(guān)文章
用VBS控制鼠標(biāo)的實現(xiàn)代碼（獲取鼠標(biāo)坐標(biāo)、鼠標(biāo)移動、鼠標(biāo)單擊、鼠標(biāo)雙擊、鼠標(biāo)右擊）
不止一個人問過我怎樣用VBS控制鼠標(biāo)操作，比如：怎么用VBS獲取鼠標(biāo)指針的坐標(biāo)位置？怎么用VBS移動鼠標(biāo)2011-10-10
今天在腳本之家看了幾篇關(guān)于vbs FileSystemObject的一些資料，發(fā)現(xiàn)不夠詳細與完整這里剛好發(fā)現(xiàn)了一篇更好的文章特整理一下,需要的朋友可以參考下2018-12-12
有些時候需要定期去執(zhí)行一段程序，怎么辦？這里提供一個方法，雖然有點繞，但效果還不錯,需要的朋友可以參考下2019-10-10
今天用腳本實現(xiàn)幾個文本文件的合并，被FSO中的幾個函數(shù)絆住了好久，最終認定這里應(yīng)該是Window里的Bug。2009-04-04
用vbs+xmldom實現(xiàn)的獲取qq簽名的腳本2008-06-06
VBS教程：運算符-連接運算符 (&)...2006-11-11
切換dos并dir的vbs...2006-08-08
代碼有點亂啊，大家可以自己整理下啊。2009-12-12
VBS教程：VBscript語句-For...Next 語句
VBS教程：VBscript語句-For...Next 語句...2006-11-11
利用正則判別素數(shù)，來源于網(wǎng)絡(luò)，神人,喜歡vbs的朋友可以參考下2013-07-07