Dizideki tekrarlanan verileri silme

 
<%
Function RemDups(ByVal anArray)
Dim d, item, thekeys

Set d = CreateObject("Scripting.Dictionary")
d.removeall
d.CompareMode = 0
For Each item In anArray
If Not d.Exists(item) Then d.Add item, item
Next
thekeys = d.keys
Set d = Nothing
RemDups = thekeys
End Function
%>

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

dizideki tekrarlanan verileri silme