当前位置: 代码迷 >> VB Dotnet >> 除去textbox里面重复的内容
  详细解决方案

除去textbox里面重复的内容

热度:210   发布时间:2016-04-25 02:02:25.0
去除textbox里面重复的内容
textbox里有如下内容
我是小明
我是小红
我是小张
我是小王
我是小明
我是小红

然后我想去除里面重复的内容,最终得出如下结果:
小张
小王

用如下方法效果不理想,求真相
Dim s As String, i As integer
s = Textbox1.Text
i = 1
Do While i < Len(s)
    s = Microsoft.VisualBasic.Left(s, i) & Replace(s, Mid(s, i, 1), "", i + 1)
    i = i + 1
Loop
 Textbox1.Text= s

------解决思路----------------------
 试试这段


  Dim wordCount As New Hashtable
        Dim textIn As String = yourTextBox.Text.Replace(Environment.NewLine, "")

        For i = 0 To textIn.Length - 1
            If Not wordCount.ContainsKey(textIn(i)) & textIn(i) <> "" Then
                wordCount.Add(textIn(i), 1)
            Else
                wordCount(textIn(i)) += 1
            End If
        Next

        yourTextBox.Text = ""
        For i = 0 To textIn.Length - 1
            If wordCount(textIn(i)) = 1 Then
                yourTextBox.Text = yourTextBox.Text & textIn(i) & Environment.NewLine
            End If
        Next
  相关解决方案