VPF::Работа с группой файлов - Форум программистов

Shad0wl0rd

Дата 26.3.2006, 14:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 26.3.2006

Репутация: нет
Всего: нет

Нужно файлам ,хранящимся в папке (их больше тысячи в формате *.xml) задать уникальные имена,например A1,A2,.....A1000,в крайнем случае можно генерировать случайные имена.Помогите пожалуста. smile

bems

Дата 26.3.2006, 14:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

FloatToStr(now)+'.xml'

--------------------

Обижено школьников: 8

Shad0wl0rd

Дата 26.3.2006, 15:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 26.3.2006

Репутация: нет
Всего: нет

Если можно,выложите исходник,буду очень благодарен

Stolzen

Дата 26.3.2006, 15:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1041
Регистрация: 17.10.2005

Репутация: нет
Всего: 48

Алгоритм такой:

Поиск по маске "*.xml", находишь все файлы,
делаешь цикл и далее - процедура Rename(var F; Newname: string);
т.е.

Код


Rename(SearchRec.Name; 'A'+i+'.xml');

--------------------

datatalks.ru - анализ данных, статистика, машинное обучение

Shad0wl0rd

Дата 26.3.2006, 16:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 26.3.2006

Репутация: нет
Всего: нет

исходник

Matematik

Дата 26.3.2006, 16:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50

Код


Var SearchRec:TSearchRec;
j:Integer;
begin 
j:=0;
If FindFirst('c:\Windows\*.*', faAnyFile, SearchRec)=0 then 
 repeat
  if (SearchRec.Attr and faDirectory)=0 then
begin
  j:=j+1;
  RenameFile(SearchRec.Name, 'A'+j+'.xml');
end
 until FindNext(SearchRec) <> 0;  
FindClose(SearchRec);

Это сообщение отредактировал(а) Matematik - 26.3.2006, 16:58

Shad0wl0rd

Дата 26.3.2006, 17:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 26.3.2006

Репутация: нет
Всего: нет

ругается на RenameFile(SearchRec.Name, 'A'+j+'.xml');

( Matematik СПАСИБО smile

)

Matematik

Дата 26.3.2006, 17:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50

Цитата(Shad0wl0rd @ 26.3.2006, 17:08

)

ругается на RenameFile(SearchRec.Name, 'A'+j+'.xml');

Код


RenameFile(SearchRec.Name, 'A'+IntToStr(j)+'.xml')

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »