Ausgabe, welche Zeichen wie häufig in der Textbox vorkommen.

  • VB.NET

Es gibt 35 Antworten in diesem Thema. Der letzte Beitrag () ist von Holywarrior1.

    Ausgabe, welche Zeichen wie häufig in der Textbox vorkommen.

    Ja, ich bins mal wieder.

    Habe mein Programm fast fertig. Möchte jetzt noch einen Zähler einbauen, der alle Buchstaben in der Textbox zählt.
    Z.B ("Ich bin ein sehr alter Mann")

    a=2
    b=1
    c=0
    d=0
    e=3
    .
    .
    .
    z=0

    usw...

    Könnt ihr mir ein paar Tipps geben? Hab mir gedacht mit Char zu arbeiten.

    Lg holywarrior1 :)

    Holywarrior1 schrieb:

    alle Buchstaben
    So was:

    VB.NET-Quellcode

    1. Dim dc As New Dictionary(Of Char, Integer)
    2. Dim txt = "abcdefghijklmnopqrstuvwxyz "
    3. For Each c In txt
    4. dc.Add(c, 0) ' Dictionary aufbauen (ggf. noch Sonderzeichen
    5. Next
    7. Dim wort = "Ich bin ein sehr alter Mann".ToLower
    8. For Each c In wort
    9. dc(c) += 1 ' Buchstaben zählen
    10. Next
    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!

    Holywarrior1 schrieb:

    der gibt die irgendwie nicht aus
    Es war von Zählen die Rede, nicht von Ausgeben. Da musst Du Dich noch drum kümmern.
    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!

    Holywarrior1 schrieb:

    lbl_ausgabe.Text = dc.ToString
    Machst Du

    VB.NET-Quellcode

    1. MessageBox.Show(dc("a"c).ToString)
    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!

    @Snaptu

    Holywarrior1 schrieb:

    in einem Label ausgeben
    Kein Kommentar.
    Ein wenig solltest Du schon noch selbst machen.
    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!

    Funzt net ganz :/.

    VB.NET-Quellcode

    1. 'Deklaration von Variablen.
    2. Dim AnzahlBuchstaben As Integer = 0
    3. Dim AnzahlZahlen As Integer = 0
    4. Dim RestlicheZeichen As Integer = 0
    5. Dim LeerZeichen As Integer = 0
    6. Dim Anzahl As Integer = 0
    7. Dim dc As New Dictionary(Of Char, Integer)
    8. Dim txt = "abcdefghijklmnopqrstuvwxyz"
    9. Dim wort = Rtxt_editor.Text
    11. 'Wenn 80 Zeichen eingegeben wurden,
    12. If Rtxt_editor.Text.Length >= 80 Then
    14. 'wird der Text Zeichen für Zeichen überprüft.
    15. For i = 0 To Rtxt_editor.Text.Length - 1 '- 1, da der Text bei 0 beginnt und er nicht vom Anfang überprüfen würde.
    17. 'Wenn ein Leerzeichen eingegeben wurde,
    18. If Rtxt_editor.Text(i) = " " Then
    20. 'wird der Variable LeerZeichen + 1 gutgeschrieben,
    21. LeerZeichen = LeerZeichen + 1
    23. 'oder wenn im Text Ziffern enthalten sind,
    24. Else
    25. If IsNumeric(Rtxt_editor.Text(i)) Then
    27. 'wird der Variable AnzahlZahlen + 1 gutgeschrieben
    28. AnzahlZahlen = AnzahlZahlen + 1
    30. 'oder wenn im Text Buchstaben enthalten sind,
    31. Else
    32. If Char.IsLetter(Rtxt_editor.Text(i)) Then
    34. 'wird der Variable AnzahlBuchstaben +1 gutgeschrieben,
    35. AnzahlBuchstaben = AnzahlBuchstaben + 1
    36. Else
    38. If Rtxt_editor.TextLength >= 80 Then
    39. For Each c In txt
    40. dc.Add(c, 0) ' Dictionary aufbauen (ggf. noch Sonderzeichen
    41. Next
    43. For Each c In wort
    44. dc(c) += 1 ' Buchstaben zählen
    45. If dc(c) >= 80 Then
    46. lbl_sonderzeichen_ausgabe.Text = dc(c).ToString
    47. End If
    49. Next
    51. End If
    52. End If
    53. End If
    54. End If
    56. Next i
    58. 'Ausgabe Buchstaben, Wörter und Ziffern.
    59. lbl_buchstaben_ausgabe.Text = AnzahlBuchstaben.ToString
    60. lbl_wörter_ausgabe.Text = LeerZeichen.ToString
    61. lbl_ziffern_ausgabe.Text = AnzahlZahlen.ToString
    63. End If
    65. 'Wenn weniger als 79 Zeichen eingegeben wurden,
    66. If Rtxt_editor.TextLength <= 79 Then
    68. 'Löscht er den Inhalt der Labels
    69. lbl_buchstaben_ausgabe.Text = ""
    70. lbl_wörter_ausgabe.Text = ""
    71. lbl_ziffern_ausgabe.Text = ""
    72. lbl_sonderzeichen_ausgabe.Text = ""
    74. End If
    75. End Sub

    RodFromGermany schrieb:

    Was

    Holywarrior1 schrieb:

    Funzt net ganz
    :?:


    Funktioniert nicht ganz :D.

    VB.NET-Quellcode

    1. Private Sub Rtxt_editor_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rtxt_editor.TextChanged
    2. 'Deklaration von Variablen.
    3. Dim AnzahlBuchstaben As Integer = 0
    4. Dim AnzahlZahlen As Integer = 0
    5. Dim RestlicheZeichen As Integer = 0
    6. Dim LeerZeichen As Integer = 0
    7. Dim Anzahl As Integer = 0
    8. Dim dc As New Dictionary(Of Char, Integer)
    9. Dim txt = "abcdefghijklmnopqrstuvwxyz"
    10. Dim wort = Rtxt_editor.Text
    12. 'Wenn 80 Zeichen eingegeben wurden,
    13. If Rtxt_editor.Text.Length >= 80 Then
    15. 'wird der Text Zeichen für Zeichen überprüft.
    16. For i = 0 To Rtxt_editor.Text.Length - 1 '- 1, da der Text bei 0 beginnt und er nicht vom Anfang überprüfen würde.
    18. 'Wenn ein Leerzeichen eingegeben wurde,
    19. If Rtxt_editor.Text(i) = " " Then
    21. 'wird der Variable LeerZeichen + 1 gutgeschrieben,
    22. LeerZeichen = LeerZeichen + 1
    24. 'oder wenn im Text Ziffern enthalten sind,
    25. Else
    26. If IsNumeric(Rtxt_editor.Text(i)) Then
    28. 'wird der Variable AnzahlZahlen + 1 gutgeschrieben
    29. AnzahlZahlen = AnzahlZahlen + 1
    31. 'oder wenn im Text Buchstaben enthalten sind,
    32. Else
    33. If Char.IsLetter(Rtxt_editor.Text(i)) Then
    35. 'wird der Variable AnzahlBuchstaben +1 gutgeschrieben,
    36. AnzahlBuchstaben = AnzahlBuchstaben + 1
    37. Else
    39. If Rtxt_editor.TextLength >= 80 Then
    40. For Each c In txt
    41. dc.Add(c, 0) ' Dictionary aufbauen (ggf. noch Sonderzeichen
    42. Next
    44. For Each c In wort
    45. dc(c) += 1 ' Buchstaben zählen
    46. If dc(c) >= 80 Then
    47. lbl_sonderzeichen_ausgabe.Text = dc(c).ToString
    48. End If
    50. Next
    52. End If
    53. End If
    54. End If
    55. End If
    57. Next i
    59. 'Ausgabe Buchstaben, Wörter und Ziffern.
    60. lbl_buchstaben_ausgabe.Text = AnzahlBuchstaben.ToString
    61. lbl_wörter_ausgabe.Text = LeerZeichen.ToString
    62. lbl_ziffern_ausgabe.Text = AnzahlZahlen.ToString
    64. End If
    66. 'Wenn weniger als 79 Zeichen eingegeben wurden,
    67. If Rtxt_editor.TextLength <= 79 Then
    69. 'Löscht er den Inhalt der Labels
    70. lbl_buchstaben_ausgabe.Text = ""
    71. lbl_wörter_ausgabe.Text = ""
    72. lbl_ziffern_ausgabe.Text = ""
    73. lbl_sonderzeichen_ausgabe.Text = ""
    75. End If
    76. End Sub

    Holywarrior1 schrieb:

    Funktioniert nicht ganz :D.
    Was funktioniert nicht?
    Hast Du möglicherweise beim Abschreiben nicht richtig abgeschrieben?

    RodFromGermany schrieb:

    VB.NET-Quellcode

    1. Dim txt = "abcdefghijklmnopqrstuvwxyz "
    Da hängt bei mir, nicht aber bei Dir, ein Leerzeichen hinten dran. 8o
    Weitere Zeichen musst Du selbst noch anfügen.
    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!

    Oh ok, versuch ich mal :D. Danke

    EDIT: Funktioniert immer noch nicht. Der gibt das einfach nicht aus. Und wenn er dann ausgibt, dann steht da "System.Collection..."

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

    Holywarrior1 schrieb:

    Funktioniert immer noch nicht.
    Hast Du mal meinen Beispielcode aus den Posts #2 und #6 exakt so, wie er da steht, mal ausprobiert?
    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!

    Also. Der folgende Code generiert dir eine "schöne" Ausgabe:

    VB.NET-Quellcode

    1. Dim text As String = "aaabcdefg.&-§"
    2. Dim str = text.GroupBy(Function(x) x).[Select](Function(x) [String].Format("'{0}': {1}", x.Key, x.Count())).Aggregate(Function(current, [next]) current & Environment.NewLine & [next])


    text ist dabei der Text der analysiert werden soll und str ist das was raus kommt. Bei dem Beispiel oben kommt folgendes raus:

    Quellcode

    1. 'a': 7
    2. 'b': 2
    3. 'c': 3
    4. 'g': 1
    5. 'd': 5
    6. 's': 3
    7. 'e': 1
    8. 'f': 3
    9. '.': 1
    10. '&': 1
    11. '-': 1
    12. '§': 1


    Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „thefiloe“ ()