اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


sandanet

الردود الموصى بها

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

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

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

رابط هذا التعليق
شارك

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

 

  • Like 1
رابط هذا التعليق
شارك

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

strName = "11.jpg"
رابط هذا التعليق
شارك

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

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


strName = "11.jpg"

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

رابط هذا التعليق
شارك

نعم بالضبط

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

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

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

2017-10-10_09.42.27_
تم تعديل بواسطه sandanet
رابط هذا التعليق
شارك

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

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

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

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

FileManager.zip

تم تعديل بواسطه أبو إبراهيم الغامدي
  • Like 1
رابط هذا التعليق
شارك

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

 

Untitled.png

Untitled2.png

رابط هذا التعليق
شارك

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

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

ice_screenshot_20171016-224726.png.2f35b244f60da4c53d10fefa8bb1992c.png

 

  • Like 1
رابط هذا التعليق
شارك

شکرا لک استاذ @أبو إبراهيم الغامدي 
اتفضل اخي @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

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

تم تعديل بواسطه Shivan Rekany
  • Thanks 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information