怎么用VBS将一篇txt后缀的内容保存为html格式-创新互联-成都快上网建站

怎么用VBS将一篇txt后缀的内容保存为html格式-创新互联

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

10年的富川网站建设经验,针对设计、前端、开发、售后、文案、推广等六对一服务,响应快,48小时及时工作处理。成都营销网站建设的优势是能够根据用户设备显示端的尺寸不同,自动调整富川建站的显示方式,使网站能够适用不同显示终端,在浏览器中调整网站的宽度,无论在任何一种浏览器上浏览网站,都能展现优雅布局与设计,从而大程度地提升浏览体验。创新互联从事“富川网站设计”,“富川网站推广”以来,每个客户项目都认真落实执行。

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格式”这篇文章对大家有帮助,同时也希望大家多多支持创新互联网站建设公司,,关注创新互联行业资讯频道,更多相关知识等着你来学习!


当前文章:怎么用VBS将一篇txt后缀的内容保存为html格式-创新互联
URL网址:http://kswjz.com/article/dsgsjh.html
扫二维码与项目经理沟通

我们在微信上24小时期待你的声音

解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流