Funzione CountChars (sFind, sString) come numero intero
X fioca come numero intero
Oscurar non come numero intero
Oscurare il nCount come numero intero
Per x = 1 a Len (sString)
non = InStr (x, sString, sFind)
Se non = 0 allora non = Len (sString)
nCount = nCount + 1
x = non
Se >= Len (sString) di x allora
Uscire per
Concluder se
X seguente
CountChars = nCount - 1
Funzione di conclusione
|