[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
bbcwang123

Rank: 1

帖子
6 
积分
28 
技术
0  
捐助
0  
注册时间
2011-5-30 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2011-5-31 12:54 | 只看该作者

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

我有很多txt的文本文件，想转成htm的网页文件，在文本的顶部加上
<html>
<head>
<title>txt文件的名字</title>
</head>
<body>
文本内容
</body>
</html>
大概就是这样的，都可以看懂的吧。    不过就在前面和后面加上文本修改格式后也不行，还有把换行符，回车都改成网页的标识符<br>  要求把批处理放到这个文件夹内，双击后可以把所有的文件全部转黄成网页形式，我是新手，有很多代码不懂请大家在代码后面简单的解释下。
先谢谢大家了！！  期待回复！！
收藏 分享
发现自己啥都不懂了啊！  各种悲剧啊！！！

tmplinshi

Rank: 7Rank: 7Rank: 7

帖子
1023 
积分
3120 
技术
230  
捐助
160  
注册时间
2010-12-22 
2楼
发表于 2011-5-31 13:40 | 只看该作者 
  1. @echo off

  2. for /f "delims=" %%i in ('dir /b *.txt') do (

  3.     findstr /n .* "%%i" >.tmp

  4.     (

  5.         echo ^<html^>

  6.         echo ^<head^>

  7.         echo ^<title^>%%i^</title^>

  8.         echo ^</head^>

  9.         echo ^<body^>

  10.         for /f "delims=" %%i in (.tmp) do (

  11.             set str=%%i

  12.             SetLocal EnableDelayedExpansion

  13.             echo !str:*:=!^<br^>

  14.             EndLocal

  15.         )

  16.         echo ^</body^>

  17.         echo ^</html^>

  18.     ) >"%%i"

  19. )

  20. del .tmp
复制代码

TOP

batman

Rank: 8Rank: 8

帖子
2702 
积分
14562 
技术
177  
捐助
630  
注册时间
2008-6-16 
3楼
发表于 2011-5-31 16:11 | 只看该作者
vbs版本：
  1. Dim vbstr, fso, file

  2. Set fso = CreateObject("scripting.filesystemobject")

  3. Set ws = CreateObject("wscript.shell")

  4. For Each file In fso.GetFolder(ws.CurrentDirectory).Files

  5.   If LCase(fso.GetExtensionName(file)) = "txt" Then

  6.     vbstr = fso.OpenTextFile(file, 1).ReadAll()

  7.     vbstr = Replace(vbstr, vbCrLf, "<br>")

  8.     vbstr = "<html>" & vbCrLf & "<head>" & vbCrLf & "<title>" & file.Name & "</title>" & vbCrLf & "</head>" & vbCrLf & "<body>" & vbCrLf & vbstr & vbCrLf & "</body>" & vbCrLf & "</html>"

  9.     fso.OpenTextFile(file, 2, 1).Write vbstr

  10.     fso.MoveFile file, Replace(file.Name, ".txt", ".html")

  11.   End If

  12. Next

  13. Set ws = Nothing

  14. Set fso = Nothing
复制代码
＊＊＊共同提高＊＊＊

TOP

bbcwang123

Rank: 1

帖子
6 
积分
28 
技术
0  
捐助
0  
注册时间
2011-5-30 
4楼
发表于 2011-5-31 21:48 | 只看该作者
谢谢你们！！
发现自己啥都不懂了啊！  各种悲剧啊！！！

TOP

bbcwang123

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
发现自己啥都不懂了啊！  各种悲剧啊！！！

TOP

tmplinshi

Rank: 7Rank: 7Rank: 7

帖子
1023 
积分
3120 
技术
230  
捐助
160  
注册时间
2010-12-22 
6楼
发表于 2011-5-31 22:46 | 只看该作者
需要下载 concmd:

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

  2. 

  3. for /f "delims=" %%i in ('dir /b *.txt') do (

  4.     concmd /o:gbk "%%i" >nul

  5.     findstr /n .* "%%i" >.tmp

  6.     (

  7.         echo ^<html^>

  8.         echo ^<head^>

  9.         echo ^<title^>%%i^</title^>

  10.         echo ^</head^>

  11.         echo ^<body^>

  12.         for /f "delims=" %%i in (.tmp) do (

  13.             set str=%%i

  14.             SetLocal EnableDelayedExpansion

  15.             echo !str:*:=!^<br^>

  16.             EndLocal

  17.         )

  18.         echo ^</body^>

  19.         echo ^</html^>

  20.     ) >"%%i"

  21.     concmd /o:utf8 "%%i" "%%~ni.htm" >nul

  22.     del "%%i"

  23. )

  24. del .tmp
复制代码

TOP

bbcwang123

Rank: 1

帖子
6 
积分
28 
技术
0  
捐助
0  
注册时间
2011-5-30 
7楼
发表于 2011-5-31 22:54 | 只看该作者
6# tmplinshi


恩！ 我试试看 学习下！！
发现自己啥都不懂了啊！  各种悲剧啊！！！

TOP

batman

Rank: 8Rank: 8

帖子
2702 
积分
14562 
技术
177  
捐助
630  
注册时间
2008-6-16 
8楼
发表于 2011-5-31 23:26 | 只看该作者
vbs不行？
＊＊＊共同提高＊＊＊

TOP

bbcwang123

Rank: 1

帖子
6 
积分
28 
技术
0  
捐助
0  
注册时间
2011-5-30 
9楼
发表于 2011-6-1 11:15 | 只看该作者
8# batman


我小白不会用，学会试下！
发现自己啥都不懂了啊！  各种悲剧啊！！！

TOP

batman

Rank: 8Rank: 8

帖子
2702 
积分
14562 
技术
177  
捐助
630  
注册时间
2008-6-16 
10楼
发表于 2011-6-1 12:52 | 只看该作者
9# bbcwang123
保存为test.vbs在所在目录双击，不会？
＊＊＊共同提高＊＊＊

TOP

bbcwang123

Rank: 1

帖子
6 
积分
28 
技术
0  
捐助
0  
注册时间
2011-5-30 
11楼
发表于 2011-6-1 13:00 | 只看该作者
3# batman


经测试可用！    和批处理一样的效果， 个人感觉比批处理快一些.....  
主要还是有些编码的问题，  有些文件还是乱码.....    我再转换编码试一下......  
测试中............
发现自己啥都不懂了啊！  各种悲剧啊！！！

TOP

返回列表