用VBS将一篇txt后缀的内容保存为html格式
用VBS将一篇txt后缀的内容保存为html格式
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格式，并且有换行效果。
PHP开发框架
开发工具/编程工具
服务器环境房产销售底薪7k包住宿_深圳市乐有家房产交易有限公司招聘信息 - 深圳58同城
深圳[]||浏览记录数据加载中...导航：：：：
行业： 中介/专业服务+房地产/物业管理 性质： 股份制 规模： 1000人以上
相关职位：
周边城市：
重点城市：
热门推荐：
热门类别：}