Funktion CountChars (sFind, sString), als ganze Zahl
Schwaches x als ganze Zahl
Nicht als ganze Zahl verdunkeln
nCount als ganze Zahl verdunkeln
Für x = 1 zu Len (sString)
nicht = InStr (x, sString, sFind)
Wenn nicht = 0 dann nicht = Len (sString)
nCount = nCount + 1
x = nicht
Wenn x >= Len (sString) dann
Für herausnehmen
Beenden wenn
Folgendes x
CountChars = nCount - 1
Enden-Funktion
|