[aftfm]

بوركت اخي اعزيز sooriaty03
الف شكر فتح الله عليك كمان وكمان شرح واضح

[Narutogoo]

انا عندي نفس مشكه مدري وش اسوي تعبت والله كل مركب البرنامج ع جهاز القى نص الادوات مختفيه وداخله ف شاشه

ونص برنامج طالع ونصه مختفي

قسم تعبت ممكن مساعده لو بكود

او طريقه

[mrnooo2000]

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