Fonction CountChars (sFind, sString) comme nombre entier
Faible x comme nombre entier
Obscurcir pas comme nombre entier
Obscurcir le nCount comme nombre entier
Pour x = 1 à Len (sString)
pas = InStr (x, sString, sFind)
Sinon = 0 puis pas = Len (sString)
nCount = nCount + 1
X = pas
Si >= Len (sString) de x puis
Sortir pour
Finir si
Prochain x
CountChars = nCount - 1
Fonction de fin
|