• 0
فتى الوادي

[ تمت الإجابة ]فصل اسم الملف عن المسار

سؤال

السلام عليكم

إذا لدي حقل فيه مسار لأحد الملفات بهذا الشكل :

C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Sunset.jpg

وريد فصل اسم الملف عن بقية المسار في حقل آخر ليكون بهذا الشكل بعد الفصل :

Sunset.jpg

فكيف يتم ذلك ..

وأعذروني على كرة الأستفسارات هذه الأيام ...

db6.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

9 إجابة على هذا السؤال .

  • 0

تفضل اخي

وهذا هو الكود:

Dim strSearchValue As String
Dim intTextLen As Integer
Dim intFileName As Integer

strSearchValue = "\"
intTextLen = Len(txtOrginalFile)
intFileName = InStrRev(Me.txtOrginalFile, strSearchValue, -1, vbTextCompare)

Me.Text6 = Right(Me.txtOrginalFile, intTextLen - intFileName)

File Name.zip

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أكرر شكري لك أخي الكريم وأعتذر لأني أستعجل في طرح الموضوع ...

ولا أملك لك إلا الدعاء في ظهر الغيب

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بارك الله فيك استاذ اياد دهشان

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

نجدد السؤال :

اخي الكريم أحتجت إلى فصل الاسم فقط بدون الملحقة .

حاولت أعدل على الكود ما ضبطت معاي .

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

تفضل اخي

تم التعديل باستخدام الكود


Dim strSearchValue1, strSearchValue2 As String
Dim intTextLen, intFind1, intFind2 As Integer
strSearchValue1 = "\"
strSearchValue2 = "."
intTextLen = Len(txtOrginalFile)
intFind1 = InStrRev(Me.txtOrginalFile, strSearchValue1, -1, vbTextCompare) + 1
intFind2 = InStrRev(Me.txtOrginalFile, strSearchValue2, -1, vbTextCompare) - 1
Me.Text6 = Mid(Me.txtOrginalFile, intFind1, intTextLen - intFind2)

File Name.zip

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي الكريم : غلبتك معي فأعذرني ..

جربت اسم الملف :

d:\mot\ motaib.jpg

طلع لي بعد الفصل :

mot

وجربت الملف : d:\12.jpg

طلع = 12.j

وجربت اسم الملف هذا :

d:\mototaib.jpg

طلع النتيجة بعد الفصل = moto

انا اريد اسم الملف كاملا بغض النظر عن موقعه ... أي الاسم الذي بين اللاحقة (مثال JPG ) وبين الداش المائلة ( \ )

واعذرني على التعب معي .

تم تعديل بواسطه فتى الوادي
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اعذرني اخي فتى الوادي

لقد اخطات انا في الكود .. و تم تصحيح الملف

CutFile Name.zip

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

وفقك الله استاذ اياد

ودوماً إلى الأمام

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أحسنت أخي الكريم وبارك الله فيك ويعطيك الف وخمسائة عافية

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .