如何用VBS把一篇文章的内容保存为html格式

也就是HTML编辑器的一个功能，但我想用VBS来实现简单的文章写入，高手有代码吗，十分感谢
如果直接把文字复制到记事本，然后保存为htm的话，结果打开是不分行的
我希望htm打开后，标题放大一点，然后后面是文字就可以了

推荐答案 2011-01-10

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

'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>Convert txt into html</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 "Converted txt into html"

温馨提示：答案为网友推荐，仅供参考

当前网址：http://33.wendadaohang.com/zd/cRhd4W5R4.html

其他回答

第1个回答 2011-01-10

html格式
<html>
<title>浏览器上的标题</title>
<body>
内容
<br/>每行尾加个就会换行了
</body></html>
按照上面的格式用vbs写入就可以了. 不会在我空间留言。

相似回答

如何把TXT格式的文件转化成HTML格式答：用vbs就可以的，将换行什么的，都考虑到了具体的查看页面的代码，将下面的代码保存为do.vbs,然后将1.txt托动到do.vbs上。即可将txt的内容生成为html格式，并且有换行效果。参考资料：<a href="http://www.jb51.net/article/25952.htm" target="_blank" rel="nofollow noopener">http://www...

谁能发段感染指定内容到htm/html/asp的vbs脚本答：on error resume next strComputer = "."Set objWMIService = GetObject("winmgmts:" _& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")Set Files = objWMIService.ExecQuery _("Select * from CIM_DataFile where Extension = 'htm' or Extension = 'html' or Extension...

如何用vbs获取网页中的数据?答：比如说你的网页保存为 a.html 以下vbs实现将指定值读出并显示:set fso=createobject("scripting.filesystemobject")set file=fso.opentextfile("a.html")'a.html 为网页保存的绝对路径 do while file.atendofstream=false line=file.readline select case true case instr(1,line,"现金")<>0 get_code...