导航：首页 > 开发技术 >

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

发表于：2024-10-25 作者：千家信息网编辑

千家信息网最后更新 2024年10月25日，这篇文章主要介绍了怎么用VBS将一篇txt后缀的内容保存为html格式，具有一定借鉴价值，感兴趣的朋友可以参考下，希望大家阅读完这篇文章之后大有收获，下面让小编带着大家一起了解一下。do.vbs代码如

千家信息网最后更新 2024年10月25日怎么用VBS将一篇txt后缀的内容保存为html格式

这篇文章主要介绍了怎么用VBS将一篇txt后缀的内容保存为html格式，具有一定借鉴价值，感兴趣的朋友可以参考下，希望大家阅读完这篇文章之后大有收获，下面让小编带着大家一起了解一下。

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 ""
htm.WriteLine ""
htm.WriteLine ""&title&""
htm.WriteLine ""
htm.WriteLine ""
htm.WriteLine "

"&title&"

"
htm.WriteLine "

"
For Each line In Split(fso.OpenTextFile(txt).ReadAll ,vbCrLf)
htm.WriteLine line&"
"
Next
htm.WriteLine ""
htm.WriteLine ""
htm.Close
WScript.Echo "将txt转换为html成功"

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

感谢你能够认真阅读完这篇文章，希望小编分享的"怎么用VBS将一篇txt后缀的内容保存为html格式"这篇文章对大家有帮助，同时也希望大家多多支持，关注行业资讯频道，更多相关知识等着你来学习!

很赞哦！