السلام عليكم ورحمة الله وبركاته
إخواني الكرام أريد معرفة امتداد الملف الذي تم اختياره بواسطة
الاداة CommonDialog و أكيد طبعاً الــ Filter = *.* يعني All Files
و جزاكم الله خيراً .
كيف أعرف امتداد الملف المختار بواسطة CommonDialog
مغلق
السلام عليكم ورحمة الله وبركاته
اخي كومفورت ولماذا لا تستخدم الفلتر ؟
مثال :
cmd1.Filter = "DataBase(*.mdb)|*.mdb"
أما لو كنت تريد معرفة الامتداد لسبب اخر فسأحاول مساعدتك فيه ان شاء الله
============
بانتظار ردك
JusT LeT YouR MinD WorK
اقتباسمثال :cmd1.Filter = "DataBase(*.mdb)|*.mdb"
اخي كومفورت ولماذا لا تستخدم الفلتر ؟
شكراً لك أخي MR^King
ولكن أنا أريد أجعل المستخدم يختار صورة فاسأضع الـ Filter = يساوي امتدادات الصور المعروفة
لذلك أريد أن أعرف امتداد النوع الذي اختاره المستخدم
اقتباسأما لو كنت تريد معرفة الامتداد لسبب اخر فسأحاول مساعدتك فيه ان شاء الله
ياريت يا أخي إن كانت تختلف عما أريد لأني أريده في غرض آخر أيضاً
و جزاك الله خيراً .
السلام عليكم ورحمة الله وبركاته
بالطبع يا اخي يمكن معرفته بسهولة
طبعا لديك زر ليقوم بفتح مربع حوار مع المستدم لاختيار الملف الذي يريده
فقم بوضع الكود التالي فيه
CMD.ShowOpen Text1 = Right(CMD.FileName, 3)
وبهذا سيتم أخذ اخر 3 أحرف من الـ FileName والذي هو عبارة عن مسار الملف واسمه وكما تعرف حضرتك انه دائما ينتهي اسم الملف بنقطة ثم ثلاثة احرف تعبر عن نوعه
وطبعا يمكن ان تستبدل الـ Text1 بمتغير وتتعامل معه كما تريد
أتمنى انه يفيدك :)
===============
الى اللقاء
JusT LeT YouR MinD WorK
MR^King كتب:وبهذا سيتم أخذ اخر 3 أحرف من الـ FileName والذي هو عبارة عن مسار الملف واسمه وكما تعرف حضرتك انه دائما ينتهي اسم الملف بنقطة ثم ثلاثة احرف تعبر عن نوعه
طيب وش رأيك بامتداد aspx
السلام عليكم ورحمة الله وبركاته
أعتقد يا اخي المتميز انه لا يحتاج لهذا وقد ذكر اخونا كومفورت انه يريد ان يختار المستخدم صور
وبصراحة لا اعرف لماذا تريد فتح صفحات aspx في الفيجوال بيزك ؟
عموما لو كنت في حاجة اليه نبقى نحاول مع بعض
وبانتظار رد كومفورت هل نفعت معاه ام لا
=========
الى اللقاء
JusT LeT YouR MinD WorK
السلام عليكم..
لو على الموضوع ده ممكن نحدد مكان ال . فى المسار وبعمليه حسابيه بسيطه يمكن تحديد عدد احرف الامتداد .
وبالتالى استخلاصه.. ولو الفكره مش واضحه حضع الكود.
“Any fool can make things bigger, more complex, and more violent”
السلام عليكم ورحمة الله وبركاته
بالفعل كما ذكر الاخ فيمتو انه من الممكن تحديد موقع اخر "." في المسار ثم الخروج بالحروف التي تليها وبهذا يتم استخلاص الامتداد
بس لو كومفورت محتاجه نبقى نشوف الموضوع
الى اللقاء
JusT LeT YouR MinD WorK
MR^King كتب:السلام عليكم ورحمة الله وبركاتهبالفعل كما ذكر الاخ فيمتو انه من الممكن تحديد موقع اخر "." في المسار ثم الخروج بالحروف التي تليها وبهذا يتم استخلاص الامتداد
بس لو كومفورت محتاجه نبقى نشوف الموضوع
الى اللقاء
هذا بالضبط ما أريده أخي الفاضل MR^King
و لكن هناك مشكلة ماذا لوكان الملف مثلاً اسمه "File v1.0"
ستكون هناك نقطة أخرى غير نقطة الامتداد .
و جزاكم الله خيراً إخواني جميعاً على المساعدة و الاهتمام .
السلام عليكم ورحمة الله وبركاته
و لكن هناك مشكلة ماذا لوكان الملف مثلاً اسمه "File v1.0" ستكون هناك نقطة أخرى غير نقطة الامتداد .
لا يا اخي لن تكون هناك مشكلة لأني ذكرت انه من الممكن تحديد موقع اخر "." في المسار
فمهما كان فيها علامة الدوت "." فان العمل سيكون على اخر واحدة في الاسم وهي التي تعبر عن امتداد الملف فلا توجد مشكلة
أرجو تكون فهمت قصدي ولو فيه مشكلة نحاول نوضحها بالكود :)
==========
الى اللقاء
JusT LeT YouR MinD WorK
MR^King كتب:السلام عليكم ورحمة الله وبركاتهو لكن هناك مشكلة ماذا لوكان الملف مثلاً اسمه "File v1.0" ستكون هناك نقطة أخرى غير نقطة الامتداد .لا يا اخي لن تكون هناك مشكلة لأني ذكرت انه من الممكن تحديد موقع اخر "." في المسار
فمهما كان فيها علامة الدوت "." فان العمل سيكون على اخر واحدة في الاسم وهي التي تعبر عن امتداد الملف فلا توجد مشكلة
أرجو تكون فهمت قصدي ولو فيه مشكلة نحاول نوضحها بالكود :)
==========
الى اللقاء
نعم أخي يا ريت لو يكون في توضيح بمثال و اعتذر عن التثقيل -_- :rolleyes:
السلام عليكم
اخى العزيز انا عملتلك داله تبعتلها المسار فتديلك الامتداد...
Public Function ext(ByVal k As String) As String Dim z As Byte Dim q, x As String For z = 1 To Len(k) x = Right(k, 1) If x = "." Then GoTo 10 q = x + q w = Len(k) - 1 k = Left(k, w) Next z 10: ext = q End Function
مثال عليها
Text2.Text = ext(Text1.Text)
“Any fool can make things bigger, more complex, and more violent”
جزاك الله كل خيرا أخي الكريم FemTo ، MR^King
و جعل ما قدمتوه في ميزان حسناتكم إن شاء الله .
اخي العزيز هذه داله اخرى انا عملتها تقوم بنفس الامر لكن اظن انها ابسط لانها لا تستخدم دوال كثيره
Function FindExt(ByVal pathF As String) As String
Dim posOfDot, posOfDot1 As Integer
For i = 1 To Len(pathF)
posOfDot = InStr(i, pathF, ".")
If posOfDot <> 0 Then
posOfDot1 = posOfDot
End If
Next i
FindExt = Mid(pathF, posOfDot1 + 1, Len(pathF) - posOfDot1)
End Function
المهندس
الموضوع مش محتاج غير سطر واحد..
MsgBox Mid(CommonDialog1.FileName, InStrRev(CommonDialog1.FileName, ".", Len(CommonDialog1.FileName)) + 1)
أو
MsgBox Mid(CommonDialog1.FileTitle, InStrRev(CommonDialog1.FileTitle, ".", Len(CommonDialog1.FileTitle)) + 1)
والله يا Pharaonic_Guy كود مختصر و ممتاز اصلي كانت غلبه عني الداله InStrRev
ع العموم مشكووووووووور جدااا
المهندس
هذا الموضوع مغلق.