ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / текстовые файлы
7 сообщений из 7, страница 1 из 1
текстовые файлы
    #32131057
asku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
asku
Гость
Друзья, помогите!
У меня имеются около 900 текстовых файлов в одном каталоге.
Имена файлов такие:
1.txt, 2.txt, 3.txt и т.д.
Мне их нужно в этом порядке соеденить в один файл.
Не подскажите как написать прогу, которая бы это сделала.
Очень прошу!
...
Рейтинг: 0 / 0
01.04.2003, 15:37
| Ответить | Цитировать | Написать  
текстовые файлы
    #32131216
Фотография SmaLL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SmaLL
Участник
Ну самый простой и дубовый способ и как всегда не самый лучший, без обработки ошибок, но для начинающего пойдЁт:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
var
  out: textFile;
  in: textFile;
  Count: integer;
  s: string;

begin
  AssignFile(out, 'result.txt');
  Rewrite(out);
  Count :=  900 ;
  for i:=  1  to Count do
  begin
    AssignFile(in, IntToStr(i)+'.txt');
    Reset(in);
    while not EOF(in) do
    begin
      ReadLn(in, s); 
      WriteLn(out, s);
    end;
    CloseFile(in);
  end;
  CloseFile(out);
end;
...
Рейтинг: 0 / 0
01.04.2003, 17:24
| Ответить | Цитировать | Написать  
текстовые файлы
    #32131472
Фотография eNose
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eNose
Участник
[не активирован]
[не одобрен]
Обязательно прогу?
Windows commander сам соединит.
...
Рейтинг: 0 / 0
02.04.2003, 08:41
| Ответить | Цитировать | Написать  
текстовые файлы
    #32131496
Фотография SmaLL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SmaLL
Участник
Теперь уже TotalCommander :(
...
Рейтинг: 0 / 0
02.04.2003, 09:17
| Ответить | Цитировать | Написать  
текстовые файлы
    #32133653
asku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
asku
Гость
А как это делается в Windows(Total) Commander'e?
Я искал - не нашёл :(
Заранее благодарен за ответ!
...
Рейтинг: 0 / 0
04.04.2003, 14:38
| Ответить | Цитировать | Написать  
текстовые файлы
    #32133664
Фотография eNose
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eNose
Участник
[не активирован]
[не одобрен]
"Файл" -> "Собрать файл"
...
Рейтинг: 0 / 0
04.04.2003, 14:42
| Ответить | Цитировать | Написать  
текстовые файлы
    #32134322
golsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
golsa
Участник
Команда copy 1.txt+2.txt+3.txt+...+99.txt my.txt тоже поможет. Только ограничение на длину командной строки есть. Так что в несколько приемов
или
type 1.txt > my.txt
type 2.txt >> my.txt
...
type 999.txt >> my.txt
...
Рейтинг: 0 / 0
07.04.2003, 07:52
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / текстовые файлы
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]