Jak usunąć powtarzające się linie w TextBoxie ?

0

Witam.

Chce usunąć powtarzające się linie w TextBoxie, lecz nie wiem jak się do tego zobrać...

Próbowałem czegoś takiego:
ale to chaotycznie działa...

Dim count as integer
  count = Regex.Matches(przeszukiwany_tekst=, Regex.Escape(to_co_ma_usunac)).Count()
If count > 1 Then....

Chodzi o to, że np jeżeli będą takie linie:

abc1
abc123

to wykryje je jako powtarzające się....
a mi chodzi o identyczne...

0

Może jakiś konkretny przykład tego chaotycznego zachowania? Jak wygląda pierwszy RichTextBox a jak drugi i co ma być w trzecim.

0

myślałem by dodać może + vbLf na końcu , ale wtedy kod wcale nie chce działać..

count = Regex.Matches(przeszukiwany_tekst=, Regex.Escape(to_co_ma_usunac+ vbcrlf)).Count()

ale to nie pomaga

0

może KMP ?

0
      Dim duplicates As List(Of String) = New List(Of String)

      For i As Integer = 0 To RichTextBox1.Lines.Length - 1
         Dim searchLine = RichTextBox1.Lines(i)
         For j As Integer = i + 1 To RichTextBox1.Lines.Length - 1
            If searchLine = RichTextBox1.Lines(j) Then
               If duplicates.Contains(searchLine) Then
                  Exit For
               End If
               duplicates.Add(searchLine)
               Exit For
            End If
         Next
      Next
      RichTextBox2.Lines = duplicates.ToArray()

1 użytkowników online, w tym zalogowanych: 0, gości: 1