VPF::Как сделать цикл чтоб переименовать группу

Serhik_z

Дата 9.4.2005, 02:43 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Awaiting Authorisation
Сообщений: 108
Регистрация: 4.12.2004

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

Как сделать цикл чтоб переименовать группу файлов формата jpg
с разным названием файлов (01_55.jpg) (fan.jpg)
находящиеся в одной папке (picture)
в 001.jpg 002.jpg ... и т.д.
smile

сфе

Дата 9.4.2005, 06:35 (ссылка)

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

Загрузка ...

Новичок

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

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

Код

Procedure ScanDir(Dir:string); 
var SearchRec:TSearchRec; F:File;
begin 
 if Dir<>'' then if Dir[length(Dir)]<>'\' then Dir:=Dir+'\';  
  if FindFirst(Dir+'*.*', faAnyFile, SearchRec)=0 then  
  repeat  
  if (SearchRec.name='.') or (SearchRec.name='..') then continue;  
  if (SearchRec.Attr and faDirectory)<>0 then  
  ScanDir(Dir+SearchRec.name) //we found Directory: "Dir+SearchRec.name"  
else  
  AssignFile(F,SearchRec.name);Reneme(F,'NewName') 
  until FindNext(SearchRec)<>0;  
 
 FindClose(SearchRec);  
  
end;

Это сообщение отредактировал(а) Alex - 9.4.2005, 09:27

Serhik_z

Дата 9.4.2005, 09:00 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Awaiting Authorisation
Сообщений: 108
Регистрация: 4.12.2004

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

При компиляции выдается ошибка на Reneme (F,'NewName')
Подскажите, что сделать.

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
  Procedure ScanDir(Dir:string);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.ScanDir(Dir: string);
var SearchRec:TSearchRec; F:File;
begin 
if Dir<>'' then if Dir[length(Dir)]<>'\' then Dir:=Dir+'\';
if FindFirst(Dir+'*.*', faAnyFile, SearchRec)=0 then 
repeat
if (SearchRec.name='.') or (SearchRec.name='..') then continue; 
if (SearchRec.Attr and faDirectory)<>0 then 
ScanDir(Dir+SearchRec.name) //we found Directory: "Dir+SearchRec.name" 
else 
AssignFile(F,SearchRec.name);
Reneme (F,'NewName')  // Ошибка
until FindNext(SearchRec)<>0;
FindClose(SearchRec);
end;

end.

Poseidon

Дата 9.4.2005, 14:22 (ссылка)

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

Загрузка ...

Delphi developer

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

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

Цитата(Serhik_z @ 9.4.2005, 09:00)

Подскажите, что сделать.

RenAme

сфе допустил описку. А еще не забудь передать значение в Dir (в твоем коде этого нет) - каталог, где файлы. И еще. Если у тебя в этом каталоге еще и подкаталоги, в каторых ты не хочешь ничего переименовывать, то код нужно будет изменить.

Блин, еще кое что нашел. Приведенный код переименует все файлы. Если нужно только JPeg, то пиши

Код

if FindFirst(Dir+'*.jpg', faAnyFile, SearchRec)=0 then

Вроде все.

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Serhik_z

Дата 10.4.2005, 03:48 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Awaiting Authorisation
Сообщений: 108
Регистрация: 4.12.2004

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

Poseidon
Описку увидел

Код


//RenameFile - Renеme
  Rename(F,'NewName') until FindNext(SearchRec)<>0;

Подскажи как передать значение в Dir
Если можно пример.
smile

FRAGNATIC

Дата 10.4.2005, 11:26 (ссылка)

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

Загрузка ...

..::Свирепый Кодер::..

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

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

Цитата

Подскажи как передать значение в Dir
Если можно пример.

вызывай эту процедура например по нажатию кнопки так

Код


ScanDir('сюда вводи дир');

Это сообщение отредактировал(а) Girder - 10.4.2005, 17:48

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