从文本框或richtextbox vb.net中删除重复行

Question

有没有人有任何示例代码如何执行此操作？ 例如：

a
b
b
c
b
d

最终将成为

a
b
c
b
d

Answer 1

在我看来，您希望删除重复行，而不是简单地获取不同值的列表（如所需的'd'之前存在'b'所示输出）。

如果是这样，您可以使用以下代码：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim lines As New List(Of String)(TextBox1.Lines)
    For i As Integer = lines.Count - 1 To 1 Step -1
        If lines(i) = lines(i - 1) Then
            lines.RemoveAt(i)
        End If
    Next
    TextBox1.Lines = lines.ToArray
End Sub