用VBS将一篇txt后缀的内容保存为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转换为html成功"

将上面的代码保存为do.vbs,然后将1.txt托动到do.vbs上。即可将txt的内容生成为html格式，并且有换行效果。

您可能感兴趣的文章:

txt
html

vbs后台运行bat删除自身的代码
在VBS最后加上以下语句即可删除批处理和脚本本身（假设运行的批处理为 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 运行脚本的区别详解
WSCRIPT与CScript的主要区别在于WSCRIPT窗口中运行返回对话框，而CScrip在命令行中运行，一般不需要特别注明，程序会提示
2014-06-06
视频转换大师WinMPG Video Convert 6.63
视频转换大师WinMPG Video Convert 6.63...
2007-04-04
使用vbs脚本来监控windows服务器上的应用程序(不存在就启动)
这个vbs代码主要实现的功能就是运行该程序，就会在进程中出现一个wscript.exe 它会每隔10s扫面一次进程中是否存在notepad.exe这个程序,不存在就启动。这个启动程序可能跟进程名不一样，好比tomcat应用，启动的是startup.bat，后台进程名为java.exe
2023-06-06
VBS教程：属性-FreeSpace 属性
VBS教程：属性-FreeSpace 属性...
2006-11-11
VBS相册生成脚本[
VBS相册生成脚本[...
2006-09-09
VBScript开发自动化测试脚本的方法分析
很多人都觉得微软的VBScript功能比较弱，如果从开发自动化测试的角度来讲，更是不可能了。从我对VBScript脚本的了解来看，对一个脚本是否可以做自动化测试需要这个测试人员具备两方面的知识，第一个，就是对VBScript脚本开发语言精通，要了解VBScript的核心技术如何更广泛的应用；第二个，就是要有自动化的测试思想，这个一定得是做过测试工作的能够了解的多一些。
2008-03-03
VBScript 中的字节数据操作函数
VBScript 中的字节数据操作函数...
2006-06-06