03-03-23, 06:42 PM
03-03-23, 09:53 PM
(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
04-03-23, 01:31 PM
الف شكر حفظك الله
وفي حالة اني ارغب في اختيار الامتداد أياً كان طولة
يعني نهاية اسم الملف بعد (.)
كيف سيكون الكود
طبعا انا جربت
TextBox2.Text = Split(TextBox1.Text, ".")(1)
لكن قد يكون من ضمن اسم الملف (.) وبالتالي لن يختار الامتداد
وفي حالة اني ارغب في اختيار الامتداد أياً كان طولة
يعني نهاية اسم الملف بعد (.)
كيف سيكون الكود
طبعا انا جربت
TextBox2.Text = Split(TextBox1.Text, ".")(1)
لكن قد يكون من ضمن اسم الملف (.) وبالتالي لن يختار الامتداد
04-03-23, 04:40 PM
(04-03-23, 01:31 PM)aftfm كتب : [ -> ]الف شكر حفظك الله
وفي حالة اني ارغب في اختيار الامتداد أياً كان طولة
يعني نهاية اسم الملف بعد (.)
كيف سيكون الكود
طبعا انا جربت
TextBox2.Text = Split(TextBox1.Text, ".")(1)
لكن قد يكون من ضمن اسم الملف (.) وبالتالي لن يختار الامتداد
هل يمكنك توضح كيفية اختيار الملف ؟ يعني بالاستعراض عن طريق ال openfiledialog ام كيف
05-03-23, 03:37 PM
نعم اخي العزيز asmarsou
باستخادم openfiledialog
باستخادم openfiledialog
05-03-23, 04:57 PM
وعليكم السلام ورحمة الله وبركاته
أفتح مشروع جديد وضع عليه :
- زر عدد واحد.
- مربع نص عدد ستة مربعات .
أدخل على كود الزر وانسخ الكود التالي (ستجدد فيه بإذن الله كل ما يهمك من أمر الملفات) :
في أعلى نافذة الفورم لا تنسى أن تستورد المكتبة التالية تجنباً لأي أخطاء مستقبلاً.
أفتح مشروع جديد وضع عليه :
- زر عدد واحد.
- مربع نص عدد ستة مربعات .
أدخل على كود الزر وانسخ الكود التالي (ستجدد فيه بإذن الله كل ما يهمك من أمر الملفات) :
كود :
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.IO05-03-23, 05:41 PM
(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