有100给txt文本文件,有什么办法把他们快速合并呢??(50分)

  • 主题发起人 主题发起人 milesmaqi
  • 开始时间 开始时间
M

milesmaqi

Unregistered / Unconfirmed
GUEST, unregistred user!
我总是,把第一个TXT文本文件打开,在把第二给COPY ,PASTE ,如次第三个,,,,到
第100个,把我快类死了!
 
在DOS中用COPY A1+A2,A3 合并文件,好久不用DOS,所以记不清了,好像可以的
 
Linux:cat *.txt > all.txt
绝对够快 呵呵
 
编个小程序就可以了,
很简单的!
 

Var
M,N:TStringList;
I:Integer;
begin
If Not opendialog1.execute then
Exit;
M:TStringList.create;
N:TStringList.create;
for I:=0 To opendialog1.Files.count-1 do
begin
M.LoadFromFile(opendialog1.Files);
N.addStrings(M);
end;
If Not Savedialog1.excute then
Exit;
N.savetoFile( Savedialog1.FileName);
M.free;
N.Free;
end;
看看行吗。
 
DOS中用COPY A1+A2,A3 合并文件就可以,很简单的。
 
文本文件只要不是巨大,zhoufujin的方法应该可取的。
 
100个文本,全扔到一个目录下,然后进dos,到那个目录下运行
copy *.txt/b newtxt.txt
就ok了,祝顺利
 
copy d:/test/1.txt + d:/test/2.txt d:/test/New.txt
win2000下测试成功
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部