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格式,并且有换行效果。
复制代码 代码如下:
'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格式,并且有换行效果。
标签:
txt,html
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件!
如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
白云城资源网 Copyright www.dyhadc.com
暂无“用VBS将一篇txt后缀的内容保存为html格式”评论...
稳了!魔兽国服回归的3条重磅消息!官宣时间再确认!
昨天有一位朋友在大神群里分享,自己亚服账号被封号之后居然弹出了国服的封号信息对话框。
这里面让他访问的是一个国服的战网网址,com.cn和后面的zh都非常明白地表明这就是国服战网。
而他在复制这个网址并且进行登录之后,确实是网易的网址,也就是我们熟悉的停服之后国服发布的暴雪游戏产品运营到期开放退款的说明。这是一件比较奇怪的事情,因为以前都没有出现这样的情况,现在突然提示跳转到国服战网的网址,是不是说明了简体中文客户端已经开始进行更新了呢?
更新日志
2024年06月18日
2024年06月18日
- AmanecerEcuador-TheWolfSpirit(2008)[wav]
- 崩坏星穹铁道2.3流萤抽专武还是命座 崩铁流萤专武命座选择攻略
- 成为烧鸟大师!沙雕游戏《制作烧鸟》将在Switch发售
- 索尼官宣《神秘海域》电影续作!前作豆瓣仅6分
- 陶德:不着急推出《辐射5》 剧集填补了一定的空白
- GS评游戏中令人印象深刻的父亲:杰洛特、乔尔上榜
- 10v10:4条分路、黄buff、随进随出详细解读
- 狂暴半肉诸葛亮半步T0?换套出装依然拉胯
- 体验服5.30:全变了!英雄、装备大调整
- 孙耀威.1998-爱有借有还【侠客唱片】【WAV+CUE】
- 群星.1990-6Pair半+城市民歌白金珍藏版【SONY】【WAV+CUE】
- 陈圣萍.1990-都是我把你想得太好【飞碟】【WAV+CUE】
- 幽夜默示录其二怎么过?秘境通关图文攻略
- 原画壁纸及美图第253期,无水印可自取
- 原神:4.7新深渊攻略|配队与思路分享,难度有所上涨