用VBS將一篇txt后綴的內(nèi)容保存為html格式

來(lái)源：本站原創(chuàng)|時(shí)間：2020-01-10|欄目：vb|點(diǎn)擊：次

do.vbs

復(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托動(dòng)到do.vbs上。即可將txt的內(nèi)容生成為html格式，并且有換行效果。

上一篇：vbs下用Shell.Application獲取圖片分辨率

欄目：vb

下一篇：vbs字符串操作小考題

本文標(biāo)題：用VBS將一篇txt后綴的內(nèi)容保存為html格式

本文地址：http://mengdiqiu.com.cn/a1/vb/7484.html

更多vb

欧美大屁股bbbbxxxx,狼人大香伊蕉国产www亚洲,男ji大巴进入女人的视频小说,男人把ji大巴放进女人免费视频,免费情侣作爱视频

vb

用VBS將一篇txt后綴的內(nèi)容保存為html格式

您可能感興趣的文章

閱讀排行

本欄相關(guān)

隨機(jī)閱讀