منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم كيف حذف سطر يعصر ع نص محدد ع سبيل المثال
اريده ان يحذف اى ايتم يكون فى النص هذا 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
وفى كل مره بيعدى ع اليست بوكس فطبيعى انه هينفذ الامر فى كل اضافة لين

.....

إذا كانت الكلمة الدليلية في نهاية السطر استخدم 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 بدلاً من هذه الطريقة وهي تأدي الغرض أيضاً

.....

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ابراهيم مراد

vbnet