Vb.net 如果存在'；在列表框中输入相同的字符串

我想询问列表框中的项目。 我在列表框中拆分了字符串。因此，如果我输入一个file.txt，它将被拆分为每个单词

我的问题是，如果file.text中有相同的字符串，如何删除相同的字符串？ 以及如何计算file.text中的每个单词（一个单词在file.text中出现的次数）

这是我的完整代码

     Dim s() As String = ListBox1.Items.Cast(Of String).ToArray()

    For Each item As String In s
        item = item.Replace(".", String.Empty)
        item = item.Replace(Microsoft.VisualBasic.ControlChars.Quote, String.Empty)
        item = item.Replace("(", String.Empty)
        item = item.Replace(")", String.Empty)
        item = item.Replace("-", String.Empty)
        item = item.Replace(",", String.Empty)

        ListBox2.Items.AddRange(item.Split(" "c))
    Next

---

为什么不使用LINQ获得一个独特的项目列表，如图所示

---

这将获得最快的结果。

字符串的数据是否已排序？意思是，在您将其传递给字符串之前，它是否已排序？