中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » txt2html.vbs --- 文本转换网页[正规]版

qinchun36
高级用户

据说是李先生

积分 609
发帖 400
注册 2008-4-23
状态离线

『楼主』: txt2html.vbs --- 文本转换网页[正规]版

以前也有人发过类似或者同名的工具，都是自己去转换的，我也弄过。

现在重新发一个，之所以用了[正规]两个字，因为是系统自己转换的（除了TAB是你自己转的，因为HTML里面没这个字符）

' TAB制表符在HTML文档不存在，以几个空格代替

Const TAB_LENGTH = 8

Dim textFile, htmlFile, tempText, tabSpace

'显示信息

If WScript.Arguments.Count < 1 Then

        MsgBox  "    ==== ＴＥＸＴ 转 换 ＨＴＭＬ ==== " & vbCrLf & vbCrLf & _

                " txt2html.vbs [TextFileName [HtmlFileName]]" _

                , 4160, "『据说是李先生』"

        WScript.Quit

End If

'TXT源文件为第一个参数

textFile = WScript.Arguments(0)

'如果有第二个参数则当做目标HTML文件路径

If WScript.Arguments.Count > 1 Then htmlFile = WScript.Arguments(1)

'TAB制表符

For tempText = 1 To TAB_LENGTH

        tabSpace = tabSpace & " "

Next

'读取TXT文件内容并替换其中的TAB为空格，如果发生错误则退出

On Error Resume Next

With CreateObject("Scripting.FileSystemObject")

        tempText = .OpenTextFile(textFile, 1, False).ReadAll

        textFile = .GetFile(textFile).Path

        If Err.Number <> 0 Then

                MsgBox  "读取文件 [" & textFile & "] 失败！" & vbCrLf & vbCrLf & _

                        Err.Description, 4112, "错误"

                WScript.Quit

        End If

End With

tempText = Replace(tempText, vbTab, tabSpace)

On Error GoTo 0

Err.Clear

'利用浏览器对象自己的方法来转换TXT到HTML

With CreateObject("InternetExplorer.Application")

        .navigate "about:blank"

        .visible = 0

        .document.body.innerText = tempText

        tempText = .document.documentElement.outerHTML

        .Quit

End With

'如果指定了输出文件路径则将结果保存到文件，否则直接显示结果（wscript在对话框，cscript在控制台）

If Len(htmlFile) > 0 Then

        CreateObject("Scripting.FileSystemObject").CreateTextFile(htmlFile, True).Write tempText

Else

        WScript.Echo tempText

End If