手机
当前位置:查字典教程网 >脚本专栏 >vbs >用VBS将一篇txt后缀的内容保存为html格式
用VBS将一篇txt后缀的内容保存为html格式
摘要:do.vbs复制代码代码如下:'BYCoo_boiIfWScript.Arguments.Count=0ThenWScript.QuitDi...

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

【用VBS将一篇txt后缀的内容保存为html格式】相关文章:

用VBS读写二进制文件的另一种方法分享

VBS监视网络连接与断开的代码

使用VBS获取当前日期的前一天 并修正输出格式

用vbs将名称转换为正确的大小写的代码

用vbs实现枚举网络连接的代码

用vbs实现配置无人登录计算机时使用的屏幕保护程序

VBS合并一个文件夹里的TXT的实现代码

使用VBS修改二进制文件HEX数据

用vbs判断一个日期是否在指定的时段内

用vbs实现不死帐号的代码

精品推荐
分类导航