Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.79/14: Рейтинг темы: голосов - 14, средняя оценка - 4.79
Dolgisha
2 / 2 / 0
Регистрация: 25.12.2009
Сообщений: 37
1

Подсчитать сколько раз встречается слово

16.06.2010, 18:52. Просмотров 2702. Ответов 7
Метки нет (Все метки)

В текстовом файле подсчитать, сколько раз встречается слово, введенное с клавиатуры.
(пожалуйста напишите подробно)
Заранее спасибо!
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.06.2010, 18:52
Ответы с готовыми решениями:

Подсчитать, сколько раз искомое слово встречается во всей книге Excel
'подсчитать, сколько раз искомое слово встречается во всей книге Excel Dim oFind As Excel.Range...

Дана строка S и слово W. Определить, сколько раз в строке встречается это слово
У меня задание: Дана строка S и слово W. Определить сколько раз в строке встречается это слово. ...

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

Подсчитать сколько раз встречается в массиве символ К
1. Дан массив символов s1,..sn. Подсчитать сколько раз встречается в массиве символ К. 2. Дана...

Определить, сколько раз в строке встречается заданное слово
Здравствуйте .помогите пожалуйста решить задачку!!!! Определить, сколько раз в строке встречается...

7
Busine2009
Заблокирован
16.06.2010, 20:14 2
Dolgisha,
что за текстовый файл? И какую вы тему проходили по этому заданию?
0
Oksana1
0 / 0 / 0
Регистрация: 01.04.2012
Сообщений: 3
17.06.2010, 22:36 3
Здравствуйте! У меня именно такая же задача по предмету СиППО.
Может тут нужно импортировать текстовый файл в Excel?
0
Dolgisha
2 / 2 / 0
Регистрация: 25.12.2009
Сообщений: 37
18.06.2010, 08:00  [ТС] 4
Подсказали. Чтобы подсчитать кол-во вхождений слова в текст, алгоритм такой:

1. Читаете весь текст в переменную.
2. В содержимом переменной удаляете знаки препинания и пр. "ненужности"
3. Заполняете массив словами с пом. Split
4. Просматривая полученный массив в цикле, считаете кол-во вхождений искомого слова.

Но все равно так и не разобрался(
0
Busine2009
Заблокирован
18.06.2010, 08:02 5
Dolgisha,
тебе для учёбы это надо (задание) или для практики?
Если для учёбы, то вы должны были какую-то тему проходить, после которой вам дали задание. Если я буду выдумывать коды, то они тебе могут не подойти.
Если для практики тебе это надо, то тут проще.
0
Alex77755
10991 / 3447 / 593
Регистрация: 13.02.2009
Сообщений: 10,241
18.06.2010, 08:23 6
1. Читаете весь текст в переменную.
Visual Basic
1
2
3
4
5
6
7
8
9
  Dim File As String, CF As String 
   'объявим пеpеменнyю для имени файла и его cодеpжимого 
   File = "d:\ca.log" 
   'ycтановим имя файла и пyть 
   Open File For Binary As #1 
   'откpоем файл для чтения 
      CF = Input(FileLen(File), 1)   'загpyзить в пеpеменyю CF вcе cодеpжимое файла 
   Close #1 
   'закpыть файл
0
Dolgisha
2 / 2 / 0
Регистрация: 25.12.2009
Сообщений: 37
18.06.2010, 08:24  [ТС] 7
Не знаю темы( У нас была отдельно теория. Дали лист с 15 задачами, нужно решить и сегодня уже сдавать. Все те задачи которые не смог решить писал тут на форуме, за что еще раз спасибо.
Busine2009 можешь написать код задачи как тебе удобнее, а я потом погуглю и посмотрю что значят функции через которые ты делал.
0
Alex77755
10991 / 3447 / 593
Регистрация: 13.02.2009
Сообщений: 10,241
18.06.2010, 08:39 8
Можно обойтись и без разбивки на массив:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
 
Private Sub Комманда1_Click()
Dim SL, KOL, P, K
SL = "Case"
   Dim File As String, CF As String
   File = "C:\колесо.txt"
   Open File For Binary As #1
      CF = Input(FileLen(File), 1)   'загpyзить в пеpеменyю CF вcе cодеpжимое файла
   Close #1
   K = 1
   Do
   P = InStr(K, CF, SL)
   If P > 0 Then KOL = KOL + 1
      K = P + 1
   Loop While P > 0
   MsgBox "Слово " & SL & vbCrLf & " встречается в тексте  " & KOL & "  раз(а)", 64, "Вот так примерно"
End Sub
0
18.06.2010, 08:39
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.06.2010, 08:39

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

Подсчитать, сколько раз в числе встречается заданная цифра
Число произвольно вводится пользователем

Определить, сколько раз встречается в нём самое длинное слово
Нужно , срочно решить задачи по VBA: 1)Ввести текст.Определить, сколько раз встречается в нём...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.