23-04-2013, 05:58 PM
الصفحات : 1 2
24-04-2013, 04:58 PM
السلام عليكم ورحمة الله
هذه بعض من الملفات المطلوب تطبيق الكود عليها
حاول اخي الفاضل ان تطبق عليها الكود ولاحظ ان الامتداد تغير فعلا ولكن نص الامتدات الاول يبقى كما هو ..
ملحوظه الكود يتعامل مع الاسم والامتداد كسلسه نصية واحده وليس اسم وامتدات
هذه بعض من الملفات المطلوب تطبيق الكود عليها
كود :
http://arabsh.com/files/0d32424f6cf0/new-folder-zip.htmlحاول اخي الفاضل ان تطبق عليها الكود ولاحظ ان الامتداد تغير فعلا ولكن نص الامتدات الاول يبقى كما هو ..
ملحوظه الكود يتعامل مع الاسم والامتداد كسلسه نصية واحده وليس اسم وامتدات
24-04-2013, 06:43 PM
وعليكم السلام ورحمة الله وبركاته
التعديل الوحيد بسبب وجود علامة ~
في بداية اسماء الملفات
التعديل الوحيد بسبب وجود علامة ~
في بداية اسماء الملفات
كود :
var
OldN : TSearchRec;
NewN, Path : String;
begin
Path := 'C:\Temp\New Folder\';
if FindFirst(Path+'*.*', faArchive, OldN) = 0 then
begin
repeat
NewN := OldN.Name;
if UpperCase(Copy(NewN,1,3)) = '~ID' then
Delete(NewN,1,3);
if Copy(NewN,1,2) = '00' then
Begin
Delete(NewN,1,2);
NewN := ChangeFileExt(NewN,'.mod');
End;
ReNameFile(Path + OldN.Name ,Path + NewN);
until FindNext(OldN) <> 0;
FindClose(OldN);
end;
end;24-04-2013, 10:24 PM
كده الكود تمام الله ينور لكن الملفات التى لا تبدأ ب 00 لا يتم تغير الامتدات .
لكن اين اضع ليتم تنفذها خارج الجمله الشرطيه بمعنى في جميع الاحوال يتم تغير الامتدات ..
لان بعض الملفات لم يتم تغير امتدادتها
السلام عليكم
لكن اين اضع
كود :
NewN := ChangeFileExt(NewN,'.mod');لان بعض الملفات لم يتم تغير امتدادتها
السلام عليكم
24-04-2013, 10:33 PM
تم تعديل الكود ويعمل جيدا مع جميع الملفات الا ملف واحد ولا ادري لماذا ..
سؤال اخر
كيف اضيف حرفين قبل اسم الملف وليكن ID ?
كود :
var
OldN : TSearchRec;
NewN, Path : String;
begin
Path := 'C:\Temp\New Folder\';
if FindFirst(Path+'*.*', faArchive, OldN) = 0 then
begin
repeat
NewN := OldN.Name;
NewN := ChangeFileExt(NewN,'.mod');
if UpperCase(Copy(NewN,1,3)) = '~ID' then
Delete(NewN,1,3);
if Copy(NewN,1,2) = '00' then
Begin
Delete(NewN,1,2);
End;
ReNameFile(Path + OldN.Name ,Path + NewN);
until FindNext(OldN) <> 0;
FindClose(OldN);
end;
end;سؤال اخر
كيف اضيف حرفين قبل اسم الملف وليكن ID ?
24-04-2013, 11:26 PM
[color="purple"]سؤال اخر
كيف اضيف حرفين قبل اسماء الملفات وليكن id وكيف اضيف بعدها حرف e لتصبح ide إذا كانت اسماء الملفات مكونه من ثلاث حروف ؟
اما إذا كانت اسماء الملفات اكثر من ثلاث حروف فيتم إضافه كلمه ID فقط بدون حرف E
[COLOR="DarkGreen"]
ملحوظه
نفس عدد الملفات 400 ملف[/COLOR][/color]
كيف اضيف حرفين قبل اسماء الملفات وليكن id وكيف اضيف بعدها حرف e لتصبح ide إذا كانت اسماء الملفات مكونه من ثلاث حروف ؟
اما إذا كانت اسماء الملفات اكثر من ثلاث حروف فيتم إضافه كلمه ID فقط بدون حرف E
[COLOR="DarkGreen"]
ملحوظه
نفس عدد الملفات 400 ملف[/COLOR][/color]
25-04-2013, 08:22 AM
السلام عليكم
هنا يتم التأكد ان كانت بداية الملف تحتوي على 00 (بعد حذف ID~) عندها يقوم بحذف الـ00 وتعديل اللاحقة
هنا يتم التأكد من أول ثلاثة حروف من اسم الملف
الرقم 3 يرمز الى عدد الحروف المراد التأكد منها
مثلاً لو اردت التأكد من حرفين فقط غير الرقم الى 2
وغير ID~ الى حرفين فقط مثلا D~
وهكذا....
هنا يتم التأكد ان كانت بداية الملف تحتوي على 00 (بعد حذف ID~) عندها يقوم بحذف الـ00 وتعديل اللاحقة
كود :
if Copy(NewN,1,2) = '00' then
Begin
Delete(NewN,1,2);
NewN := ChangeFileExt(NewN,'.mod');
End;هنا يتم التأكد من أول ثلاثة حروف من اسم الملف
كود :
if UpperCase(Copy(NewN,1,3)) = '~ID' thenالرقم 3 يرمز الى عدد الحروف المراد التأكد منها
مثلاً لو اردت التأكد من حرفين فقط غير الرقم الى 2
وغير ID~ الى حرفين فقط مثلا D~
وهكذا....
25-04-2013, 03:08 PM
كيف اضيف احرف بدل من احذف
25-04-2013, 04:36 PM
استخدم Insert
IDE = الحروف التي تريد أضافتها
NewN = اسم الملف كما هو في المثال السابق
2 = الموقع الذي تريد بدء اضافة الحروف فيه، و الرقم 2 يعني بعد الحرف الأول
كود :
Insert('IDE',NewN,2)IDE = الحروف التي تريد أضافتها
NewN = اسم الملف كما هو في المثال السابق
2 = الموقع الذي تريد بدء اضافة الحروف فيه، و الرقم 2 يعني بعد الحرف الأول
الصفحات : 1 2