Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.10;
Скачать: CL | DM;

Вниз

Много файлов   Найти похожие ветки 

 
swordent ©   (2003-02-28 00:17) [0]

Люди, помогите разобраться. Задача такая: открыть все существующие файлы в папке и сохранить их(по алфавиту естестнно) в текстовый файл. Ну в файл то я и сам в состоянии сохранить, а вот как так всё это дело открыть... Помогите! Очень надо! Заранее спасибо.


 
jack128 ©   (2003-02-28 01:12) [1]

кого сохранить в файл? название тех файлов в папке?
Для этого не нужно их открывать(см FindFirst/FindNext)


 
PVOzerski ©   (2003-02-28 03:33) [2]

Только еще вот что:
с помощью FindFirst/FindNext надо бы получить файлы для связанного списка, потом этот список отсортировать по алфавиту, а уж потом сохранять.


 
Skyle ©   (2003-02-28 04:34) [3]

Я чегой-то тоже не особо понимаю. Либо надо имена файлов сохранить, либо содержимое. В любом случае, сначала стоит создать список файлов, а потом уже их обрабатывать. Хранить, например, в TStringList. Там же его и отсортировать. Составлять список через FindFirst/FindNext, о чём уже говорилось.
Кстати, я надеюсь, что вопрос не подразумевает "как открыть файл"..:)


 
Slym ©   (2003-02-28 08:34) [4]

Вот практически законченый код

const path="c:\"
var
sr:TSearchRec
StringList:TStringList;
begin
StringList:=TStringList.Create;
//Добавляешь файлы и папки
if FindFirst(path+"*.*",faAnyFile,sr)=0 then
StringList.Add(sr.Name);
while FindNext(sr)=0 do
StringList.Add(sr.Name);
StringList.sorted:=true;
StringList.SaveToFile("c:\sorted_list.txt");
StringList.Free;
end;


 
Slym ©   (2003-02-28 08:35) [5]

Только расставь где нужно ; (в двух местах)



Страницы: 1 вся ветка

Текущий архив: 2003.03.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.022 c
3-29702
Alex Chu
2003-02-18 14:42
2003.03.10
Может ли кто помочь с триггером?


14-30037
wnew
2003-02-24 15:50
2003.03.10
PC + NoteBook


1-29894
Nehto
2003-02-26 15:40
2003.03.10
Vozmozhno uznat s kakoj formi bila otkrita forma?


1-29917
Ozone
2003-02-27 08:02
2003.03.10
Как получить текущую директорию запускаемого exe-файла.


6-29992
Nox
2003-01-22 16:01
2003.03.10
Подскажите, если не влом...