كيفية إزالة جزء من اسم ملف عن طريق الكود

[sandanet]

السلام عليكم ورحمة الله وبركاته

تحية طيبة للأساتذة والاخوة الكرام 

سؤالي ببساطة هو كيف يتم ازالة جزء من اسم ملف وليكن اسم الملف كالتالي 2017-10-10_09.42.27_11.jpg  كيف يتم ازالة هذا الجزء 2017-10-10_09.42.27_ وابقاء الاسم بهذا الشكل 11.jpg  فقط؟

[Shivan Rekany]

3 ساعات مضت, sandanet said:

السلام عليكم ورحمة الله وبركاته

تحية طيبة للأساتذة والاخوة الكرام 

سؤالي ببساطة هو كيف يتم ازالة جزء من اسم ملف وليكن اسم الملف كالتالي 2017-10-10_09.42.27_11.jpg  كيف يتم ازالة هذا الجزء 2017-10-10_09.42.27_ وابقاء الاسم بهذا الشكل 11.jpg  فقط؟

اتفضل
 

    Dim strName As String
    Dim strFile As String
    Dim strPath As String   
    strPath = "C:\Users\MyShiv\Desktop\"
    strFile = Dir(strPath & "2017-10-10_09.42.27_11.jpg")
      strName = "11.jpg"
        Name strPath & strFile As strPath & strName
       strFile = Dir

 

[sandanet]

استاذ شفان اشكرك جزيل الشكر على المشاركة .. في الحقيقة انا اعطيت مثال على المطلوب في السؤال وهو اسم الملف 2017-10-10_09.42.27_11.jpg  ولكن هنالك العديد من الملفات التي لدي بذلك الشكل لذلك لايمكن استعمال 

strName = "11.jpg"

[Shivan Rekany]

17 دقائق مضت, sandanet said:

استاذ شفان اشكرك جزيل الشكر على المشاركة .. في الحقيقة انا اعطيت مثال على المطلوب في السؤال وهو اسم الملف 2017-10-10_09.42.27_11.jpg  ولكن هنالك العديد من الملفات التي لدي بذلك الشكل لذلك لايمكن استعمال 

strName = "11.jpg"

ممکن تفھمنی ماذا تريد بالضبط
انا عطيتك تغيير الاسم باسم اخر 
ممكن توضح لي المطلوب بالضبط
هل تريد ان يحذف اللي ما قبل (_) من كل الملفات في فولدر خاص ؟

[sandanet]

نعم بالضبط

3 دقائق مضت, Shivan Rekany said:

ممکن تفھمنی ماذا تريد بالضبط
انا عطيتك تغيير الاسم باسم اخر 
ممكن توضح لي المطلوب بالضبط
هل تريد ان يحذف اللي ما قبل (_) من كل الملفات في فولدر خاص ؟

هذا ما اريد حذفه من الملفات   

2017-10-10_09.42.27_

تم تعديل أكتوبر 16, 2017 بواسطه sandanet

[أبو إبراهيم الغامدي]

بعد إذن أستاذ شيفان..

عملت مثال بسيط، على المطلوب.. في الحقل PNCO اكتب القطعة التي تريد إزالتها.. باقي الحقول أظنها واضحة

بعد تحميل الملفات سوف تري كيف يكون عليه اسم الملف في العمود New file name

تنبيه.. تأكد من الدليل المدرج في File Dir  ينتهي بالشارطة الخلفية

FileManager.zip

تم تعديل أكتوبر 16, 2017 بواسطه أبو إبراهيم الغامدي

[sandanet]

استاذي القدير ابو ابراهيم اتشرف بمشاركتك هذه واشكرك جزيل الشكر على الاستجابة .. المثال الذي ارفقته لم يعمل وتظهر رسالة خطأ عند الضغط على زر load file كما في الصور المرفقة

 

[أبو إبراهيم الغامدي]

قم بتعبئة البيانات في مرابعات السرد والتحرير قبل نقر زر التحميل

وظلل البيانات في مربع السرد قبل قبل نقر زر التغيير

 

[Shivan Rekany]

شکرا لک استاذ @أبو إبراهيم الغامدي 
اتفضل اخي @sandanet الیک طريقة اخرى

    Dim strName As String
    Dim strFile As String
    Dim strPath As String
    Dim MyFileNam As String
    Dim SplFile
    MyFileNam = "*.jpg"
    strPath = "C:\Users\MyShiv\Desktop\Newfolder\" ' مسار الفولدر اللی بھا صور
    strFile = Dir(strPath & MyFileNam)
    Do While Len(strFile) > 0
      SplFile = Split(strFile, "_") 
      strName = SplFile(2) & ".jpg" ' لان عندنا فی اسماء الصور اثنين من ( _ ) ونريد اللي بعده
        Name strPath & strFile As strPath & strName
       strFile = Dir
    Loop

واذا تريد راح ارفع لك القاعدة على ذلك
لكن هناك ملاحظة : لا يجوز ان يكون هنالك اكثر من صور في اخره اي بعد ( _ ) الثاني بنفس الاسم او رقم

تم تعديل أكتوبر 16, 2017 بواسطه Shivan Rekany

[sandanet]

اشكركم جزيل الشكر اساتذتي الكرام على هذا المجهود الرائع بارك الله فيكم وزادكم الله من علمه ووفقكم دنيا وآخرة

جاري تجربة ماتفضلتم به

[mrmdn]

الاخ / ابو ابراهيم الغامدي 

لو سمحت ، هل يمكن رفع الملف FileManager.zip بصيغة اكسس 2003 ولك جزيل الشكر والتقديروالاحترام ،،،،،،،

[أبو إبراهيم الغامدي]

حاول تستغني عن 2003 في أقرب وقت ولا تتأخر عن الركب..

إليك ما طلبت: FileManager.zip