تغییر نام فایل

[vahid1352]

با سلام خدمت اساتید محترم
سوالی برام پیش اومده که امیدوارم بتونم با کمک شما حل کنم واما سوال
فرض کنید چندتا فایل 18 کاراکتری دارم مثلا به صورت m???????????????????? با پسوند jpg که فقط در m مشترک هستند حالا من یه دستور کلی می خوام که این حرف m را در تمام فایلها حذف کنه بدون اینکه سایر کاراکترهای فایلها عوض بشه ممنون از کمکتون

 

[the_king]

با سلام خدمت اساتید محترم
سوالی برام پیش اومده که امیدوارم بتونم با کمک شما حل کنم واما سوال
فرض کنید چندتا فایل 18 کاراکتری دارم مثلا به صورت m???????????????????? با پسوند jpg که فقط در m مشترک هستند حالا من یه دستور کلی می خوام که این حرف m را در تمام فایلها حذف کنه بدون اینکه سایر کاراکترهای فایلها عوض بشه ممنون از کمکتون

اون مثال تون که 20 تا کاراکتر ؟ داره، در هر صورت مقدار $folder رو روی مسیر پوشه اون فایل ها تنظیم کنید
و تعداد کاراکتر های ? رو در $pattern مشخص کنید و بعد کد زیر را اجرا کنید :

[SIZE="4"]folder$ = '[B]C:\New Folder[/B]'
pattern$ = StrOfChar('?',[B]18[/B])
source$ = folder$ + '\\' + pattern$ + 'm.jpg'
dest$ = pattern$ + '.jpg'
syntax$ = 'WAIT,HIDE /C REN "' + source$ + '" "' + dest$ + '"'
Run("<System>\cmd.exe","syntax$")[/SIZE]

 

[loo30fer]

از این تابع و دستورات هم میتونید استفاده کنید و که اونی که جناب The_king گذاشتن به نظر من کاملتره

تو این دستورات Pos عمل جستجو رو با کلمه m انجام میده و تابع StrDel هم شماره کارکتر میگیره و اون حذف میکنه

String$ = '????????????????????m.jpg'
Val$ = 'm'
Retval = POS(Val$,String$)
Del$ = StrDel(String$,Retval,1)

اگه مکان کلمه m در نام فایل هاتون ثابت باشه میتونید از این دستورات هم استفاده کنید

String$ = '????????????????????m.jpg'
Len = LEN(String$)
Str = Len - 4
Del$ = StrDel(String$,Str,1)