Umlaute zählen

Umlaute zählen. Programmierung via String-Verarbeitung
Private AnzahlÄ%, AnzahlÖ%, AnzahlÜ%
Andere Möglichkeit:
Private Sub txtTextfeld_Change() Private Sub txtTextfeld_Change()
UmlauteTesten txtTextfeld.Text Call UmlauteTesten
End Sub End Sub
 
Sub UmlauteTesten(tmpText As String) Private Sub UmlauteTesten()
Dim n As Long, c As String * 1
AnzahlÄ = 0: AnzahlÖ = 0: AnzahlÜ = 0 Zähler auf Null stellen.
For n = 1 To Len(txtTextfeld.Text) Schleife durchläuft das Textfeld.
c = Mid(txtTextfeld.Text, n, 1) Sucht einzelne Buchstaben.
Select Case c
Case "ä", "Ä"
AnzahlÄ = AnzahlÄ + 1
Case "ö", "Ö"
AnzahlÖ = AnzahlÖ + 1
Case "ü", "Ü"
AnzahlÜ = AnzahlÜ + 1
End Select
Next
lblAnzahlÄ.Caption = Format(AnzahlÄ, "0") Ausgabe im Label.
lblAnzahlÖ.Caption = Format(AnzahlÖ, "0")
lblAnzahlÜ.Caption = Format(AnzahlÜ, "0")
End Sub
.
.
Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt