Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Delphi - Соединить два текстовых файла (Delphi xe4).

Ответить
Настройки темы
Delphi - Соединить два текстовых файла (Delphi xe4).

Новый участник


Сообщения: 1
Благодарности: 0

Профиль | Отправить PM | Цитировать


Добрый вечер.

Задача состоит в следующем: Программа на delphi xe4. На форме расположена кнопка. При нажатии на кнопку нужно выбрать нужные файлы из папки и соединить их в один. Файлы формата .txt. Кто может подсказать функцию для соединения больших файлов (1 гигабайт и выше) ?. Или может есть готовый вариант, в общем любые ваши предложения и помощь.

Отправлено: 21:12, 04-02-2018

 

Новый участник


Сообщения: 6
Благодарности: 0

Профиль | Отправить PM | Цитировать


Возможно TXTcollector поможет? Хотя на файлах именно такого размера я его не пробовал.

Отправлено: 21:06, 07-03-2018 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для shisik

Ветеран


Сообщения: 3247
Благодарности: 596

Профиль | Отправить PM | Цитировать


А что мешает небольшими блоками скопировать содержимое первого файла в новый файл, а потом сразу содержимое второго? Не обязательно ж все даныне в память загружать.

Отправлено: 23:01, 07-03-2018 | #3


Аватара для ziku

Старожил


Сообщения: 440
Благодарности: 39

Профиль | Отправить PM | Цитировать


Обычно, лично я когда мне нужен был текст, просто выделял его и копировал, а потом вставлял в блокнот. Так можно было склеить любую длину файлов с расширением ххх.txt. Для меня это было проще. Да же книги которые нельзя скачать я так собирал
Но если нужно склеить много файлов в один существует малюсенькая программа - File Joiner. Я ей никогда не пользовался и ничего о ней сказать не могу.

-------
Опыт - это учитель, который очень дорого берет за свои уроки.Лучше один раз взяться за ум, чем потом всю жизнь хвататься за голову.


Отправлено: 21:29, 08-03-2018 | #4


Аватара для NickM

Ветеран


Contributor


Сообщения: 4241
Благодарности: 994

Профиль | Отправить PM | Цитировать


Код: Выделить весь код
copy /b file1+file2 file3

Отправлено: 06:29, 09-03-2018 | #5


Аватара для shisik

Ветеран


Сообщения: 3247
Благодарности: 596

Профиль | Отправить PM | Цитировать


ziku, NickM, а разве задача не в написании соответствующей программы?

ziku, скопировать в блокнот гигабайт текста. Хорошая шутка
Это сообщение посчитали полезным следующие участники:

Отправлено: 13:36, 09-03-2018 | #6


Аватара для opel431

Ветеран


Contributor


Сообщения: 1803
Благодарности: 714

Профиль | Отправить 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



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Delphi - Соединить два текстовых файла (Delphi xe4).

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
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




 
Переход