用VBS将一篇txt后缀的内容保存为html格式

来源：本站原创|时间：2020-01-10|栏目：vb|点击：次

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下用Shell.Application获取图片分辨率

栏目：vb

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

本文标题：用VBS将一篇txt后缀的内容保存为html格式

本文地址：https://www.xiuzhanwang.com/a1/vb/7484.html

更多vb

vb

用VBS将一篇txt后缀的内容保存为html格式

您可能感兴趣的文章

阅读排行

本栏相关

随机阅读