تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كيف حذف سطر فى listbox
#1
السلام عليكم كيف حذف سطر يعصر ع نص محدد ع سبيل المثال
اريده ان يحذف اى ايتم يكون فى النص هذا nologin
Host :11.22.33.44 UserName : ahmed Password : nologin
Host :11.22.33.44 UserName : ahmed Password : login
Host :11.22.33.44 UserName : ahmed Password : run
Host :11.22.33.44 UserName : ahmed Password : nologin
واتمنى منك يكون يدوى مش for i طبعا هاتقولى ليه يدوى لان هو بياخد السيلكت ايتم من ليست بوكس تانى فيها for i
وفى كل مره بيعدى ع اليست بوكس فطبيعى انه هينفذ الامر فى كل اضافة لين
الرد }}}
تم الشكر بواسطة:
#2
.....

إذا كانت الكلمة الدليلية في نهاية السطر استخدم EndsWith وإذا كان مكانها غير معروف استخدم Contains
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    For i = Me.ListBox1.Items.Count - 1 To 0 Step -1
        If Me.ListBox1.Items(i).ToString.EndsWith("nologin") Then
            Me.ListBox1.Items.RemoveAt(i)
        End If
    Next
End Sub

تم استخدام المرور من الاسفل للأعلى للسبب التالي:
عند المرور من الأعلى للأسفل (كما العادة) وعند حذف سطر سينقص العدد الاجمالي للأسطر عن العدد المقروء في بداية حلقة For مما يحدث خطأ عند وصول عداد For لرقم أكبر من العدد الإجمالي الحالي والذي أصبح أقل بسبب حذف أسطر، وقد يستعمل البعض Try بدلاً من هذه الطريقة وهي تأدي الغرض أيضاً

.....
الرد }}}
تم الشكر بواسطة: ابراهيم مراد



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


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