Скачать: CL | DM;

объединение текстовых файлов   Найти похожие ветки 

← →
SLK   (2004-09-08 13:01) [0]

Как в Delphi объединить (слить) два или более текстовых файла.

---

← →
Anonimus   (2004-09-08 13:07) [1]

var ss1,ss2: TStrings;

ss1.loadfromfile("file1.txt");
ss2.loadfromfile("file3.txt");
for i:=0 to ss2.ictems.count-1 do
 ss1.add(ss2.items.strings[i]);
ss1.savetofile...

Ногами прошу сильно не пинать, имена свойств могут быть неверными

---

← →
Vasya.ru   (2004-09-08 13:07) [2]

читаешь данные из одного, записываешь в конец другого, если я правильно вопрос понял

---

← →
TUser ©   (2004-09-08 13:17) [3]

Я бы делал непосредственно через TFileStream.

---

← →
jack128 ©   (2004-09-08 13:21) [4]

TUser ©   (08.09.04 13:17) [3]
только не забыть убедиться, что в конце первого файла есть #13#10 и если нужно добавить..

---

← →
icWasya ©   (2004-09-08 14:43) [5]


var
 ss1,ss2: TStrings;
begin
 ss1:= TStringList.Create;
 ss2:= TStringList.Create;
 try
   ss1.Clear;
   ss2.loadfromfile("file1.txt");
   ss1.AddStrings(ss2);

   ss2.loadfromfile("file2.txt");
   ss1.AddStrings(ss2);

   ss2.loadfromfile("file3.txt");
   ss1.AddStrings(ss2);

   ss1.savetofile("fileAll.txt");
 finally
   ss1.free;
   ss2.free;
 end;
end;


---

← →
Fay ©   (2004-09-08 15:06) [6]

2 [3] TUser ©   (08.09.04 13:17)
А в чём, собственно, заключается непосредственность?

---

← →
wl   (2004-09-08 21:38) [7]

>Fay ©   (08.09.04 15:06) [6] [Новое сообщение]
может быть в том что не нужно читать первый файл в память? ускорение какой-никакое

---

← →
eLVik ©   (2004-09-08 22:23) [8]

AssignFile, Append (F1)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c