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

@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

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

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

Новые блоги и статьи Все статьи Все блоги /
Транскрипция 55-минутного видео через Whisper: WhisperDesktop облажался, спас Google Colab[ anaschu 01.06.2026 Понадобилось получить текст из свежезагруженного видео на YouTube. Казалось бы, задача на пять минут. Заняла полтора часа. Делюсь опытом — может кому пригодится последовательность решений. . . .	21 мат мед. Планы на развитие модели здравоСохранения anaschu 01.06.2026 AnyLogic: план развития симуляционной модели рабочего коллектива — динамический абсентеизм, реальные данные, три сценария сравнения Продолжаю серию постов о дискретно-событийной модели рабочего. . .	20. Мат мед. Абсентеизм как отдельный тип простоя anaschu 29.05.2026 Апдейт модели: исправленные баги, абсентеизм и новые механизмы Продолжаю развивать ранее описанную модель рабочего коллектива на AnyLogic. За последние несколько дней был проведён серьёзный. . .	19. здоровье, усталость и психотип работника влияют на производительность предприятия, и наоборот, производительность на здоровье, усталось и психотип anaschu 28.05.2026 Дискретно-событийная модель рабочего коллектива на AnyLogic: здоровье, выгорание, психотипы и микростимуляция Привет, коллеги. Хочу поделиться итогами нескольких недель работы над симуляционной. . .
"Прокси" для последовательного порта Eddy_Em 28.05.2026 Эту штуку написал я достаточно давно. Но сейчас вот понадобилось настроить датчик грозы, но при этом не отключать его от "метеодемона". Соответственно, надо запустить этот "прокси": метеодемон будет. . .	Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.	Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .	Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает anaschu 24.05.2026 Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .

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

	Определить, какой символ встречается в строке чаще всего 28.01.2015, 19:39. Показов 9424. Ответов 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

@Апострофф 9909 / 3931 / 742 Регистрация: 11.10.2011 Сообщений: 5,911
	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

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

Решение