Diese Funktion löscht alle Doppelten Einträge aus einer Arraylist (nicht zu verwechseln mit einem Array). Also aus AAABBBCCC wird ABC
Public Function KillDoubleEntries(ByRef RefArray As ArrayList) As Long
Dim Count As Long
For i As Long = 0 To RefArray.Count - 1
For n As Long = i + 1 To RefArray.Count - 1
If i <> n And (RefArray.Count - 1) >= n Then
If RefArray(i).ToString = RefArray(n).ToString Then
RefArray.RemoveAt(i)
Count += 1
n -= 1
End If
End If
Next
Next
Return Count
End Function
2 Kommentare zum Snippet