منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
حذف امتداد الملف - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : حذف امتداد الملف (/showthread.php?tid=45611)

حذف امتداد الملف - aftfm - 03-03-23

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

ارغب في حذف امتداد ملف
حسب اسم الملف ومسارة الموجود في مربع النص

RE: حذف امتداد الملف - asmarsou - 03-03-23

(03-03-23, 06:42 PM)aftfm كتب : السلام عليكم ورحمة الله وبركاته

ارغب في حذف امتداد ملف
حسب اسم الملف ومسارة الموجود في مربع النص
وعليكم السلام و رحمة الله و بركاته
اليك بمثال وظفه حسب ما لديك
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TextBox2.Text = Split(TextBox1.Text, ".")(0)
    End Sub 


RE: حذف امتداد الملف - aftfm - 04-03-23

الف شكر حفظك الله

وفي حالة اني ارغب في اختيار الامتداد أياً كان طولة

يعني نهاية اسم الملف بعد (.)

كيف سيكون الكود
طبعا انا جربت

TextBox2.Text = Split(TextBox1.Text, ".")(1)

لكن قد يكون من ضمن اسم الملف (.) وبالتالي لن يختار الامتداد

RE: حذف امتداد الملف - asmarsou - 04-03-23

(04-03-23, 01:31 PM)aftfm كتب : الف شكر حفظك الله

وفي حالة اني ارغب في اختيار الامتداد أياً كان طولة

يعني نهاية اسم الملف بعد (.)

كيف سيكون الكود
طبعا انا جربت

TextBox2.Text = Split(TextBox1.Text, ".")(1)

لكن قد يكون من ضمن اسم الملف (.) وبالتالي لن يختار الامتداد

هل يمكنك توضح كيفية اختيار الملف ؟ يعني بالاستعراض عن طريق ال openfiledialog ام كيف

RE: حذف امتداد الملف - aftfm - 05-03-23

نعم اخي العزيز asmarsou

باستخادم openfiledialog

RE: حذف امتداد الملف - Taha Okla - 05-03-23

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

أفتح مشروع جديد وضع عليه  :
- زر عدد واحد.
- مربع نص عدد ستة مربعات .

أدخل على كود الزر وانسخ الكود التالي (ستجدد فيه بإذن الله كل ما يهمك من أمر الملفات) :

كود :
Dim ofd1 As New OpenFileDialog

Dim rs1 As DialogResult

rs1 = ofd1.ShowDialog()

If rs1 = DialogResult.OK Then
   TextBox1.Text = ofd1.FileName

   TextBox2.Text = Path.GetDirectoryName(TextBox1.Text)

   TextBox3.Text = Path.GetPathRoot(TextBox1.Text)

   TextBox4.Text = Path.GetFileName(TextBox1.Text)

   TextBox5.Text = Path.GetFileNameWithoutExtension(TextBox1.Text)

   TextBox6.Text = Path.GetExtension(TextBox1.Text)
End If


في أعلى نافذة الفورم لا تنسى أن تستورد المكتبة التالية تجنباً لأي أخطاء مستقبلاً.
كود :
Imports System.IO


RE: حذف امتداد الملف - asmarsou - 05-03-23

(05-03-23, 04:57 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته

أفتح مشروع جديد وضع عليه  :
- زر عدد واحد.
- مربع نص عدد ستة مربعات .

أدخل على كود الزر وانسخ الكود التالي (ستجدد فيه بإذن الله كل ما يهمك من أمر الملفات) :

كود :
Dim ofd1 As New OpenFileDialog

Dim rs1 As DialogResult

rs1 = ofd1.ShowDialog()

If rs1 = DialogResult.OK Then
   TextBox1.Text = ofd1.FileName

   TextBox2.Text = Path.GetDirectoryName(TextBox1.Text)

   TextBox3.Text = Path.GetPathRoot(TextBox1.Text)

   TextBox4.Text = Path.GetFileName(TextBox1.Text)

   TextBox5.Text = Path.GetFileNameWithoutExtension(TextBox1.Text)

   TextBox6.Text = Path.GetExtension(TextBox1.Text)
End If


في أعلى نافذة الفورم لا تنسى أن تستورد المكتبة التالية تجنباً لأي أخطاء مستقبلاً.
كود :
Imports System.IO
 كفيت ووفيت مشكور.... وللامانة وزيادة النفع هذه طريقة اخرى
PHP كود :
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim ofd As New OpenFileDialog
        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox3.Text = ofd.FileName.Remove(ofd.FileName.LastIndexOf("."))
        End If
    End Sub