C# と VB.NET の質問掲示板

> Module1.strdata１の中から同じデータを排除して違うデータのリストを求めて下記のプログラムを作成しました。

↓こんなんでえぇですかいのぅ

Imports System.Collections.Generic

Module Program
  Sub Main()
    Dim input As String() = { "りんご","みかん","もも","みかん","りんご","りんご","なし" }
    Dim result As ICollection(Of String) = New List(Of String)

    ' input の各要素を重複なしに result に追加 
    For Each item As String In input
      If Not result.Contains(item) Then
        result.Add(item)
      End If
    Next

    ' 結果確認
    For Each item As String In result 
      Console.WriteLine(item)
    Next
  End Sub
End Module

■No39841 (亜矢 さん) に返信
> Module1.strdata１の中から同じデータを排除して違うデータのリストを求めて下記のプログラムを作成しました。

Module1.strdata１ なのですか? 提示されたコードでは、
Module1.strdata1 になっているようですけれども。


で。Module1.strdata１ のデータ型は何でしょうか?


また、質問の意味は、
　　　strdata１ 内には重複するデータが含まれていて、その中で、
　　　重複しないデータ(1件のみ存在するデータ)はそのまま取り出し、
　　　重複するデータ(2件以上存在するデータ)は一つにして取り出したい。

　　→「1,2,3,4,3」というデータから、「1,2,3,4」というデータを取り出したい。

という意図であっていますか?



> これはVBAで使っているものです。
どの VBA か分かりませんが、ほとんどの VBA では
　Dim Mydic As New Object
　If Not Mydic.Exists(C) Then
というコードは使えないと思いますよ。実際の VBA コードは、どのようなものですか?


> ”Eistsはobjectに見つかりませんでした。”
本当にこのメッセージでしたか?


> どのように変更すれば問題が解決できるか、教えて頂きたいと思います。
情報が不足しているので、何とも答えにくいのですが、

Module1.strdata１ というのが、「String 配列」や「List(Of String)」であるとして、
やりたい事が先の
　　「1,2,3,4,3」というデータから、「1,2,3,4」というデータを取り出したい。
であるのならば、

　　Dim result = Module1.strdata１.Distinct()

の一行だけで OK です。