How do you count the occurrences of specific strings in lists?

I was in the mood for a brainteaser.
this tested ok,

var text value = [string];
var text ValueWithoutGoodsEndingInComma = SearchAndReplace($value,"GOOD,","");
var text ValueWithoutGood = SearchAndReplace($ValueWithoutGoodsEndingInComma,"GOOD","");

var number NumberOfElements=
Count(
Trim(Part($value,1,","))<>"",
Trim(Part($value,2,","))<>"",
Trim(Part($value,3,","))<>"",
Trim(Part($value,4,","))<>"",
Trim(Part($value,5,","))<>"",
Trim(Part($value,6,","))<>"",
Trim(Part($value,7,","))<>"",
Trim(Part($value,8,","))<>"",
Trim(Part($value,9,","))<>"",
Trim(Part($value,10,","))<>"",
Trim(Part($value,11,","))<>"",
Trim(Part($value,12,","))<>"",
Trim(Part($value,13,","))<>"",
Trim(Part($value,14,","))<>"",
Trim(Part($value,15,","))<>"",
Trim(Part($value,16,","))<>"",
Trim(Part($value,17,","))<>"",
Trim(Part($value,18,","))<>"",
Trim(Part($value,19,","))<>"",
Trim(Part($value,20,","))<>"",
Trim(Part($value,21,","))<>"",
Trim(Part($value,22,","))<>"",
Trim(Part($value,23,","))<>"",
Trim(Part($value,24,","))<>"",
Trim(Part($value,25,","))<>"");

var number NumberOfElementsWithOutGoods=

Count(
Trim(Part($valueWithoutGood,1,","))<>"",
Trim(Part($valueWithoutGood,2,","))<>"",
Trim(Part($valueWithoutGood,3,","))<>"",
Trim(Part($valueWithoutGood,4,","))<>"",
Trim(Part($valueWithoutGood,5,","))<>"",
Trim(Part($valueWithoutGood,6,","))<>"",
Trim(Part($valueWithoutGood,7,","))<>"",
Trim(Part($valueWithoutGood,8,","))<>"",
Trim(Part($valueWithoutGood,9,","))<>"",
Trim(Part($valueWithoutGood,10,","))<>"",
Trim(Part($valueWithoutGood,11,","))<>"",
Trim(Part($valueWithoutGood,12,","))<>"",
Trim(Part($valueWithoutGood,13,","))<>"",
Trim(Part($valueWithoutGood,14,","))<>"",
Trim(Part($valueWithoutGood,15,","))<>"",
Trim(Part($valueWithoutGood,16,","))<>"",
Trim(Part($valueWithoutGood,17,","))<>"",
Trim(Part($valueWithoutGood,18,","))<>"",
Trim(Part($valueWithoutGood,19,","))<>"",
Trim(Part($valueWithoutGood,20,","))<>"",
Trim(Part($valueWithoutGood,21,","))<>"",
Trim(Part($valueWithoutGood,22,","))<>"",
Trim(Part($valueWithoutGood,23,","))<>"",
Trim(Part($valueWithoutGood,24,","))<>"",
Trim(Part($valueWithoutGood,25,","))<>"");


$NumberOfElementsWithOutGoods / $NumberOfElements

------------------------------
Mark Shnier (YQC)
Quick Base Solution Provider
Your Quick Base Coach
http://QuickBaseCoach.com
mark.shnier@gmail.com
------------------------------