Получение статистики слов в документе

Ramesses II 13.12.2002 21:25

Получение статистики слов в документе

Пытаюсь сделать код для домашнего пользования, получающий статистику слов в документе (сколько раз то или иное слово встречается в тексте). Пока имеется такой код:

^if(def $form:tostat){

$statex[$form:tostat]
$statex[^statex.match[[\n]][g]{ }]
$statex[^statex.match[[()\{\}\[\]"'“”»«—!.^;^^:,1234567890–]][g]{ }]
$stat_final[^statex.lsplit[ ]]

^stat_final.sort{$stat_final.piece}[asc]
$stat_temp[^table::create{item	occur
^stat_final.menu{
$stat_final.piece	1}}]
^stat_temp.menu{
$stat_temp.item	$stat_temp.occur
}

Но в результате, как нетрудно догадаться, получается таблица:

item	occur
...	...
to	1
to	1
...
the	1
the	1
...

как слить это все, чтобы получилось

item	occur
...	...
to	5
...
the	25
...

и т.д.?

---