リスト（Of T）から重複を削除

Question

List(Of String)で重複を削除するにはどうすればよいですか？私はそれがList(Of T).Distinctと働くことができるという仮定の下にあったが、私の結果はそうではないと言います。私は間違って何をしていますか？または、List(Of T)の重複アイテムを削除するために何を変更する必要がありますか？

ハッシュについては世界中のウェブで何かを読んだことがありますが、それは本当に必要ではないと思います。

これはリストが生成される私のコードです（Autodesk Inventorで動作します）。ここで

Private Function CountCylinders(ByVal oDef As AssemblyComponentDefinition) As Integer 

    ' Lets list all cylinder segments found in the assembly 
    ' we will need the document name to do this. 
    ' the initial value is nothing, if, after counting 
    ' this is still the case, there are no cylinders. 
    Dim oList As New List(Of String) 

    ' Loop through all of the occurences found in the assembly 
    For Each oOccurrence As ComponentOccurrence In oDef.Occurrences 

     ' Get the occurence document 
     Dim oOccurenceDocument As Document 
     oOccurenceDocument = oOccurrence.Definition.Document 

     ' Check if the occurence document name contains cylinder 
     If oOccurenceDocument.FullFileName.Contains("Cylinder") Then 
      ' Get the cylinder filename 
      Dim oCylinder As String 
      oCylinder = oOccurenceDocument.FullFileName 

      ' Get the filename w/o extension 
      oCylinder = IO.Path.GetFileNameWithoutExtension(oCylinder) 

      ' Remove the segment mark. 
      oCylinder = oCylinder.Remove(oCylinder.LastIndexOf("_"), oCylinder.Length - oCylinder.LastIndexOf("_")) 

      oList.Add(oCylinder) 
      Debug.Print("add : " & oCylinder) 
     End If 
    Next 

    ' Delete the duplicates in the list 
    oList.Distinct() 

    ' TODO: can be removed. 
    Debug.Print("Total number of cylinders = " & oList.Count) 

    ' Return the number of cylinders 
    CountCylinders = oList.Count 

End Function 

はコードから、私のデバッグ出力です：。

add : Cylinder_1 
add : Cylinder_2 
add : Cylinder_2 
add : Cylinder_2 
add : Cylinder_2 
add : Cylinder_2 
add : Cylinder_7 
Total number of cylinders = 7 

Answer 1

Function RemoveDuplicate(ByVal TheList As List(Of String)) As List(Of String) 
    Dim Result As New List(Of String) 

    Dim Exist As Boolean = False 
    For Each ElementString As String In TheList 
     Exist = False 
     For Each ElementStringInResult As String In Result 
      If ElementString = ElementStringInResult Then 
       Exist = True 
       Exit For 
      End If 
     Next 
     If Not Exist Then 
      Result.Add(ElementString) 
     End If 
    Next 

    Return Result 
End Function