Anzahl der Satzzeichen in einem Textfeld zählen

17/10/2008 - 23:18 von johann.weiss | Report spam
Hallo zusammen,

ist es möglich die Anzahl der Satzzeichen in einem Textfeld zu zàhlen?

gruss Hans
 

Lesen sie die antworten

#1 Jens Schilling
18/10/2008 - 00:14 | Warnen spam
Hallo, Johann

johann.weiss wrote:
ist es möglich die Anzahl der Satzzeichen in einem Textfeld zu zàhlen?



Mitternàchtlicher Lösungsversuch mit einer schnell umgebauten Funktion -
hoffentlich geht's gut ;-)

Eine ausführliche Fehlerbehandlung und was sonst noch fehlt, ergànzt Du
bitte selbst.

Function ZaehleSatzzeichen(ByVal strUebergabe As String) As Long

If Not Len(strUebergabe) > 0 Then Exit Function

Dim lgZaehler As Long
Dim lgPosString As Long
Dim strZeichen As String

For lgPosString = 1 To Len(strUebergabe)
strZeichen = Asc(Mid(strUebergabe, lgPosString, 1))
Select Case strZeichen
Case 59, 46, 44 '59=";" - 46 = "." - 44 = ","
lgZaehler = lgZaehler + 1
End Select
Next lgPosString

ZaehleSatzzeichen = lgZaehler

End Function

Aufruf z.B. im Direkfenster zum Testen:
?ZaehleSatzzeichen("H,a.l;l.o")

Ergibt hoffentlich als Ergenis eine 4 ;-)

Um weitere Satzzeichen mitzuzàhlen, ergànzt Du einfach die Zahlenreihe
hinter "case"; also z.B. für das Ausrufezeichen um die Zahl 33

Case 59, 46, 44, 33

Sollte es Dir noch an Infos zum ASCII-Code fehlen, kannst du z.B. hier
vorbeischauen :

http://de.wikipedia.org/wiki/Americ...nterchange

Gruss
Jens

Ähnliche fragen