تشخیص موارد تکراری

[xsalam]

سلام راهی رو در وی بی میشناسید ک بتون با استفاده از آن ، موارد تکراری در یک لیست را تشخیص داد و حذف کرد من خودم ی کارایی کردم و اینا رو نوشتم،ولی خب هنو مشکل داره

Dim z1, z2 As Integer Dim z3 As Long

z1 = 0
z2 = 0
z3 = Val(List1.ListCount) * Val(List2.ListCount)

For xi = 1 To z3

If List1.List(z1) = List2.List(z2) Then
List1.RemoveItem (z1)
List2.RemoveItem (z2)
End If

If z2 <= (Val(List2.ListCount) - 1) Then z2 = z2 + 1

If z2 > (Val(List2.ListCount) - 1) Then
z2 = 0
z1 = z1 + 1
End If

Next xi

ببین منظورم اینه برنامه بیاد گزینه اول لیست 1 رو با رو با تک تک گزینه های لیست 2 چک کنه ، اگه مشابه نبود به لیست سوم اضافه کنه ، ولی اگه مشابه بود ب محض اینکه یه مورد مشابه پیدا کرد ، هر دو تا رو حذف کنه ینی هم از لیست 1 اون مورد رو حذف کنه ، هم از لیست 2

ممنون میشم کمکم کنین

[isaac23]

اگه یه سورس بذاری زودتر جواب میگیری....

[setroyd]

Private Sub Command1_Click()
Dim I As Integer
Dim J As Integer

For I = List1.ListCount - 1 To 0 Step -1
For J = 0 To List2.ListCount
If List1.List(I) = List2.List(J) Then
List1.RemoveItem (I)
List2.RemoveItem (J)
Exit For
End If
Next J
Next I


For a = 0 To List1.ListCount - 1
List3.AddItem List1.List(a)
Next
For a = 0 To List2.ListCount - 1
List3.AddItem List2.List(a)
Next
End Sub



کد خیلی اصولی نیست اما اون چیزی که میخواستی رو دراوردم