'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格式，并且有換行效果。

您可能感興趣的文章:

txt
html

相關(guān)文章

vbs后臺運(yùn)行bat刪除自身的代碼
在VBS最后加上以下語句即可刪除批處理和腳本本身（假設(shè)運(yùn)行的批處理為 run.cmd ，啟動批處理的腳本為 run.vbs ）
2008-08-08
VBS教程：VBscript屬性-IgnoreCase 屬性
VBS教程：VBscript屬性-IgnoreCase 屬性...
2006-11-11
VBS教程：方法-WriteLine 方法
這篇文章為大家介紹了vbs的writeline方法，就是向 TextStream 文件寫入指定字符串和新行字符
2006-11-11
Wscript 和 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.exe
2023-06-06
VBS教程：屬性-FreeSpace 屬性
VBS教程：屬性-FreeSpace 屬性...
2006-11-11
VBS相冊生成腳本[
VBS相冊生成腳本[...
2006-09-09
VBScript開發(fā)自動化測試腳本的方法分析
很多人都覺得微軟的VBScript功能比較弱，如果從開發(fā)自動化測試的角度來講，更是不可能了。從我對VBScript腳本的了解來看，對一個(gè)腳本是否可以做自動化測試需要這個(gè)測試人員具備兩方面的知識，第一個(gè)，就是對VBScript腳本開發(fā)語言精通，要了解VBScript的核心技術(shù)如何更廣泛的應(yīng)用；第二個(gè)，就是要有自動化的測試思想，這個(gè)一定得是做過測試工作的能夠了解的多一些。
2008-03-03
VBScript 中的字節(jié)數(shù)據(jù)操作函數(shù)
VBScript 中的字節(jié)數(shù)據(jù)操作函數(shù)...
2006-06-06