用VBS將一篇txt后綴的內(nèi)容保存為html格式
更新時(shí)間:2011年01月11日 00:44:48 作者:
把txt文件托放到這個(gè)vbs上試一下,它會自動生成一個(gè)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格式,并且有換行效果。
您可能感興趣的文章:
- VBS合并一個(gè)文件夾里的TXT的實(shí)現(xiàn)代碼
- vbs解決處理TXT文本數(shù)據(jù)相關(guān)問題實(shí)現(xiàn)代碼
- VBS實(shí)現(xiàn)將Excel表格保存為txt文本
- TXT轉(zhuǎn)HTM、HTML「TXT轉(zhuǎn)網(wǎng)頁」的vbs實(shí)現(xiàn)代碼
- 用vbs產(chǎn)生的若干個(gè)隨機(jī)數(shù)并寫入到一個(gè).txt中的代碼
- 將HTML或txt文件轉(zhuǎn)換為ASP輸出的vbs代碼
- vbs實(shí)現(xiàn)的支持拖動的txt文本切割器
- vbs操作txt文本文件常用方法與函數(shù)代碼
相關(guān)文章
VBS教程:VBscript屬性-IgnoreCase 屬性
VBS教程:VBscript屬性-IgnoreCase 屬性...2006-11-11Wscript 和 Cscript 運(yùn)行腳本的區(qū)別詳解
WSCRIPT與CScript的主要區(qū)別在于WSCRIPT窗口中運(yùn)行返回對話框,而CScrip在命令行中運(yùn)行,一般不需要特別注明,程序會提示2014-06-06視頻轉(zhuǎn)換大師WinMPG Video Convert 6.63
視頻轉(zhuǎn)換大師WinMPG Video Convert 6.63...2007-04-04使用vbs腳本來監(jiān)控windows服務(wù)器上的應(yīng)用程序(不存在就啟動)
這個(gè)vbs代碼主要實(shí)現(xiàn)的功能就是運(yùn)行該程序,就會在進(jìn)程中出現(xiàn)一個(gè)wscript.exe?它會每隔10s掃面一次進(jìn)程中是否存在notepad.exe這個(gè)程序,不存在就啟動。這個(gè)啟動程序可能跟進(jìn)程名不一樣,好比tomcat應(yīng)用,啟動的是startup.bat,后臺進(jìn)程名為java.exe2023-06-06VBScript 中的字節(jié)數(shù)據(jù)操作函數(shù)
VBScript 中的字節(jié)數(shù)據(jù)操作函數(shù)...2006-06-06