حذف کلمات تکراری از لیست

[xrezax]

بچه ها ما توی یک لیست یک کلمه داریم. می خوام وقتی روی کامند کلیک کنم. تکراری ها حذف بشن. (کلمات تکراری)

[quiet_programmer]

سلام.


Dim Find As Boolean
Dim Index As Integer
Index = 0
For i = 0 To n
Find = False
For j = 0 To Index - 1
If List(i) = EList(j) Then
Find = True
Exit For
End If
Next
If Find = False Then
EList(Index) = List(i)
Index = Index + 1
End If
Next

[parselearn]

http://barnamenevis.org/attachment.php?attachmentid=53360&d=1280584954