How to use VBS to save the content of a txt suffix to html format

This article mainly introduces how to use VBS to save the content of a txt suffix as html format, has a certain reference value, interested friends can refer to, I hope you can learn a lot after reading this article, the following let Xiaobian take you to understand.

Do.vbs

The code is as follows:

'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 "successfully converted txt to html"

Save the above code as do.vbs, and then transfer the 1.txt to the do.vbs. The content of txt can be generated into html format with line wrapping effect.

Thank you for reading this article carefully. I hope the article "how to use VBS to save the content of a txt suffix to html format" shared by the editor is helpful to everyone. At the same time, I also hope that you will support us and pay attention to the industry information channel. More related knowledge is waiting for you to learn!