[文本处理] 批处理如何把txt文本转换到htm网页格式？

Rank: 1

帖子: 6
积分: 28
技术: 0
捐助: 0
注册时间: 2011-5-30

11楼

发表于 2011-6-1 13:00 | 只看该作者

3# batman

经测试可用！和批处理一样的效果，个人感觉比批处理快一些.....
主要还是有些编码的问题，有些文件还是乱码..... 我再转换编码试一下......
测试中............

发现自己啥都不懂了啊！各种悲剧啊！！！

batman

荣誉版主

Rank: 8 Rank: 8

帖子: 2702
积分: 14562
技术: 177
捐助: 630
注册时间: 2008-6-16

10楼

发表于 2011-6-1 12:52 | 只看该作者

9# bbcwang123
保存为test.vbs在所在目录双击，不会？

＊＊＊共同提高＊＊＊

Rank: 1

帖子: 6
积分: 28
技术: 0
捐助: 0
注册时间: 2011-5-30

9楼

发表于 2011-6-1 11:15 | 只看该作者

8# batman

我小白不会用，学会试下！

发现自己啥都不懂了啊！各种悲剧啊！！！

batman

荣誉版主

Rank: 8 Rank: 8

帖子: 2702
积分: 14562
技术: 177
捐助: 630
注册时间: 2008-6-16

8楼

发表于 2011-5-31 23:26 | 只看该作者

vbs不行？

＊＊＊共同提高＊＊＊

Rank: 1

帖子: 6
积分: 28
技术: 0
捐助: 0
注册时间: 2011-5-30

7楼

发表于 2011-5-31 22:54 | 只看该作者

6# tmplinshi

恩！我试试看学习下！！

发现自己啥都不懂了啊！各种悲剧啊！！！

tmplinshi

版主

Rank: 7 Rank: 7 Rank: 7

帖子: 1023
积分: 3120
技术: 230
捐助: 160
注册时间: 2010-12-22

6楼

发表于 2011-5-31 22:46 | 只看该作者

需要下载 concmd:

concmd - 编码转换工具
http://bbs.bathome.net/viewthread.php?tid=12595

@echo off

for /f "delims=" %%i in ('dir /b *.txt') do (
    concmd /o:gbk "%%i" >nul
    findstr /n .* "%%i" >.tmp
    (
        echo ^<html^>
        echo ^<head^>
        echo ^<title^>%%i^</title^>
        echo ^</head^>
        echo ^<body^>
        for /f "delims=" %%i in (.tmp) do (
            set str=%%i
            SetLocal EnableDelayedExpansion
            echo !str:*:=!^<br^>
            EndLocal
        )
        echo ^</body^>
        echo ^</html^>
    ) >"%%i"
    concmd /o:utf8 "%%i" "%%~ni.htm" >nul
    del "%%i"
)
del .tmp
复制代码

Rank: 1

帖子: 6
积分: 28
技术: 0
捐助: 0
注册时间: 2011-5-30

5楼

发表于 2011-5-31 22:07 | 只看该作者

2# tmplinshi

我测试了一下，发现不怎么好用啊！
可能是我没注意一些字的编码问题，有些都变成乱码了，貌似是少了一个 <meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
还有扩展名也没有批量改成.htm

发现自己啥都不懂了啊！各种悲剧啊！！！

Rank: 1

帖子: 6
积分: 28
技术: 0
捐助: 0
注册时间: 2011-5-30

4楼

发表于 2011-5-31 21:48 | 只看该作者

谢谢你们！！

发现自己啥都不懂了啊！各种悲剧啊！！！

batman

荣誉版主

Rank: 8 Rank: 8

帖子: 2702
积分: 14562
技术: 177
捐助: 630
注册时间: 2008-6-16

3楼

发表于 2011-5-31 16:11 | 只看该作者

vbs版本：

Dim vbstr, fso, file
Set fso = CreateObject("scripting.filesystemobject")
Set ws = CreateObject("wscript.shell")
For Each file In fso.GetFolder(ws.CurrentDirectory).Files
  If LCase(fso.GetExtensionName(file)) = "txt" Then
    vbstr = fso.OpenTextFile(file, 1).ReadAll()
    vbstr = Replace(vbstr, vbCrLf, "<br>")
    vbstr = "<html>" & vbCrLf & "<head>" & vbCrLf & "<title>" & file.Name & "</title>" & vbCrLf & "</head>" & vbCrLf & "<body>" & vbCrLf & vbstr & vbCrLf & "</body>" & vbCrLf & "</html>"
    fso.OpenTextFile(file, 2, 1).Write vbstr
    fso.MoveFile file, Replace(file.Name, ".txt", ".html")
  End If
Next
Set ws = Nothing
Set fso = Nothing
复制代码

＊＊＊共同提高＊＊＊

tmplinshi

版主

Rank: 7 Rank: 7 Rank: 7

帖子: 1023
积分: 3120
技术: 230
捐助: 160
注册时间: 2010-12-22

2楼

发表于 2011-5-31 13:40 | 只看该作者

@echo off
for /f "delims=" %%i in ('dir /b *.txt') do (
    findstr /n .* "%%i" >.tmp
    (
        echo ^<html^>
        echo ^<head^>
        echo ^<title^>%%i^</title^>
        echo ^</head^>
        echo ^<body^>
        for /f "delims=" %%i in (.tmp) do (
            set str=%%i
            SetLocal EnableDelayedExpansion
            echo !str:*:=!^<br^>
            EndLocal
        )
        echo ^</body^>
        echo ^</html^>
    ) >"%%i"
)
del .tmp
复制代码