Función CountChars (sFind, sString) como número entero
X dévil como número entero
Amortiguar no como número entero
Amortiguar el nCount como número entero
Para x = 1 a Len (el sString)
no = InStr (x, el sString, sFind)
Si no = 0 entonces no = Len (el sString)
nCount = nCount + 1
x = no
Si >= Len (el sString) de x entonces
Salir para
Terminar si
X siguiente
CountChars = nCount - 1
Función del final
|