|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Delphi - Соединить два текстовых файла (Delphi xe4). |
|
Delphi - Соединить два текстовых файла (Delphi xe4).
|
Новый участник Сообщения: 1 |
Профиль | Отправить PM | Цитировать Добрый вечер.
Задача состоит в следующем: Программа на delphi xe4. На форме расположена кнопка. При нажатии на кнопку нужно выбрать нужные файлы из папки и соединить их в один. Файлы формата .txt. Кто может подсказать функцию для соединения больших файлов (1 гигабайт и выше) ?. Или может есть готовый вариант, в общем любые ваши предложения и помощь. |
|
Отправлено: 21:12, 04-02-2018 |
Новый участник Сообщения: 6
|
Профиль | Отправить PM | Цитировать Возможно TXTcollector поможет? Хотя на файлах именно такого размера я его не пробовал.
|
Отправлено: 21:06, 07-03-2018 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Ветеран Сообщения: 3247
|
Профиль | Отправить PM | Цитировать А что мешает небольшими блоками скопировать содержимое первого файла в новый файл, а потом сразу содержимое второго? Не обязательно ж все даныне в память загружать.
|
Отправлено: 23:01, 07-03-2018 | #3 |
Старожил Сообщения: 440
|
Профиль | Отправить PM | Цитировать Обычно, лично я когда мне нужен был текст, просто выделял его и копировал, а потом вставлял в блокнот. Так можно было склеить любую длину файлов с расширением ххх.txt. Для меня это было проще. Да же книги которые нельзя скачать я так собирал
Но если нужно склеить много файлов в один существует малюсенькая программа - File Joiner. Я ей никогда не пользовался и ничего о ней сказать не могу. |
------- Отправлено: 21:29, 08-03-2018 | #4 |
Ветеран Сообщения: 4242
|
Профиль | Отправить PM | Цитировать |
|
Отправлено: 06:29, 09-03-2018 | #5 |
Ветеран Сообщения: 3247
|
Профиль | Отправить PM | Цитировать ziku, NickM, а разве задача не в написании соответствующей программы?
ziku, скопировать в блокнот гигабайт текста. Хорошая шутка |
Отправлено: 13:36, 09-03-2018 | #6 |
Ветеран Сообщения: 1803
|
Профиль | Отправить PM | Цитировать Попробуйте через потоки
procedure ConcatenateFiles(const InFileNames: array of string; const OutFileName: string); var i: Integer; InStream, OutStream: TFileStream; begin OutStream := TFileStream.Create(OutFileName, fmCreate); try for i := 0 to high(InFileNames) do begin InStream := TFileStream.Create(InFileNames[i], fmOpenRead); try OutStream.CopyFrom(InStream, InStream.Size); finally InStream.Free; end; end; finally OutStream.Free; end; end; ConcatenateFiles(['Part1', 'Part2'], 'OutFile') |
------- Отправлено: 17:36, 10-03-2018 | #7 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
CMD/BAT - [решено] Соединить несколько текстовых файлов в один | uraabk | Скриптовые языки администрирования Windows | 12 | 29-07-2017 21:59 | |
Соединить два компа | andrewsev | Непонятные проблемы с Железом | 19 | 12-09-2011 17:23 | |
[решено] Как сравнить два текстовых файла и выявить изменения | assch | AutoIt | 1 | 09-09-2010 23:25 | |
CMD/BAT - Обработать два текстовых файла в одном цикле: как? | grinsen | Скриптовые языки администрирования Windows | 1 | 27-02-2010 03:33 | |
Соединить два компа | NetSharp | Сетевые технологии | 8 | 05-02-2004 11:08 |
|