Strings vergleichen mit Label und RichBox

  • VB.NET

Es gibt 29 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Mittlerweile erscheint mir auch als VorlageText eine RichTextBox praktischer. Wäre dies genau so umsetzbar anstatt mit einem Label oben.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „nb1999“ ()

    Jap mir auch , deshalb hab ich auch schon eine genommen

    VB.NET-Quellcode

    1. Option Strict On
    3. Imports System.Text.RegularExpressions
    5. Public Class Form1
    7. Dim Wortliste1 As New List(Of String)
    8. Dim Wortliste2 As New List(Of String)
    9. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    11. For Each line1 As String In RichTextBox1.Lines
    12. Dim split1 As String() = line1.Split(New [Char]() {" "c, ","c, "."c, ":"c, CChar(vbTab)})
    13. For Each Liste1 As String In split1
    14. If Liste1.Trim() <> "" Then
    15. Wortliste1.Add(Liste1)
    16. End If
    17. Next
    18. Next
    20. For Each line2 As String In RichTextBox2.Lines
    21. Dim split2 As String() = line2.Split(New [Char]() {" "c, ","c, "."c, ":"c, CChar(vbTab)})
    22. For Each Liste2 As String In split2
    23. If Liste2.Trim() <> "" Then
    24. Wortliste2.Add(Liste2)
    25. End If
    26. Next
    27. Next
    29. Dim Fehlerliste = Wortliste2.Except(Wortliste1)
    31. For Each Highlight As String In Fehlerliste
    32. Dim matches As MatchCollection = Regex.Matches(RichTextBox2.Text.ToLower, Highlight.ToLower)
    33. For Each Match As Match In matches
    34. RichTextBox2.Select(Match.Index, Match.Length)
    35. RichTextBox2.SelectionColor = Color.Red
    36. Next
    38. Next
    39. If RichTextBox1.TextLength = RichTextBox2.TextLength Then
    40. Dim Überlänge As String = CStr(RichTextBox2.TextLength - RichTextBox1.TextLength)
    41. MsgBox("Der eingegebene Text ist von der Länge gleich mit Vorgabe !" & vbCrLf & vbCrLf & "Die Anzahl der Fehler beträgt " & Fehlerliste.Count, MsgBoxStyle.Information, "Info")
    42. ElseIf RichTextBox1.TextLength < RichTextBox2.TextLength Then
    43. Dim Überlänge As String = CStr(RichTextBox2.TextLength - RichTextBox1.TextLength)
    44. MsgBox("Der eingegebene Text ist " & Überlänge & " Zeichen länger als die Vorgabe !" & vbCrLf & vbCrLf & "Die Anzahl der Fehler beträgt " & Fehlerliste.Count, MsgBoxStyle.Information, "Info")
    45. ElseIf RichTextBox1.TextLength > RichTextBox2.TextLength Then
    46. Dim Zu_Kurtz As String = CStr(RichTextBox1.TextLength - RichTextBox2.TextLength)
    47. MsgBox("Der eingegebene Text ist " & Zu_Kurtz & " Zeichen kürtzer als die Vorgabe !" & vbCrLf & vbCrLf & "Die Anzahl der Fehler beträgt " & Fehlerliste.Count, MsgBoxStyle.Information, "Info")
    48. End If
    50. Wortliste1.Clear()
    51. Wortliste2.Clear()
    53. End Sub
    55. End Class


    So muss noch ne Batt ins Auto schrauben und mich ne runde bewegen , dann schau ich weiter ...

    Dieser Beitrag wurde bereits 7 mal editiert, zuletzt von „TVX“ ()

    nb1999 schrieb:

    das dieser fehler irgendwie z.B unterstichen oder Farblich anders hervorgehoben wird.
    Wie soll verfahren werden, wenn der komplette Text richtig ist, aber an einer Stelle einfach ein Zeichen fehlt oder zu viel ist?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Jap das habe ich mir auch gedacht , aber über die Wortposition kann ich das nicht regeln( deren vergleich ) .

    Wenn dann ein Wort zu kurz währe ,würden auch die Anderen ab da nicht mehr stimmen ;(

    Z.b:

    VB.NET-Quellcode

    1. Dim eingabe1 As String = RichTextBox1.Text
    2. For Each Worte1 As String In Wortliste1
    4. Dim such1 As String = Worte1
    5. Dim position1 As Integer
    6. Dim suchstart1 As Integer = 0
    7. Do
    8. position1 = eingabe1.
    9. IndexOf(such1, suchstart1)
    10. suchstart1 = position1 + 1
    11. If position1 = -1 Then
    12. Exit Do
    13. Else
    14. MsgBox(position1)
    15. End If
    16. Loop
    17. Next

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „TVX“ ()

    RodFromGermany schrieb:

    nb1999 schrieb:

    das dieser fehler irgendwie z.B unterstichen oder Farblich anders hervorgehoben wird.
    Wie soll verfahren werden, wenn der komplette Text richtig ist, aber an einer Stelle einfach ein Zeichen fehlt oder zu viel ist?


    Hallo,
    Dies könnte man makieren jedoch zeigt meine software so oder so am ende an wie viele zeichen zu viel sind oder ggf. fehlen

    nb1999 schrieb:

    Dies könnte man makieren
    Denk mal über dieses Problem und mögliche Lösungsansätze nach.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende