Função CountChars (sFind, sString) como o inteiro
X não ofuscante como o inteiro
Escurecer não como o inteiro
Escurecer o nCount como o inteiro
Para x = 1 a Len (sString)
não = InStr (x, sString, sFind)
Se não = 0 então não = Len (sString)
nCount = nCount + 1
x = não
Se >= Len de x (sString) então
Retirar para
Terminar se
X seguinte
CountChars = nCount - 1
Função do fim
|