حذف سطر معين من ملف نصى - ابو روضة - 04-02-20
السلام عليكم ورحمة الله وبركاته.
أخوتى بعد اذنكم لدى كود يقوم بفتح ملفات فيديو داخل الليست بوكس ويأخذ مسار الملفات
من داخل ملف نصى هكذا
كود :
Dim r As New IO.StreamReader("C:\Windows\playlest\sami.txt", True)
While (r.Peek() > -1)
ListBox1.Items.Add(r.ReadLine)
End While
r.Close()
ولدى كود أخر يقوم بحذف العنصر المحدد من الليست بوكس هكذا
كود :
ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
فأنا أريد أن يقوم بحذف العنصر الذى حددته فى الليست بوكس وأيضاً من التكست بوكس الموجود به المسار.
يعنى أريده حينما يحذف السطر من الليست بوكس يقوم بحذف السطر الموجود داخل الملف النصى اللى بهذا المسار
"C:\Windows\playlest\sami.txt"
وجزاكم الله كل الخير
RE: حذف سطر معين من ملف نصى - SnTnt - 05-02-20
(04-02-20, 11:35 PM)ابو روضة كتب : السلام عليكم ورحمة الله وبركاته.
أخوتى بعد اذنكم لدى كود يقوم بفتح ملفات فيديو داخل الليست بوكس ويأخذ مسار الملفات
من داخل ملف نصى هكذا
كود :
Dim r As New IO.StreamReader("C:\Windows\playlest\sami.txt", True)
While (r.Peek() > -1)
ListBox1.Items.Add(r.ReadLine)
End While
r.Close()
ولدى كود أخر يقوم بحذف العنصر المحدد من الليست بوكس هكذا
كود :
ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
فأنا أريد أن يقوم بحذف العنصر الذى حددته فى الليست بوكس وأيضاً من التكست بوكس الموجود به المسار.
يعنى أريده حينما يحذف السطر من الليست بوكس يقوم بحذف السطر الموجود داخل الملف النصى اللى بهذا المسار
"C:\Windows\playlest\sami.txt"
وجزاكم الله كل الخير
مرحبا يا ايها القائد
تفضل لقد قمت بالتعديل على الكود واصبح مثل ما اردت
ضع هاذا الكود في زر الحذف يا ايها القائد
كود :
Try
Dim vb4arb As String = "C:\Windows\playlest\sami.txt"
Dim Line As Integer = ListBox1.SelectedIndex + 1
Dim lines As List(Of String) = System.IO.File.ReadAllLines(vb4arb).ToList
lines.RemoveAt(Line - 1)
System.IO.File.WriteAllLines(vb4arb, lines)
ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
Catch ex As Exception
MsgBox("هل حددت الخيار الذي تريد حذفه ؟")
End Try
واضفت بعض الاشياء
شكرا لمساعدتك لنا ونحن سنقوم بالمعروف دائما
RE: حذف سطر معين من ملف نصى - ابو روضة - 05-02-20
(05-02-20, 12:40 AM)SnTnt كتب : مرحبا يا ايها القائد
تفضل لقد قمت بالتعديل على الكود واصبح مثل ما اردت
ضع هاذا الكود في زر الحذف يا ايها القائد
كود :
Try
Dim vb4arb As String = "C:\Windows\playlest\sami.txt"
Dim Line As Integer = ListBox1.SelectedIndex + 1
Dim lines As List(Of String) = System.IO.File.ReadAllLines(vb4arb).ToList
lines.RemoveAt(Line - 1)
System.IO.File.WriteAllLines(vb4arb, lines)
ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
Catch ex As Exception
MsgBox("هل حددت الخيار الذي تريد حذفه ؟")
End Try
واضفت بعض الاشياء
شكرا لمساعدتك لنا ونحن سنقوم بالمعروف دائما
الله يكرم أصلك الطيب أخى الكريم ويبارك بعمرك..
المشكلة أننى إهتممت أكثر بالتعامل مع الويب لآتعلم ما يخصنى وتركت الباقى وهذا خطأ كبير طبعا
ولآجل هذا دائما أقول لمن يريد الإلمام باللغة أن لا يهتم بجزء ويترك الباقى كما فعلت أنا ولآجل
هذا بقع فى أشياء بسيطة ولكنى فعلت هذا لظروف شديدة لا يعلمها الا الله...
يعنى لستُ قائد كما تتخيلنى
جارى التجربة أخى.
RE: حذف سطر معين من ملف نصى - SnTnt - 05-02-20
(05-02-20, 01:48 AM)ابو روضة كتب : (05-02-20, 12:40 AM)SnTnt كتب : مرحبا يا ايها القائد
تفضل لقد قمت بالتعديل على الكود واصبح مثل ما اردت
ضع هاذا الكود في زر الحذف يا ايها القائد
كود :
Try
Dim vb4arb As String = "C:\Windows\playlest\sami.txt"
Dim Line As Integer = ListBox1.SelectedIndex + 1
Dim lines As List(Of String) = System.IO.File.ReadAllLines(vb4arb).ToList
lines.RemoveAt(Line - 1)
System.IO.File.WriteAllLines(vb4arb, lines)
ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
Catch ex As Exception
MsgBox("هل حددت الخيار الذي تريد حذفه ؟")
End Try
واضفت بعض الاشياء
شكرا لمساعدتك لنا ونحن سنقوم بالمعروف دائما
الله يكرم أصلك الطيب أخى الكريم ويبارك بعمرك..
المشكلة أننى إهتممت أكثر بالتعامل مع الويب لآتعلم ما يخصنى وتركت الباقى وهذا خطأ كبير طبعا
ولآجل هذا دائما أقول لمن يريد الإلمام باللغة أن لا يهتم بجزء ويترك الباقى كما فعلت أنا ولآجل
هذا بقع فى أشياء بسيطة ولكنى فعلت هذا لظروف شديدة لا يعلمها الا الله...
يعنى لستُ قائد كما تتخيلنى
جارى التجربة أخى.
حسنا , انا متحمس اي مشكلة اخبرني بها
RE: حذف سطر معين من ملف نصى - ابو روضة - 05-02-20
إقتباس :حسنا , انا متحمس اي مشكلة اخبرني بها
تسلم أخى نفع الكود واشتغل تمام بارك الله فيك..
|