中国DOS联盟
-- 联合DOS 推动DOS 发展DOS --联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
|
中国DOS联盟-- 联合DOS 推动DOS 发展DOS --联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum |
| 游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟 |
|
中国DOS联盟论坛 现在时间是 2026-08-09 19:01 |
共 47,811 主题排行 / 349,896 发帖 / 今日 1 篇 / 48,254 会员排行 |
| DOS批处理 & 脚本技术（批处理室） » 合并文件夹内所有文本格式文件 |
| 可打印版本 1,113 / 9 |
| 第1楼 rctjwzy | 发表于 2008-05-15 17:47 |
| 新手上路 发帖 4 积分 10 | |
|
合并文件夹内所有文本格式文件 文件夹内有扩展名为.dat的文件3000多个，每个文件内只有一行内容，需要将3000个文件的内容合并到一个新的文件内，每个文件的内容占一行。
请大家帮帮忙，帮我写一个批处理。我等着急用。 注：用网上下载的文本文件合并器用不上，合并后所有内容都连在一起了。 [ Last edited by rctjwzy on 2008-5-15 at 05:49 PM ] |
|
| 第2楼 lxmxn | 发表于 2008-05-15 20:11 |
| 版主 发帖 4,938 积分 11,386 | |
|
more *.dat > newfile.txt
|
|
| 第3楼 rctjwzy | 发表于 2008-05-16 13:19 |
| 新手上路 发帖 4 积分 10 | |
|
谢谢lxmxn帮忙
试了一下，还是有问题，一是回车一次才复制一个，二是复制后有多余的内容 metaid=8600000002008032807000083,immed=checked,inputType=0,period -- More (100%) -- metaid=8600000002008032807000083,immed=checked, -- More (100%) -- metaid=8600000002008032807000083,immed=checked, -- More (100%) -- metaid=8600000002008032807000083,immed=checked, -- More (100%) -- metaid=8600000002008032807000083,immed=checked, -- More (100%) -- metaid=8600000002008032807000083,immed=checked, -- More (100%) -- metaid=8600000002008032807000083,immed=checked, -- More (100%) -- metaid=8600000002008032807000083,immed=checked, -- More (100%) -- 是多余的 |
|
| 第4楼 slore | 发表于 2008-05-16 19:46 |
| 铂金会员 发帖 2,478 积分 5,212 | |
|
你上传10个你的dat文件用于测试吧。
copy /b *.dat>newfile.txt? |
|
| 第5楼 rctjwzy | 发表于 2008-05-17 18:25 |
| 新手上路 发帖 4 积分 10 | |
|
测试用dat文件
http://upload.cn-dos.net/img/419.rar |
|
| 第6楼 slore | 发表于 2008-05-17 20:10 |
| 铂金会员 发帖 2,478 积分 5,212 | |
|
@echo off
if Not EXIST R.vbs more +6 %0>R.vbs copy /b *.dat Full.txt>nul wscript R.vbs exit Set objFSO = CreateObject("Scripting.FileSystemObject") '读取内容 Set objFile = objFSO.OpenTextFile("Full.txt",1) StrIn = objFile.ReadAll objFile.Close '替换后写入 Set objFile = objFSO.OpenTextFile("Full.txt",2) objFile.Write Replace(StrIn,"sign=","sign=" & vbCrLf) objFile.Close '释放对象 Set objFile = Nothing Set objFSO = Nothing |
|
| 第7楼 rctjwzy | 发表于 2008-05-17 22:03 |
| 新手上路 发帖 4 积分 10 | |
|
谢谢slore：
用你的代码已经解决了我的问题，而且速度超快，谢谢你的热心帮助。 |
|
| 第8楼 wxs81514 | 发表于 2008-05-17 23:04 |
| 初级用户 发帖 52 积分 118 | |
|
干嘛要搞得那么复杂:
copy *.dat my.txt 就行了 |
|
| 第9楼 slore | 发表于 2008-05-17 23:41 |
| 铂金会员 发帖 2,478 积分 5,212 | |
|
copy没有换行……
|
|
| 第10楼 qinchun36 | 发表于 2008-05-24 06:01 |
| 高级用户 发帖 400 积分 609 | |
|
for /r %i in (*.dat) do type %i>>b.txt&echo.>>b.txt
测试可行 [ Last edited by qinchun36 on 2008-5-24 at 06:04 AM ] |
|
|
[ 联系联盟系统管理团队 -
中国DOS联盟 -
标准版 ] Sponsored by ifanr Inc | © 2001–2023 |