|
xxx:0003
2022/10
EUS: посчитать повторяющиеся слова в txt файле
ENG: enumerate repeating words in txt file
Обсуждение: https://forum.os2.guru/viewtopic.php?f=22&t=2
Вообще,
есть список номеров деталей. нужно упростить список, убрав повторения,
для этого нужно увидеть, какая деталь встречается чаще всего.
Задача: посчитать повторяющиеся слова в txt файле
- на входе txt файл
- на выходе список слов, которые были найдены в файле и колво
повторений. отсортировано по количеству повторений
- разделители: пробелы, "-", запятые, точки в конце и начале слова
/* 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
|
