LiveCode Forums.

Code: Select all

on countItems numberList
   put .25 into valueRange
   ask "Enter the target value"
   put it into targetValue
   put targetValue+valueRange into maxValue
   sort items numberList ascending numeric
   put itemOffset(targetValue,numberList) into firstHit
   put 0 into matchCount
   if firstHit <> 0 then
      repeat with itemNumber = firstHit to the number of items of numberList
         if item itemNumber of numberList > maxValue then exit repeat
         add 1 to matchCount
      end repeat
   end if
   answer matchCount
end countItems

Code: Select all

function CountOccurrences haystack, needle
   set the itemdelimiter to needle
   return the number of items in haystack - 1
end CountOccurrences