Rename کردن دسته جمعی فایل ها

[Tarrah]

یه پوشه دارم که توش 5000 تا عکس داره از نوع .jpg
بعضی از عکس ها اول اسمشون چند تا 0 دارن. مثلا 0001 یا 0015 یا 0765
اگه بخوام همه فایل های این پوشه رو طوری Rename کنم که 0 ها از اول اسم فایل ها پاک بشن، چی کار باید بکنم؟

[vcldeveloper]

با استفاده از FindFirst و FindNext لیست فایل های پوشه را بدست بیارید، و با استفاده از RenameFile نام هر فایل را تغییر بدید.

[Tarrah]

یه همچین کدی نوشتم کار می کنه. حالا اگه بخوام بگم اول هر کدوم که صفر هست و هر چند تا هست حذف کن چی کار کنم؟


procedure TForm1.Button2Click(Sender: TObject);
var
sr: TSearchRec;
FileAttrs: Integer;
begin

if FindFirst('*.jpg', faAnyFile, sr) = 0 then
begin
repeat
Renamefile('001.jpg','1.jpg');
until FindNext(sr) <> 0;
FindClose(sr);
end;

end;


یعنی فقط RenameFile رو الان باید اصلاح کنم. درسته؟

[mossaferin]

سلام

1- اگر مطمئن هستی که اسم فایلها فقط از عدد تشکیل شده ، اسم فایل رو جدا کن به عدد (integer) تبدیل کن و دوباره به string تبدیل کن و فایلت رو تغییر نام بده اینجوری صفرهای اولش حذف میشه

2- باید با استفاده از دستور copy تعداد صفر ها رو بشمری و حذفشون کنی

3- بدون توجه به نام فایل با یه کانتر شروع به نام گذاری کن

موفق باشی

[vcldeveloper]

یه همچین کدی نوشتم کار می کنه. حالا اگه بخوام بگم اول هر کدوم که صفر هست و هر چند تا هست حذف کن چی کار کنم؟
اسم فایل را که به دست آوردید، می تونید کدی مثل این بنویسید:


var
sr: TSearchRec;
i : Integer;
NewFileName,
Path : TFileName;
begin
Path := 'C:\';
if FindFirst(Path + '*.jpg', faAnyFile, sr) = 0 then
try
repeat
for i := 1 to Length(sr.Name) do
if sr.Name[i] <> '0' then
Break;
NewFileName := Path + Copy(sr.Name,i,Length(sr.Name)-i);
RenameFile(Path + sr.Name, NewFileName);
until FindNext(sr) <> 0;
finally
FindClose(sr);
end;
end;

[Tarrah]

خیلی ممنون از راهنمایی هاتون
هر چند فرمایش شما جامع تر هست ولی با این کد مشکلم حل شد
کد شما رو هم امتحان می کنم




procedure TForm1.Button2Click(Sender: TObject);
var
sr: TSearchRec;
i,first,last: Integer;
begin
first:=strtoint(edit2.Text);
last:=strtoint(edit3.Text);
if FindFirst('*.jpg', faAnyFile, sr) = 0 then
begin
for i:=first to last do
Renamefile(edit1.Text+inttostr(i)+'.jpg',inttostr( i)+'.jpg');
FindClose(sr);
end;
end;