Подсчет буквы в предложении и определение часто попадающейся - VBA
Формулировка задачи:
Доброго времени суток, задача вроде бы простая, но что то не получается и еще ошибку выдает, я вроде бы понимаю что просит и одновременно нет
Задача: Напишите программу подсчета количества некоторой буквы в данной строковой переменной. Найти наиболее часто встречающуюся букву.
Мой код:
Ошибка: Сейчас закину
Оформление: Сейчас закину
Искал в интернете
Ссылка: Разработать функцию программиста, вычисляющую, сколько раз встречается заданная буква в строке
Код из ссылки (Взят за основу):
Вторая ссылка: https://znanija.com/task/809219
Код из ссылки:
Третья ссылка (Не понятно что куда вводится):http://www.sql.ru/forum/1129926/podschet-bukv-v-slove
Код из ссылки
Решение задачи: «Подсчет буквы в предложении и определение часто попадающейся»
textual
Листинг программы
Sub xxx() Dim ff&, FileName$, Content$, j&, i& Dim r&(255) 'Выбор файла (текстовый файл) FileName = Application.GetOpenFilename("Текстовые файлы(*.txt),*.txt* ,Любые файлы, *.*", 2, "Выбери файл") If FileName = "False" Then Exit Sub ff = FreeFile: Open FileName For Binary As #ff: Content = Space$(LOF(ff)): Get #ff, 1, Content: Close #ff 'Подсчет вхождений For i = 1 To Len(Content) j = Asc(Mid$(Content, i, 1)) r(j) = r(j) + 1 Next 'Вывод на лист Cells(1, 1).Value = "Символ": Cells(1, 2).Value = "Вхожд.": Cells(1, 3).Value = "Код" j = 2 For i = 0 To 255 If r(i) > 0 Then Select Case i Case 32: Cells(j, 1).Value = "[Пробел]" Case Is < 32: Cells(j, 1).Value = "[Сист.]" Case Else: Cells(j, 1).Value = Chr$(i) End Select Cells(j, 2).Value = r(i): Cells(j, 3).Value = i: j = j + 1 End If Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д