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