Функция CountChars (sFind, sString) как интежер
Тусклый x как интежер
Затемните не как интежер
Затемните nCount как интежер
Для x = 1 к Len (sString)
не = InStr (x, sString, sFind)
Если не = 0 после этого не = Len, то (sString)
nCount = nCount + 1
x = не
Если >= Len x (sString) после этого
Выходите для
Закончитесь если
Следующий x
CountChars = nCount - 1
Функция конца
|