Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Программирование, связанное с MS Office > Аннотация слов текста

Автор: Dobermann 25.9.2008, 16:17

Вообщем нужно подсчитать сколько раз в тексте встречаются слова. Т.е. считывается первый элемент с doc файла: например цифра 5. Так вот надо посчитать сколько раз она встретится в тексте. Как сделать это для первого(или одного введеного с клавы) символа файла я знаю, но вот как сделать это для всех слов и цифр всего текста в файле не знаю smile

Помогите плиз

Автор: Akina 25.9.2008, 16:57

Ни хрена не понял...

Автор: Dobermann 25.9.2008, 18:09

Сколько раз в тексте встречаются слова!
Например:

Цитата

мама мыла раму в то время когда мамина мама мыла окна

мама - встречается в тексте 2 раза
мыла - 2 раза
и т.п.

Добавлено через 26 секунд
и так для всех слов

Автор: Akina 25.9.2008, 18:27

Все слова текста находятся в коллекции ActiveDocument.Words.
Выполни подсчет (а еще лучше с сортировкой вставками) по коллекции в массив - и будет тебе щастье.
Что-то типа

Код


option base 1
dim wrds(1) as string, cnt(1) as integer, num as integer, i as integer

wrds(1) = ActiveDocument.Words(1)
for each wrd in ActiveDocument.Words
   num=0
   for i = 1 to ubound(wrds)
      if wrd=wrds(i) then 
         num=i
         exit for
      end if 
   next
   if num > 0 then
      cnt(num) = cnt(num)+1
   else
      redim preserve wrds(ubound(wrds)+1)
      redim preserve cnt(ubound(cnt)+1)
      wrds(ubound(wrds))=wrd
      cnt(ubound(cnt))=1
   end if
next