[aftfm]

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

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

[asmarsou]

(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 


[aftfm]

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

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

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

كيف سيكون الكود

---

طبعا انا جربت

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

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

[asmarsou]

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

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

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

كيف سيكون الكود

---

طبعا انا جربت

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

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

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

[aftfm]

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

باستخادم openfiledialog

[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

[asmarsou]

(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