中国DOS联盟

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

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

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

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 合并文件夹内所有文本格式文件

rctjwzy
新手上路

积分 10
发帖 4
注册 2007-8-2
状态离线

『楼主』: 合并文件夹内所有文本格式文件

文件夹内有扩展名为.dat的文件3000多个，每个文件内只有一行内容，需要将3000个文件的内容合并到一个新的文件内，每个文件的内容占一行。
请大家帮帮忙，帮我写一个批处理。我等着急用。
注：用网上下载的文本文件合并器用不上，合并后所有内容都连在一起了。

[ Last edited by rctjwzy on 2008-5-15 at 05:49 PM ]

2008-5-15 17:47

lxmxn
版主

积分 11386
发帖 4938
注册 2006-7-23
状态离线

『第 2 楼』:

more *.dat > newfile.txt

2008-5-15 20:11

rctjwzy
新手上路

积分 10
发帖 4
注册 2007-8-2
状态离线

『第 3 楼』:

谢谢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%) -- 是多余的

2008-5-16 13:19

slore
铂金会员

积分 5212
发帖 2478
注册 2007-2-8
状态离线

『第 4 楼』:

你上传10个你的dat文件用于测试吧。

copy /b *.dat>newfile.txt?

2008-5-16 19:46

rctjwzy
新手上路

积分 10
发帖 4
注册 2007-8-2
状态离线

『第 5 楼』:

测试用dat文件
http://upload.cn-dos.net/img/419.rar

2008-5-17 18:25

slore
铂金会员

积分 5212
发帖 2478
注册 2007-2-8
状态离线

『第 6 楼』:

@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

此帖被 +3 点积分点击查看详情