足球游戏_中国足彩网¥体育资讯$

用VBS将一篇txt后缀的内容保存为html格式
来源:易贤网 阅读:1386 次 日期:2016-07-07 15:29:29
温馨提示:易贤网小编为您整理了“用VBS将一篇txt后缀的内容保存为html格式”,方便广大网友查阅!

把txt文件托放到这个vbs上试一下,它会自动生成一个htm文件。需要修的地方说一下。

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格式,并且有换行效果。

中国足彩网信息请查看脚本栏目
由于各方面情况的不断调整与变化,易贤网提供的所有考试信息和咨询回复仅供参考,敬请考生以权威部门公布的正式信息和咨询为准!

2025国考·省考课程试听报名

  • 报班类型
  • 姓名
  • 手机号
  • 验证码
关于我们 | 联系我们 | 人才招聘 | 网站声明 | 网站帮助 | 非正式的简要咨询 | 简要咨询须知 | 加入群交流 | 手机站点 | 投诉建议
工业和信息化部备案号:滇ICP备2023014141号-1 足球游戏_中国足彩网¥体育资讯$ 滇公网安备53010202001879号 人力资源服务许可证:(云)人服证字(2023)第0102001523号
云南网警备案专用图标
联系电话:0871-65099533/13759567129 获取招聘考试信息及咨询关注公众号:hfpxwx
咨询QQ:526150442(9:00—18:00)版权所有:易贤网
云南网警报警专用图标