Определить, какой символ встречается в строке чаще всего

@Anka006 · Регистрация: 28.01.2015

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

Помогите пожалуйста написать эту программу.

@Night Ranger · 02.02.2015, 07:42

Сообщение от Anka006

Помогите пожалуйста написать эту программу.

опять вы..

Вот, конкретный ответ

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub MostOften()
    Dim s$, a&(255), i&, j&, ss$, max&
    Do: Erase a: max = 0
        s = InputBox("Введите любой текст", , "Помогите пожалуйста написать эту программу.")
        If Len(s) Then
            For i = 1 To Len(s)
                j = Asc(Mid$(s, i, 1))
                a(j) = a(j) + 1
            Next
            For i = 0 To 255
                If a(i) > max Then
                    max = a(i)
                    ss = "[" & Chr(i) & "]"
                ElseIf a(i) = max Then
                    ss = ss & " [" & Chr(i) & "]"
                End If
            Next
            If MsgBox( _
            "Чаще всего, в этом тексте встретил" & IIf(Len(ss) > 3, "ись", "ся") & vbCrLf & _
            ss & vbCrLf & _
            "Повторить ?", 68) = vbNo Then Exit Sub
        End If
    Loop
End Sub

Добавлено через 10 минут
Вот еще вариант, это если не нужно учитывать регистр букв (а=А)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub MostOften()
    Dim s$, a&(255), i&, j&, ss$, max&
    Do: Erase a: max = 0
        s = InputBox("Введите любой текст", , "ааАА фффф 112223333")
        If Len(s) Then
            For i = 1 To Len(s)
                j = Asc(LCase(Mid$(s, i, 1)))
                a(j) = a(j) + 1
            Next
            For i = 0 To 255
                If a(i) > max Then
                    max = a(i)
                    ss = "[" & Chr(i) & "]"
                ElseIf a(i) = max Then
                    ss = ss & " [" & Chr(i) & "]"
                End If
            Next
            If MsgBox( _
            "Чаще всего, в этом тексте встретил" & IIf(Len(ss) > 3, "ись", "ся") & vbCrLf & _
            ss & vbCrLf & _
            "Повторить ?", 68) = vbNo Then Exit Sub
        End If
    Loop
End Sub

@Апострофф · 02.02.2015, 08:48

Много буков

Сообщение от Night Ranger

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub MostOften()
    Dim s$, a&(255), i&, j&, ss$, max&
    Do: Erase a: max = 0
        s = InputBox("Введите любой текст", , "ааАА фффф 112223333")
        'If Len(s) Then
            For i = 1 To Len(s)
                j = Asc(LCase(Mid$(s, i, 1)))
                a(j) = a(j) + 1
                If a(j) > max Then
                  ss = "[" & Chr(j) & "]"
                  max = a(j)
                ElseIf a(j) = max Then
                  ss = ss & " [" & Chr(j) & "]"
                End If
            Next
'            For i = 0 To 255
'                If a(i) > max Then
'                    max = a(i)
'                    ss = "[" & Chr(i) & "]"
'                ElseIf a(i) = max Then
'                    ss = ss & " [" & Chr(i) & "]"
'                End If
'            Next
             if max>0then            
               If MsgBox( _
            "Чаще всего, в этом тексте встретил" & IIf(Len(ss) > 3, "ись", "ся") & vbCrLf & _
            ss & vbCrLf & _
            "Повторить ?", 68) = vbNo Then Exit Sub
            End If
    Loop
End Sub

@Night Ranger · 02.02.2015, 08:54

Сообщение от Апострофф

Много буков

Зато это абсолютно полное решение, если показывать пример то он должен быть полным, останеться только скопировать, для этого необязательно даже знать VBA, всё можно пошагово изучить из примера

Добавлено через 4 минуты
Всё было продуманно, не знаю зачем вы изощраетесь и чтото коментируете в самом коде,
одно другое дополняет

@Апострофф · 02.02.2015, 08:57

Сообщение от Night Ranger

Всё было продуманно

однако лишний цикл зачем?

@Night Ranger · 02.02.2015, 08:59

Сообщение от Апострофф

однако лишний цикл зачем?

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

@snipe · 02.02.2015, 09:00

Ни кто не изощряется
как говорил один из знакомых - в Аксе любую задачу можно решить 4 независимыми способами
каждый имеет право на свое мнение
мне например интересно мнение более опытных проггеров
это как минимум заставляет задумываться и не стоять на месте

@Night Ranger · 02.02.2015, 09:03

Сообщение от snipe

например интересно мнение более опытных проггеров

а я не опытный значит, ну ладно.. ладно ..

@Апострофф · 02.02.2015, 09:04

Сообщение от Night Ranger

иначе результат будет неверным

Пример неверного результата покажите...

@Night Ranger · 02.02.2015, 09:10

Сообщение от Апострофф

Пример неверного результата покажите

Может оказаться неверным, Не покажу у себя я уже всё удалил, но тоже пытался делать в одном цикле

@Апострофф · 02.02.2015, 09:13

Не по теме:

Сообщение от Night Ranger

Не покажу

Ну и не показывай:p

@Night Ranger · 02.02.2015, 09:22

Не по теме:

Я просто в торопях собрал этот код, конечно, я вообще бы мог собрать этот код в одной строке, но как-бы наша юная участница его разбирала ?
весь моск бы поломала об него :)
если посидел бы над ним больше 15 мин, просто у меня куча других задач
на рабочем столе даже места нет всё в ярлыках

SoftIce · 02.02.2015, 09:47

Не по теме:

Сообщение от Night Ranger

на рабочем столе даже места нет всё в ярлыках

Купи монитор пошире :D

@Апострофф · 02.02.2015, 09:48

Night Ranger - ваше решение вообще плагиат чистой воды - https://www.cyberforum.ru/post7174206.html (только что пролистал всю тему

)

@Night Ranger · 02.02.2015, 10:16

Не по теме:

Сообщение от Апострофф

ваше решение вообще плагиат чистой воды

Как раз нет, видете ли, я не листал, клянусь, если бы листал то по честному это сказал
и наверное не сделал бы того, что вы закоментировали как вы считаете
а монитор мне и этот нравиться!

Не помню точно как правильно назвать, рискну назвать прототип этого решения,
так как я его не видел и сделал по своему потому-что уже делал чтото похожее в прошлом
но никак не плагиат

@Sasha_Smirnov · 02.02.2015, 14:25

Да здравствует

Сообщение от Catstail

нагрузка на менеджер памяти VB/VBA

)))))

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub some_visual()
Dim a&, b$, f$, d&, strS$
'strS = "Опред" 'елить, какой символ встречается в строке чаще всего"
strS = ActiveDocument.Content.Text 'Selection.Text 'выделенный текст
 
a = 0: b = ""
    Do While Len(strS) > 0
        f = Left(strS, 1)
        d = Len(strS)
        strS = Replace(strS, f, "")
        d = d - Len(strS)
        If d > a Then
        a = d: b = f
        ElseIf d = a Then
        a = d: b = b & ", " & IIf(Asc(f) = 32 Or Asc(b) = 160, " пробел", _
                    IIf(Asc(f) = 9, " табулятор (tabulation character)", _
                    IIf(Asc(f) = 11, " разрыв строки (line break)", _
                    IIf(Asc(f) = 12, " разрыв страницы (page break)", _
                    IIf(Asc(f) = 13, " абзац (paragraph character)", f)))))
        End If
    Loop
MsgBox "Символ" & IIf(InStr(1, b, ",") > 0, "ы", "") & ": " & _
IIf(InStr(b, ","), b, IIf(Asc(b) = 32 Or Asc(b) = 160, " пробел", b)) & _
vbNewLine & IIf(InStr(b, ","), "встречаются по ", "встречается ") & a & _
" раз" & IIf(a Mod 10 = 1 And a Mod 100 < 11, IIf(InStr(b, ","), "у", ""), _
         IIf(a Mod 10 < 5 And (a Mod 100) \ 10 <> 1, "а", ""))
End Sub

@Catstail · 02.02.2015, 14:36

Сравнил производительности своего кода и кода с удалением символа. Код сравнения - под катом. Мой код примерно в 1,5 раза быстрее.

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Private Declare Function GetTickCount Lib "kernel32" () As Long
 
Function Freq1(strS As String) As String
Dim a&, b$, F$, d&
    a = 0: b = ""
    Do While Len(strS) > 0
       F = Left(strS, 1)
       d = Len(strS)
       strS = Replace(strS, F, "")
       d = d - Len(strS)
       If d > a Then
          a = d: b = F
       ElseIf d = a Then
          a = d: b = b & ", " & IIf(Asc(F) = 32, " пробел", F)
       End If
    Loop
    Freq1 = b
End Function
 
Sub Test1()
    tst$ = ""
    For i& = 1 To 50
        tst$ = tst$ + "Определить, какой символ встречается в строке чаще всего"
    Next i&
    stst$ = tst$
    tBeg& = GetTickCount
    For i& = 1 To 10000
        tst$ = stst$
        S$ = Freq1(tst$)
    Next i&
    tEnd& = GetTickCount
    Debug.Print tEnd& - tBeg&
End Sub
 
Function Freq2(S As String) As String
Dim F(0 To 255) As Long
     For i& = 1 To Len(S)
          q% = Asc(Mid$(S, i&, 1))
          F(q%) = F(q%) + 1
     Next i&
     fm& = F(0)
     For i& = 1 To 255
          If F(i&) > fm& Then fm& = F(i&)
     Next i&
     Freq2 = ""
     For i& = 0 To 255
          If F(i&) = fm& Then Freq2 = Freq2 & Chr$(i&)
     Next i&
End Function
 
Sub Test2()
    tst$ = ""
    For i& = 1 To 50
        tst$ = tst$ + "Определить, какой символ встречается в строке чаще всего"
    Next i&
    stst$ = tst$
    tBeg& = GetTickCount
    For i& = 1 To 10000
        tst$ = stst$
        S$ = Freq2(tst$)
    Next i&
    tEnd& = GetTickCount
    Debug.Print tEnd& - tBeg&
End Sub

@Night Ranger · 02.02.2015, 15:16

Не по теме:

Ну Вы даёте.. когда вы успеваете постить ?.. когда я получаю письма и прихожу по ссылке
то наблюдаю уже следующую страницу :)

Добавлено через 31 минуту
Есть и покороче способ..

Visual Basic
1
2
3
Sub MostOften(): Dim s$, a&(255), i&, j&, ss$, max&: Do: Erase a: max = 0: s = InputBox("Введите любой текст", , "ааАА фффф 112223333"): For i = 1 To Len(s): j = Asc(LCase(Mid$(s, i, 1))): a(j) = a(j) + 1: If a(j) > max Then ss = "[" & Chr(j) & "]": max = a(j) Else If a(j) = max Then ss = ss & " [" & Chr(j) & "]"
Next: If max > 0 Then If MsgBox("Чаще всего, в этом тексте встретил" & IIf(Len(ss) > 3, "ись", "ся") & vbCrLf & ss & vbCrLf & "Повторить ?", 68) = vbNo Then Exit Sub
Loop: End Sub

@Sasha_Smirnov · 02.02.2015, 17:06

В инпутбоксе строка до 256 символов (и то лишь печатаемых), а вот (не считая some_visual) для текста в приложении: Подсчет количества знаков в документе Word.

Не в пику краткости, но VB же for Applicanion!

@Night Ranger · 02.02.2015, 17:15

Да нее, можно, готов поспорить что также просто можно написать код
но уже использовать другие команды для обработки строки ( AscW / MidB$ / ChrW$ и тп),
только в инпутбоксе прикопаться по другому, например введите названиие документа,или всей папки с вашими документами..., а в месаге тоже выдать очень большое окно ...

@Sasha_Smirnov · 02.02.2015, 18:12

И практически экспертная система от Skif-F с участием Sasha_Smirnov: Макрос поиска чисел в тексте.

Выдаёт частоту и рейтинг не только отдельно стоящих символов, но и буквосочетаний! Кстати, там есть и

Сообщение от Catstail

двоичный поиск.

А для школьников хороша была бы такая вот подтема: узнать, существует ли символ, который

Сообщение от Anka006

встречается в строке чаще всего.

Хотелось бы посмотреть: как хороши, как кратки варианты!

Новые блоги и статьи Все статьи Все блоги /
Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .
Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))

@Anka006 0 / 0 / 0 Регистрация: 28.01.2015 Сообщений: 6

	Определить, какой символ встречается в строке чаще всего 28.01.2015, 19:39. Показов 9631. Ответов 39 Метки нет (Все метки) Помогите пожалуйста написать эту программу. 0

@snipe 4089 / 1469 / 401 Регистрация: 07.08.2013 Сообщений: 3,673
	02.02.2015, 09:00
	Ни кто не изощряется как говорил один из знакомых - в Аксе любую задачу можно решить 4 независимыми способами каждый имеет право на свое мнение мне например интересно мнение более опытных проггеров это как минимум заставляет задумываться и не стоять на месте 0

@Night Ranger
	02.02.2015, 09:22
	Не по теме: Я просто в торопях собрал этот код, конечно, я вообще бы мог собрать этот код в одной строке, но как-бы наша юная участница его разбирала ? весь моск бы поломала об него :) если посидел бы над ним больше 15 мин, просто у меня куча других задач на рабочем столе даже места нет всё в ярлыках 0

@Апострофф 9912 / 3933 / 743 Регистрация: 11.10.2011 Сообщений: 5,915
	02.02.2015, 09:48
	Night Ranger - ваше решение вообще плагиат чистой воды - https://www.cyberforum.ru/post7174206.html (только что пролистал всю тему) 0

@Sasha_Smirnov 5562 / 1370 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	02.02.2015, 17:06
	В инпутбоксе строка до 256 символов (и то лишь печатаемых), а вот (не считая some_visual) для текста в приложении: Подсчет количества знаков в документе Word. Не в пику краткости, но VB же for Applicanion! 0

@Night Ranger Заблокирован
	02.02.2015, 17:15
	Да нее, можно, готов поспорить что также просто можно написать код но уже использовать другие команды для обработки строки ( AscW / MidB$ / ChrW$ и тп), только в инпутбоксе прикопаться по другому, например введите названиие документа,или всей папки с вашими документами..., а в месаге тоже выдать очень большое окно ... 0

Определить, какой символ встречается в строке чаще всего

Решение