Заказ: посчитать повторяющиеся слова в txt файле

[eco]

* на входе txt файл
* на выходе список слов, которые были найдены в файле и колво повторений. отсортировано по количеству повторений
* разделители: пробелы, "-", запятые, точки в конце и начале слова

есть список номеров деталей. нужно упростить список, убрав повторения, для этого нужно увидеть, какая деталь встречается чаще всего.

[eco]

Не дождался помощников, пришлось скомпоновать скрипт:

номер: OS2-REXX-10001

/* comp3.cmd -- 3rd use of compound variables */
count. = 0
textWords = ''

filename='data.txt'

say "Reading file: " filename


do while lines(filename) > 0
textLine = linein(filename)

do i = 1 to words(textLine)
w = word(textLine, i)
count.w = count.w + 1

/* все слова в 1 общую строчку, чтобы потом пройти по ней */
if count.w = 1 then
textWords = textWords w
end i
end


/* проход по общей строчке */
do i = 1 to words(textWords)
w = word(textWords, i)
/* if(count.w > 1) then say w '-' count.w */
say w '-' count.w
end i