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

@Dolgisha · Регистрация: 25.12.2009

Студворк — интернет-сервис помощи студентам

В текстовом файле подсчитать, сколько раз встречается слово, введенное с клавиатуры.
(пожалуйста напишите подробно)
Заранее спасибо!

@Busine2009 · 16.06.2010, 20:14

Dolgisha,
что за текстовый файл? И какую вы тему проходили по этому заданию?

@Oksana1 · 17.06.2010, 22:36

Здравствуйте! У меня именно такая же задача по предмету СиППО.
Может тут нужно импортировать текстовый файл в Excel?

@Dolgisha · 18.06.2010, 08:00 **[ТС]**

Подсказали. Чтобы подсчитать кол-во вхождений слова в текст, алгоритм такой:

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

Но все равно так и не разобрался(

@Busine2009 · 18.06.2010, 08:02

Dolgisha,
тебе для учёбы это надо (задание) или для практики?
Если для учёбы, то вы должны были какую-то тему проходить, после которой вам дали задание. Если я буду выдумывать коды, то они тебе могут не подойти.
Если для практики тебе это надо, то тут проще.

@Alex77755 · 18.06.2010, 08:23

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ыть файл

@Dolgisha · 18.06.2010, 08:24 **[ТС]**

Не знаю темы( У нас была отдельно теория. Дали лист с 15 задачами, нужно решить и сегодня уже сдавать. Все те задачи которые не смог решить писал тут на форуме, за что еще раз спасибо.
Busine2009 можешь написать код задачи как тебе удобнее, а я потом погуглю и посмотрю что значят функции через которые ты делал.

@Alex77755 · 18.06.2010, 08:39

Можно обойтись и без разбивки на массив:

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

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита табличной части. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@Dolgisha 2 / 2 / 0 Регистрация: 25.12.2009 Сообщений: 37

	Подсчитать сколько раз встречается слово 16.06.2010, 18:52. Показов 4158. Ответов 7 Метки нет (Все метки) В текстовом файле подсчитать, сколько раз встречается слово, введенное с клавиатуры. (пожалуйста напишите подробно) Заранее спасибо! 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	16.06.2010, 20:14
	Dolgisha, что за текстовый файл? И какую вы тему проходили по этому заданию? 0

@Oksana1 0 / 0 / 0 Регистрация: 01.04.2012 Сообщений: 3
	17.06.2010, 22:36
	Здравствуйте! У меня именно такая же задача по предмету СиППО. Может тут нужно импортировать текстовый файл в Excel? 0

@Dolgisha 2 / 2 / 0 Регистрация: 25.12.2009 Сообщений: 37
	18.06.2010, 08:00 [ТС]
	Подсказали. Чтобы подсчитать кол-во вхождений слова в текст, алгоритм такой: 1. Читаете весь текст в переменную. 2. В содержимом переменной удаляете знаки препинания и пр. "ненужности" 3. Заполняете массив словами с пом. Split 4. Просматривая полученный массив в цикле, считаете кол-во вхождений искомого слова. Но все равно так и не разобрался( 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	18.06.2010, 08:02
	Dolgisha, тебе для учёбы это надо (задание) или для практики? Если для учёбы, то вы должны были какую-то тему проходить, после которой вам дали задание. Если я буду выдумывать коды, то они тебе могут не подойти. Если для практики тебе это надо, то тут проще. 0

@Dolgisha 2 / 2 / 0 Регистрация: 25.12.2009 Сообщений: 37
	18.06.2010, 08:24 [ТС]
	Не знаю темы( У нас была отдельно теория. Дали лист с 15 задачами, нужно решить и сегодня уже сдавать. Все те задачи которые не смог решить писал тут на форуме, за что еще раз спасибо. Busine2009 можешь написать код задачи как тебе удобнее, а я потом погуглю и посмотрю что значят функции через которые ты делал. 0