Форум: "Основная";
Текущий архив: 2004.09.26;
Скачать: [xml.tar.bz2];
Вниз
объединение текстовых файлов Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2004.09.26;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.037 c
