Работа с файлами и со строками

← →
Елена (2002-09-09 10:21) [0]

Ситуация такая:
в одном каталоге находится много текстовых файлов с названиями вида delphi, delphi02, ..., delphi23, media, media02, ..., media47, utility, utility02, ..., utility31 и т.д.
Необходимо содержимое файлов delphi, delphi02, ..., delphi23 последовательно записать в один файл, содержимое файлов media02, ..., media47 - в другой и т.д.

Подскажите, пожалуйста, как это сделать. Заранее благодарна.

← →
Виктор Щербаков (2002-09-09 10:24) [1]

FindFirst, FindNext.
BlockRead, BlockWrite и т.п.
В чем конкретно проблема?

← →
lenin (2002-09-09 10:37) [2]

Используй FindFirst, FindNex, FindClose для нахождения файлов. Затем примерно следующее:
....
strl:=TStringList.Create;
if FindFirst(Path,Attr,sr)=0 then AddFile(sr.Name,strl);
while FindNext(sr)=0 do AddFile(sr.Name,strl);
FindClose(sr);
Strl.SaveToFile(NameResultFile);
...
procedure AddFile(FinFile: String; stlr: TStringList)
var stl1: TStringList;
begin
stl1:=TStringList.Create;
stl1.LoadFromFile(FinFile);
stlr.AddStrings(stl1);
end;

← →
Елена (2002-09-09 10:45) [3]

> Виктор Щербаков © (09.09.02 10:24)

Проблема в том, что заранее неизвестно, какие будут файлы к каталоге.

← →
Виктор Щербаков (2002-09-09 10:48) [4]

Попробуй прочитать имена всех файлов в список, а потом отсортировать.
Сортировка, насколько я понял, должна быть хитрой, т.е. сначала по алфавиту, а потом по числам в конце имен файлов.

← →
Елена (2002-09-09 10:50) [5]

> Виктор Щербаков © (09.09.02 10:48)
> Сортировка, насколько я понял, должна быть хитрой, т.е.
> сначала по алфавиту, а потом по числам в конце имен файлов.

Совершенно верно! :o)

← →
NickBat (2002-09-09 11:12) [6]

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

copy unit* allunit.pas

Работа с файлами и со строками Найти похожие ветки