+- 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 - 20-04-2013
[COLOR="DarkGreen"]السلام عليكم ورحمة الله وبركاته
على سبيل المثال عندي 400 ملف كل منهم يبدأ أسمه بكلمة id
id01 - id02 - id03
كيف يتم حذف كلمة id من ال 400 ملف مره واحده
لاني حاولت ان اقوم بها من خلال ال Dos ولم اتمكن
شكرا جزيلا[/COLOR]
كيف يتم حذف اول حرف من اسماء مجموعه ملفات - m.rabee - 20-04-2013
وعليكم السلام ورحمة الله وبركاته
كود :
var
OldN,NewN : TSearchRec;
Path : String;
begin
Path := 'C:\Temp\';
if FindFirst(Path+'*.*', faArchive, OldN) = 0 then
begin
repeat
NewN.Name := (OldN.Name);
Delete(NewN.Name,1,2);
ReNameFile(Path + OldN.Name ,Path + NewN.Name);
until FindNext(OldN) <> 0;
FindClose(OldN);
end;لا أعرف إن كان هناك أسهل من هذه الطريقة ولكنها تؤدي العمل بكل الأحوال
أيضاً يمكنك تعديل الاسماء من خلال powershell
كود :
gci *.pas | rename-item -newname { [string]($_.name).substring(2) }كيف يتم حذف اول حرف من اسماء مجموعه ملفات - ELARAPY - 21-04-2013
[COLOR="DarkGreen"]بارك الله فيك اخي m.rabee
الكود يعمل جيدا
[/COLOR]
[COLOR="Purple"]
لي سؤال بنفس الصدد
كيف اقوم بحذف اول حرفين بعد كلمه ID اذا كانا الحرفين 00 مع تغير امتدات الملف ؟
مثلا اسم الملف id0001.rpm - id0002.rpm - id0804.rpm
لتصبح الاسماء هكذا ..
كود :
01.mod - 02.mod - 0804.mod[/COLOR]
كيف يتم حذف اول حرف من اسماء مجموعه ملفات - m.rabee - 22-04-2013
اهلا أخي ELARAPY
كود :
var
OldN : TSearchRec;
NewN, Path : String;
begin
Path := 'C:\Temp\';
if FindFirst(Path+'*.*', faArchive, OldN) = 0 then
begin
repeat
NewN := OldN.Name;
if (UpperCase(NewN[1]) = 'I') and (UpperCase(NewN[2]) = 'D') then
Delete(NewN,1,2);
if (NewN[1] = '0') and (NewN[2] = '0') then
Begin
Delete(NewN,1,2);
Delete(NewN,Length(NewN)-3,4);
NewN := NewN+'.meg';
End;
ReNameFile(Path + OldN.Name ,Path + NewN);
until FindNext(OldN) <> 0;
FindClose(OldN);
end;
end;كيف يتم حذف اول حرف من اسماء مجموعه ملفات - ELARAPY - 22-04-2013
السلام عليكم ورحمة الله
الكود يعمل جيدا ولكن لم يقم بتغير اسم الملف id0804.rpm
كيف يتم حذف اول حرف من اسماء مجموعه ملفات - m.rabee - 22-04-2013
elarapy كتب :الكود يعمل جيدا ولكن لم يقم بتغير اسم الملف id0804.rpm
وعليكم السلام ورحمة الله وبركاته
أنت أردت أن تحول الاسم في حال كان يبدأ بـ id ثم 00
إقتباس :كيف اقوم بحذف اول حرفين بعد كلمه ID اذا كانا الحرفين 00 مع تغير امتدات الملف ؟
والملف الذي ذكرته يحتوي على 0 واحدة بعد الـ id فطبعاً لن يتغير اسمه
كيف يتم حذف اول حرف من اسماء مجموعه ملفات - ELARAPY - 22-04-2013
هذه الصوره لتوضيح الفكره
كود :
http://im38.gulfup.com/cmGZw.bmpملحوظه :
جميع الملفات الاصليه تحمل اربع احرف بعد كلمة ID .
جميع الملفات بعد التسمية تحمل حرفين الى اربع احرف .
ملحوظه اخرى :
بعد تجربه الكود لوحظ بإن الامتدات الجديد يضاف ولكن لا يتم حذف الامتدات القديم .
كيف يتم حذف اول حرف من اسماء مجموعه ملفات - m.rabee - 22-04-2013
عدل الكود التالي:
كود :
if (NewN[1] = '0') and (NewN[2] = '0') then
Begin
Delete(NewN,1,2);
Delete(NewN,Length(NewN)-3,4);
NewN := NewN+'.meg';
End;الى
كود :
if (NewN[1] = '0') and (NewN[2] = '0') then
Begin
Delete(NewN,1,2);
NewN := ChangeFileExt(NewN,'.mod');
End;كيف يتم حذف اول حرف من اسماء مجموعه ملفات - ELARAPY - 22-04-2013
السلام عليكم
الكود يعمل جيدا ولكن بقيت مشكله بسيطه وهي انه بعد تغير الامتدات يبقى اسم الامتدات القديم موجود كأنه نص ولم يحذف
كيف يتم حذف اول حرف من اسماء مجموعه ملفات - m.rabee - 23-04-2013
وعليكم السلام
لقد قمت بتجربة الكود أكثر من مرة ولم اواجه هذه المشكلة !