Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / текстовые файлы / 7 сообщений из 7, страница 1 из 1
01.04.2003, 15:37
    #32131057
asku
asku
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
текстовые файлы
Друзья, помогите!
У меня имеются около 900 текстовых файлов в одном каталоге.
Имена файлов такие:
1.txt, 2.txt, 3.txt и т.д.
Мне их нужно в этом порядке соеденить в один файл.
Не подскажите как написать прогу, которая бы это сделала.
Очень прошу!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.04.2003, 17:24
    #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
| Ответить | Цитировать | Написать  
02.04.2003, 08:41
    #32131472
eNose
eNose
Участник
[не активирован]
[не одобрен]
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
текстовые файлы
Обязательно прогу?
Windows commander сам соединит.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.04.2003, 09:17
    #32131496
SmaLL
SmaLL
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
текстовые файлы
Теперь уже TotalCommander :(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.04.2003, 14:38
    #32133653
asku
asku
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
текстовые файлы
А как это делается в Windows(Total) Commander'e?
Я искал - не нашёл :(
Заранее благодарен за ответ!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.04.2003, 14:42
    #32133664
eNose
eNose
Участник
[не активирован]
[не одобрен]
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
текстовые файлы
"Файл" -> "Собрать файл"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2003, 07:52
    #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
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / текстовые файлы / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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