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格式，并且有换行效果。
您可能感兴趣的文章:- VBS合并一个文件夹里的TXT的实现代码
- vbs解决处理TXT文本数据相关问题实现代码
- VBS实现将Excel表格保存为txt文本
- TXT转HTM、HTML「TXT转网页」的vbs实现代码
- 用vbs产生的若干个随机数并写入到一个.txt中的代码
- 将HTML或txt文件转换为ASP输出的vbs代码
- vbs实现的支持拖动的txt文本切割器
- vbs操作txt文本文件常用方法与函数代码
