[sooriaty03]

السلام عليكم ورحمة الله وبركاته

أخي تفضل هذا الكود

كود :

Public Class Form1
    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
        Handles btnExit.Click
        End
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
         Handles Button1.Click
        Compare(ListBox1, ListBox3)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
        Handles Button2.Click
        Compare(ListBox2, ListBox4)
    End Sub
    Private Sub Compare(ByVal InitialListbox As ListBox, ByVal ResultListBox As ListBox)
        Try
            ResultListBox.Items.Clear()
            Dim ModifiedList As New List(Of String)
            For I = InitialListbox.Items.Count - 1 To 0 Step -1
                Dim SplitText() As String = InitialListbox.Items.Item(I).Split("-")
                'شرط التحق سيتحقق إذا كان السطر يبدأ بأحرف
                If IsNumeric(SplitText(0)) = False Then
                    'السطر لا يبدأ برقم وبالتالي
                    'نعيد  تعريف المصفوفة
                    'ونقوم بحذف العنصر الأول من المصفوفة
                    SplitText = SplitText.Skip(1).ToArray
                End If
                SplitText(5) = 0
                SplitText(7) = 0
                SplitText(9) = 0
                Dim NewText As String = String.Join("-", SplitText)
                If ModifiedList.IndexOf(NewText) > -1 Then
                    ResultListBox.BackColor = Color.YellowGreen
                    ResultListBox.Items.Add(InitialListbox.Items.Item(I))
                    InitialListbox.Items.RemoveAt(I)
                End If
                ModifiedList.Add(NewText)
            Next
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Try
            ListBox3.Items.Clear()
            Dim ModifiedList As New List(Of String)
            For I = ListBox1.Items.Count - 1 To 0 Step -1
                Dim SplitText() As String = ListBox1.Items.Item(I).Split("-")
                'شرط التحق سيتحقق إذا كان السطر يبدأ بأحرف
                If IsNumeric(SplitText(0)) = False Then
                    'السطر لا يبدأ برقم وبالتالي
                    'نعيد  تعريف المصفوفة
                    'ونقوم بحذف العنصر الأول من المصفوفة
                    SplitText = SplitText.Skip(1).ToArray
                End If
                SplitText(5) = 0
                SplitText(7) = 0
                SplitText(9) = 0
                Dim NewText As String = String.Join("-", SplitText)
                ModifiedList.Add(NewText)
            Next
            For I = ListBox2.Items.Count - 1 To 0 Step -1
                Dim SplitText() As String = ListBox2.Items.Item(I).Split("-")
                'شرط التحق سيتحقق إذا كان السطر يبدأ بأحرف
                If IsNumeric(SplitText(0)) = False Then
                    'السطر لا يبدأ برقم وبالتالي
                    'نعيد  تعريف المصفوفة
                    'ونقوم بحذف العنصر الأول من المصفوفة
                    SplitText = SplitText.Skip(1).ToArray
                End If
                SplitText(5) = 0
                SplitText(7) = 0
                SplitText(9) = 0
                Dim NewText As String = String.Join("-", SplitText)

                If ModifiedList.IndexOf(NewText) > -1 Then
                    ListBox3.BackColor = Color.YellowGreen
                    ListBox3.Items.Add(ListBox2.Items.Item(I))
                    ListBox2.Items.RemoveAt(I)
                End If
                ModifiedList.Add(NewText)
            Next
        Catch ex As Exception

        End Try
    End Sub
End Class