+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يتم حذف اول حرف من اسماء مجموعه ملفات (/showthread.php?tid=5148)
الصفحات:
1
2
كيف يتم حذف اول حرف من اسماء مجموعه ملفات - ELARAPY - 23-04-2013
[color="purple"]شكرا اخي على اهتمامك
ان شاء الله سأرفق لك صوره للملفات قبل وبعد تنفيذ الكود وايضا صوره بالوضع المطلوب
[/color]
كيف يتم حذف اول حرف من اسماء مجموعه ملفات - ELARAPY - 24-04-2013
السلام عليكم ورحمة الله
هذه بعض من الملفات المطلوب تطبيق الكود عليها
كود :
http://arabsh.com/files/0d32424f6cf0/new-folder-zip.htmlحاول اخي الفاضل ان تطبق عليها الكود ولاحظ ان الامتداد تغير فعلا ولكن نص الامتدات الاول يبقى كما هو ..
ملحوظه الكود يتعامل مع الاسم والامتداد كسلسه نصية واحده وليس اسم وامتدات
كيف يتم حذف اول حرف من اسماء مجموعه ملفات - m.rabee - 24-04-2013
وعليكم السلام ورحمة الله وبركاته
التعديل الوحيد بسبب وجود علامة ~
في بداية اسماء الملفات
كود :
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;كيف يتم حذف اول حرف من اسماء مجموعه ملفات - ELARAPY - 24-04-2013
كده الكود تمام الله ينور لكن الملفات التى لا تبدأ ب 00 لا يتم تغير الامتدات .
لكن اين اضع
كود :
NewN := ChangeFileExt(NewN,'.mod');لان بعض الملفات لم يتم تغير امتدادتها
السلام عليكم
كيف يتم حذف اول حرف من اسماء مجموعه ملفات - ELARAPY - 24-04-2013
تم تعديل الكود ويعمل جيدا مع جميع الملفات الا ملف واحد ولا ادري لماذا ..
كود :
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 ?
كيف يتم حذف اول حرف من اسماء مجموعه ملفات - ELARAPY - 24-04-2013
[color="purple"]سؤال اخر
كيف اضيف حرفين قبل اسماء الملفات وليكن id وكيف اضيف بعدها حرف e لتصبح ide إذا كانت اسماء الملفات مكونه من ثلاث حروف ؟
اما إذا كانت اسماء الملفات اكثر من ثلاث حروف فيتم إضافه كلمه ID فقط بدون حرف E
[COLOR="DarkGreen"]
ملحوظه
نفس عدد الملفات 400 ملف[/COLOR][/color]
كيف يتم حذف اول حرف من اسماء مجموعه ملفات - m.rabee - 25-04-2013
السلام عليكم
هنا يتم التأكد ان كانت بداية الملف تحتوي على 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~
وهكذا....
كيف يتم حذف اول حرف من اسماء مجموعه ملفات - ELARAPY - 25-04-2013
كيف اضيف احرف بدل من احذف
كيف يتم حذف اول حرف من اسماء مجموعه ملفات - m.rabee - 25-04-2013
استخدم Insert
كود :
Insert('IDE',NewN,2)IDE = الحروف التي تريد أضافتها
NewN = اسم الملف كما هو في المثال السابق
2 = الموقع الذي تريد بدء اضافة الحروف فيه، و الرقم 2 يعني بعد الحرف الأول