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

Ответить
eco
Сообщения: 10
Зарегистрирован: 25 окт 2020, 11:36

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

Сообщение eco »

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

есть список номеров деталей. нужно упростить список, убрав повторения, для этого нужно увидеть, какая деталь встречается чаще всего.
eco
Сообщения: 10
Зарегистрирован: 25 окт 2020, 11:36

Re: Заказ: посчитать повторяющиеся слова в 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
Ответить