The wasWords
function returns the number of token-delimited words.
For example:
Say wasSubWord('Search/For/Me', '/')
will output: 3
/*************************************************************************/ /* Copyright (C) 2015 Wizardry and Steamworks - License: GNU GPLv3 */ /*************************************************************************/ wasWords: procedure /* The number of sub-words delimited by a token. */ Parse ARG String,Token Parse VAR String Head Interpret(Token) Tail If Head ~= '' Then Return 1 + wasWords(Tail,Token) Return 0