Discuz教程网

1314学习网»站长论坛 › 站长交流区 › 技术杂谈 › 用VBS将一篇txt后缀的内容保存为html格式
返回列表 发新帖

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

[复制链接]
authicon dly 发表于 2011-1-16 10:48:45 | 显示全部楼层 |阅读模式
把txt文件托放到这个vbs上试一下，它会自动生成一个htm文件。需要修的地方说一下。
do.vbs
代码如下:

  1. \'BY Coo_boi
  2. If WScript.Arguments.Count=0 Then WScript.Quit
  3. Dim fso,txt,htm
  4. txt=WScript.Arguments(0)
  5. Set fso=CreateObject("Scripting.FileSystemObject")
  6. Set htm=fso.CreateTextFile(txt&".htm",True)
  7. title=fso.GetFile(txt).Name
  8. title=Left(title,Len(title)-4)
  9. MsgBox title
  10. htm.WriteLine "<html>"
  11. htm.WriteLine "<head>"
  12. htm.WriteLine "<title>"&title&"</title>"
  13. htm.WriteLine "</head>"
  14. htm.WriteLine "<body>"
  15. htm.WriteLine "<h1 align=center>"&title&"</h1>"
  16. htm.WriteLine "<hr color=red>"
  17. For Each line In Split(fso.OpenTextFile(txt).ReadAll ,vbCrLf)
  18. htm.WriteLine line&"<br>"
  19. Next
  20. htm.WriteLine "</body>"
  21. htm.WriteLine "</html>"
  22. htm.Close
复制代码


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





上一篇：VBS 16进制验证特定字符
下一篇：Html技巧 语义化你的代码
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

1314学习网 ( 浙ICP备10214163号 )

GMT+8, 2025-11-4 09:20

Powered by Discuz! X3.4

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表