تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حذف سطر معين من ملف نصى
#1
السلام عليكم ورحمة الله وبركاته.
أخوتى بعد اذنكم لدى كود يقوم  بفتح ملفات فيديو  داخل الليست بوكس ويأخذ مسار الملفات 
من داخل ملف نصى هكذا

كود :
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"

وجزاكم الله كل الخير
الرد }}}
تم الشكر بواسطة: SnTnt
#2
(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"

وجزاكم الله كل الخير


مرحبا يا ايها القائد  Big Grin

تفضل لقد قمت بالتعديل على الكود واصبح مثل ما اردت 

ضع هاذا الكود في زر الحذف يا ايها القائد  Heart

كود :
 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

واضفت بعض الاشياء Smile

شكرا لمساعدتك لنا ونحن سنقوم بالمعروف دائما 
الرد }}}
تم الشكر بواسطة: ابو روضة , ابراهيم ايبو , asemshahen5
#3
(05-02-20, 12:40 AM)SnTnt كتب :
مرحبا يا ايها القائد  Big Grin

تفضل لقد قمت بالتعديل على الكود واصبح مثل ما اردت 

ضع هاذا الكود في زر الحذف يا ايها القائد  Heart

كود :
 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

واضفت بعض الاشياء Smile

شكرا لمساعدتك لنا ونحن سنقوم بالمعروف دائما 


الله يكرم أصلك الطيب أخى الكريم ويبارك بعمرك..
المشكلة أننى إهتممت أكثر بالتعامل مع الويب لآتعلم ما يخصنى وتركت الباقى وهذا خطأ كبير طبعا
ولآجل هذا دائما أقول لمن يريد الإلمام باللغة أن لا يهتم بجزء ويترك الباقى كما فعلت أنا ولآجل 
هذا بقع فى أشياء بسيطة ولكنى فعلت هذا لظروف شديدة لا يعلمها الا الله...
يعنى لستُ قائد كما تتخيلنى  Confused
جارى التجربة أخى.
الرد }}}
#4
(05-02-20, 01:48 AM)ابو روضة كتب :
(05-02-20, 12:40 AM)SnTnt كتب :
مرحبا يا ايها القائد  Big Grin

تفضل لقد قمت بالتعديل على الكود واصبح مثل ما اردت 

ضع هاذا الكود في زر الحذف يا ايها القائد  Heart

كود :
 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

واضفت بعض الاشياء Smile

شكرا لمساعدتك لنا ونحن سنقوم بالمعروف دائما 


الله يكرم أصلك الطيب أخى الكريم ويبارك بعمرك..
المشكلة أننى إهتممت أكثر بالتعامل مع الويب لآتعلم ما يخصنى وتركت الباقى وهذا خطأ كبير طبعا
ولآجل هذا دائما أقول لمن يريد الإلمام باللغة أن لا يهتم بجزء ويترك الباقى كما فعلت أنا ولآجل 
هذا بقع فى أشياء بسيطة ولكنى فعلت هذا لظروف شديدة لا يعلمها الا الله...
يعنى لستُ قائد كما تتخيلنى  Confused
جارى التجربة أخى.

حسنا , انا متحمس اي مشكلة اخبرني بها Smile
الرد }}}
تم الشكر بواسطة: ابو روضة , ابراهيم ايبو , asemshahen5 , asemshahen5
#5
إقتباس :
حسنا , انا متحمس اي مشكلة اخبرني بها 

تسلم أخى نفع الكود واشتغل تمام بارك الله فيك..
الرد }}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل طول حقل معين في جميع جداول القاعدة atefkhalf2004 1 97 09-03-24, 03:17 AM
آخر رد: atefkhalf2004
Lightbulb [VB.NET] إطهار الصورة بمقاس معين في DataGridView أبو خالد الشكري 2 323 14-12-23, 03:01 PM
آخر رد: أبو خالد الشكري
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit
  كيفية جمع قيمة على تاريخ معين واستنتاج تاريخ أخر Ahmed.vb 1 317 02-11-23, 03:52 AM
آخر رد: Taha Okla
  إجبار المستخدم على إدخال عدد معين من الأرقام Ahmed.vb 6 656 20-10-23, 10:25 AM
آخر رد: atefkhalf2004
  كود تغيير قيمة تكست بوكس فى تاريخ معين Ahmed.vb 2 909 11-10-23, 10:35 PM
آخر رد: aljzazy
  حفظ المشروع بامتداد معين غير معروف مسبقا Abo Louay 0 262 29-09-23, 02:55 AM
آخر رد: Abo Louay
  عندما اقوم بالاستعلام عن تاريخ معين بواسطة SELECT لايقوم بتحديد نفس تاريخ اليوم moh61 1 403 13-08-23, 01:06 PM
آخر رد: تركي الحلواني
  اريد البحث عن ID داخل ListView من قاعدة بيانات لكل صنف معين moh61 6 696 26-07-23, 05:47 AM
آخر رد: Taha Okla
  إخفاء الصفر في عمود معين kebboud 0 299 01-07-23, 03:32 AM
آخر رد: kebboud

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم