Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Аннотация слов текста 
:(
    Опции темы
Dobermann
Дата 25.9.2008, 16:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 992
Регистрация: 7.1.2008

Репутация: нет
Всего: 0
Вообщем нужно подсчитать сколько раз в тексте встречаются слова. Т.е. считывается первый элемент с doc файла: например цифра 5. Так вот надо посчитать сколько раз она встретится в тексте. Как сделать это для первого(или одного введеного с клавы) символа файла я знаю, но вот как сделать это для всех слов и цифр всего текста в файле не знаю  smile  smile  smile 
Помогите плиз
PM   Вверх
Akina
Дата 25.9.2008, 16:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454
Ни хрена не понял...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Dobermann
Дата 25.9.2008, 18:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 992
Регистрация: 7.1.2008

Репутация: нет
Всего: 0
Сколько раз в тексте встречаются слова!
Например:
Цитата

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

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

Добавлено через 26 секунд
и так для всех слов
PM   Вверх
Akina
Дата 25.9.2008, 18:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454
Все слова текста находятся в коллекции 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





--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Dobermann
Дата 26.9.2008, 08:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 992
Регистрация: 7.1.2008

Репутация: нет
Всего: 0
 smile  smile  smile  smile  smile  smile  smile  smile  smile 
PM   Вверх
Dobermann
Дата 29.9.2008, 00:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 992
Регистрация: 7.1.2008

Репутация: нет
Всего: 0
Можешь код прокоменнтить?!?!?!
PM   Вверх
mihanik
Дата 30.9.2008, 19:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 9
Всего: 109
если 
Цитата(Dobermann @  26.9.2008,  08:16 Найти цитируемый пост)
      smile  smile  и т.п.              

=>
Цитата(Dobermann @  29.9.2008,  00:16 Найти цитируемый пост)
Можешь код прокоменнтить?!?!?! 
 - чепуха!!!

Ты разобрался, или нет с примером?



Это сообщение отредактировал(а) mihanik - 30.9.2008, 19:29


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Akina
Дата 30.9.2008, 20:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454
Я не вижу в этом коде НИЧЕГО, что требовало бы комментирования.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Dobermann
Дата 2.10.2008, 07:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 992
Регистрация: 7.1.2008

Репутация: нет
Всего: 0
Дык я знаю delphi, C++ ... С операторами все понятно, только объекты то другие тут!!!
А что, разве сложно 5 строк прокоменнтить?!?!?!
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела

Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0512 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.