用VBS将一篇txt后缀的内容保存为html格式
导读：收集整理的这篇文章主要介绍了用VBS将一篇txt后缀的内容保存为html格式，觉得挺不错的，现在分享给大家，也给大家做个参考。 do.vbs复制代码 代码如下:'BY Coo_boi I...
收集整理的这篇文章主要介绍了用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 "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文本文件常用方法与函数代码
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： 用VBS将一篇txt后缀的内容保存为html格式
本文地址： https://pptw.com/jishu/609854.html