+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : التكرار في Listbox عن طريق Regex (/showthread.php?tid=7981)
التكرار في Listbox عن طريق Regex - aftfm - 21-03-13
بوركت اخي اعزيز sooriaty03
الف شكر فتح الله عليك كمان وكمان شرح واضح
RE: التكرار في Listbox عن طريق Regex - Narutogoo - 02-06-18
انا عندي نفس مشكه مدري وش اسوي تعبت والله كل مركب البرنامج ع جهاز القى نص الادوات مختفيه وداخله ف شاشه
ونص برنامج طالع ونصه مختفي
قسم تعبت ممكن مساعده لو بكود
او طريقه
RE: التكرار في Listbox عن طريق Regex - mrnooo2000 - 03-06-18
للحصول على ما تريد
اتبع الخطوات التالية
1- لابد من وجود قائمتين قائمة للقيم التى تريد فحصها و قائمة أخرى للقيم بعد التنقية
انت لديك الأولى فى الليست بوكس listbox1 لذلك سنتقوم بانشاء لست أخرى
كود :
Private Filtered_List As New List(Of String)الان سنحتاج الى كود للتحقق من وجود القيمة المطلوب فحصها فى القيم التى تم تنقيتها
كود :
Private Function Check_String(str As String) As Boolean
For Each item As String In Filtered_List
If item.Substring(0, 19) = str.Substring(0, 19) _
AndAlso item.Substring(25, 4) = str.Substring(25, 4) _
AndAlso item.Substring(33, 5) = str.Substring(33, 5) Then
Return True
End If
Next
Return False
End Functionالأن سنتقوم بالمرور على القيم بالليست الأولى و فحصها واحدة تلو الاخرى باستخدام الدالة السابقة
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim Itm As String = ""
For I = 0 To ListBox1.Items.Count - 1
Itm = ListBox1.Items(I).ToString
If Not Check_String(Itm) Then Filtered_List.Add(Itm)
Next
ListBox1.Items.Clear()
ListBox1.Items.AddRange(Filtered_List.ToArray)
End Subبعد تنفيذ الكود ستحصل على القيم غير المكررة فى الليست بوكس
بالتوفيق للجميع
=================================================================================================
للاسف لم أرى كود الاخ sooriaty03 الا الان
و فكرته رائعة جدا و بسيطة