vb.net - VB中去除重复的代码优化

Question

我正在寻找优化我的代码。具体这个过程

1. 计算一组位置（基本上是网格上的正方形）
2. 列出所有已计算的位置
3. 然后我遍历所有这些位置，一次 1 个。

我遇到的问题是删除或不包括列表中的重复位置。我试过有一个整数列表（表示位置的整数），但它仍然很慢。为了让您了解这些数字：我说的是至少 15,000 个不同的位置计算和大约 1,000,000 个可能的位置。

对此的任何帮助将不胜感激！

Answer 1

这是我从字符串数组中删除重复项的方法，也许它会对您有所帮助：

  Dim OneDimensionalTable(1000) As String

  ....

  OneDimensionalTable = RemoveDuplicates(OneDimensionalTable)

  .....


 Private Function RemoveDuplicates(ByVal items As String()) As String()

    Dim noDupsArrList As New ArrayList()
    For i As Integer = 0 To items.Length - 1
        If Not noDupsArrList.Contains(items(i).Trim()) Then
            noDupsArrList.Add(items(i).Trim())
        End If
    Next

    Dim uniqueItems As String() = New String(noDupsArrList.Count - 1) {}
    noDupsArrList.CopyTo(uniqueItems)
    Return uniqueItems

End Function