将vbs转换成html,用VBS将一篇txt后缀的内容保存为html格式.pdf

把 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 ""

htm.WriteLine "

"

htm.WriteLine "

"&title&""

htm.WriteLine ""

htm.WriteLine "

"

htm.WriteLine "

"&title&"

"

htm.WriteLine "

---

"

For Each line In Split(fso.OpenTextFile(txt).ReadAll ,vbCrLf)

htm.WriteLine line&"
"

Next

htm.WriteLine ""

htm.WriteLine ""

htm.Close

WScript.Echo " 将 txt 转换为 html 成功 "

将上面的代码保存为 do.vbs,然后将 1.txt 托动到 do.vbs 上。即可将 txt 的内容生成为 html

格式，并且有换行效果。