Fungera CountChars (sFind som sString) som heltal
Dunkelt x som heltal
Dunkelt inte som heltal
Dunkel nCount som heltal
För x = 1 till Len (sString)
inte = InStr (x, sString, sFind)
Om = inte 0 därefter inte = Len (sString)
nCount = nCount + 1
x = inte
Om x->= Len (sString) därefter
Gå ut för
Avsluta om
Nästa x
CountChars = nCount - 1
Avsluta fungerar
|