text =
(
ярко-красный красный
)

text =
(
Подсчитать количество и частоту слов в тексте
Нужно подсчитать количество уникальных слов в тексте, а также их частоту (сколько раз встречаются).
Есть ли готовая библиотека или что-то такое?
)
Words := {}, m := ""
while RegExMatch(text, "O)(*UCP)\w+", m, m ? m.Pos + m.Len : 1) {
   word := Format("{:L}", m[0])
   if Words.HasKey(word)
      ++Words[word]
   else
      Words[word] := 1
}
count := 0, str := ""
for k, v in Words {
   count++
   str .= k . " (" . v . ")`n"
}
MsgBox,, Всего %count%, % str