2 Texte vergleichen und gleiches filtern

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    2 Texte vergleichen und gleiches filtern

    Hi Leute.
    Ich bräuchte für eines meiner Programme ein Codeschnipsel der 2 Texte vergleicht und doppelte Lines rausfiltert.
    Dazu habe ich nun folgendes gecodet:

    VB.NET-Quellcode

    1. While Not RichTextBox1.Text = ""
    2. RichTextBox2.Text = RichTextBox2.Text.Replace(RichTextBox1.Lines(0).Length, "")
    4. RichTextBox1.Text = RichTextBox1.Text.Remove(0, RichTextBox1.Lines(0).Length)
    6. Dim tmp As New System.Text.StringBuilder
    7. For Each line As String In RichTextBox2.Lines
    8. If line.Trim.Length > 0 Then tmp.AppendLine(line)
    9. Next
    10. RichTextBox2.Text = tmp.ToString
    13. Dim tmp2 As New System.Text.StringBuilder
    14. For Each line2 As String In RichTextBox1.Lines
    15. If line2.Trim.Length > 0 Then tmp2.AppendLine(line2)
    16. Next
    17. RichTextBox1.Text = tmp2.ToString
    19. End While

    so nun habe ich aber 3 probleme.
    1. Nach einem Durchlauf ist RTB1 leet(wegen der while schleife und " RichTextBox1.Text = RichTextBox1.Text.Remove(0, RichTextBox1.Lines(0).Length) ", aber ich weist icht wie ich das vermeiden kann)
    2.Es wird durch Replace ja auch z.B. die 1 aus 21 gefiltert, was ich aber nicht möchte.
    3. waren doch nur 2 :D

    Ich hoffe ihr könnt mir helfen.
    danke schonmal shutdown

    Text1:

    1
    2
    3
    4
    5
    6
    81
    9


    Text2:

    1
    2
    543
    1
    346
    8
    6


    Gefilterter Text:
    543
    346
    8


    also ich möchte dass Text1 zeile für zeile druchgegangen wird und dann text 2 auf übereinstimmungen in den zeilen gefiltert wird.
    Die gleichen sollen dann rausgeworfen werden.
    Ich hoffe es ist klar geworden

Facebook
Telefonspende