Functie CountChars (sFind, sString) als Geheel
Schemerig x als Geheel
Verduister als geen Geheel
Verduister nCount als Geheel
Voor x = 1 aan Len (het sString)
niet = InStr (x, die sFind sString)
Als niet = 0 toen niet = Len (het sString)
nCount = nCount + 1
x = niet
Als x >= Len (het sString) Dan
Uitgang voor
Eind als
Volgende x
CountChars = nCount - 1
De Functie van het eind
|