21-09-13, 10:32 PM
السلام عليكم ورحمة الله وبركاته
اخواني اثابكم الله
هذا كود يقوم باستخراج الاسطر المكرره في لست بوكس ولكن بشروط معينه
أي لا يشترط في التكرار كامل السطر
كتبه احد الاعضاء في منتدى فيجوال بيسك لكل العرب السابق جزاه الله الف خير
الكود
هذا الكود يقوم باستخراج المكرر من لست بوكس واحده أي البحث داخل اللست نفسها
المطلوب
على نفس الشرط السابق في استخراج المكرر
ولكن المكرر من listbox1 و listbox2
أي المقارنة بينهما وبنفس شروط التكرار السابقة
اخواني اثابكم الله
هذا كود يقوم باستخراج الاسطر المكرره في لست بوكس ولكن بشروط معينه
أي لا يشترط في التكرار كامل السطر
كتبه احد الاعضاء في منتدى فيجوال بيسك لكل العرب السابق جزاه الله الف خير
الكود
كود :
Try
Me.ListBox3.Items.Clear()
Dim ModifiedList As New List(Of String)
For I = Me.ListBox1.Items.Count - 1 To 0 Step -1
Dim SplitText() As String = Me.ListBox1.Items.Item(I).split("-")
SplitText(5) = 0
SplitText(7) = 0
SplitText(9) = 0
Dim NewText As String = String.Join("-", SplitText)
If ModifiedList.IndexOf(NewText) > -1 Then
Me.ListBox3.Items.Add(Me.ListBox1.Items.Item(I))
Me.ListBox1.Items.RemoveAt(I)
End If
ModifiedList.Add(NewText)
Next
Catch ex As Exception
End Tryهذا الكود يقوم باستخراج المكرر من لست بوكس واحده أي البحث داخل اللست نفسها
المطلوب
على نفس الشرط السابق في استخراج المكرر
ولكن المكرر من listbox1 و listbox2
أي المقارنة بينهما وبنفس شروط التكرار السابقة
