Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
Дмитрий291225
22 / 0 / 0
Регистрация: 28.12.2011
Сообщений: 88
1

Подсчитать, сколько различных символов встречается в строке

30.12.2011, 12:38. Просмотров 1277. Ответов 2
Метки нет (Все метки)

Дана строка. Подсчитать, сколько различных символов встречается в ней. Вывести их на экран.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.12.2011, 12:38
Ответы с готовыми решениями:

Дана строка символов. Подсчитать, сколько различных символов встречаются в ней
помогите пожалуйста дорешать задачу!!!! Дана строка символов. Подсчитать, сколько различных...

Дана строка символов. Подсчитать, сколько различных символов встречаются в ней. Вывести их на экран
:help:%-):cry::wall: решить в VBA!!!!

Дана строка символов. Подсчитать, сколько различных символов встречаются в ней. Вывести их на экран
помогите пожалуйста доделать задачу: Дана строка символов. Подсчитать, сколько различных символов...

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

Подсчитать, сколько раз в данной строке встречается буква Ch, вводимая с клавиатуры
Нужно решить задачу в VBA, помогите пожалуйста. Все перепробовал, никак не получается(((

2
Казанский
14911 / 6312 / 1721
Регистрация: 24.09.2011
Сообщений: 9,977
30.12.2011, 13:35 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Sub bb()
Dim s$, i&
s = "Дана строка. Подсчитать, сколько различных символов встречается в ней."
On Error Resume Next
With CreateObject("scripting.dictionary")
    For i = 1 To Len(s)
        .Add Mid$(s, i, 1), "0"
    Next
    MsgBox "Различных символов: " & .Count & vbLf & Join(.keys, "")
End With
End Sub
Добавлено через 44 минуты
С доп. опцией
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Sub bb()
Dim s$, i&
s = "Дана строка. Подсчитать, сколько различных символов встречается в ней."
With CreateObject("scripting.dictionary")
    .CompareMode = 1 '1 - не различать регистр. 0 или не задано - различать регистр.
    For i = 1 To Len(s)
        .Item(Mid$(s, i, 1)) = ""
    Next
    MsgBox "Различных символов: " & .Count & vbLf & Join(.keys, "")
End With
End Sub
1
Вождь
216 / 48 / 2
Регистрация: 18.02.2010
Сообщений: 81
30.12.2011, 13:42 3
Мне придумался вариант с удалением:
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
Sub Символы_строки()
 
Dim S$, C$, I$
Dim N&, L&, L2&
    
    S = InputBox("Введите строку:")
    L = Len(S) ' длина
    I = "" ' результат
    N = 0 ' счетчик
    Do While L > 0
        N = N + 1
        C = Left(S, 1) ' первый символ
        S = Replace( _
                Expression:=S, _
                Find:=C, _
                Replace:="", _
                Start:=1, _
                Count:=-1, _
                Compare:=VBA.vbBinaryCompare)
        L2 = Len(S)
        I = I & VBA.vbLf & CStr(N) & ". """ & C & """ - " & CStr(L - L2)
        L = L2
    Loop
    MsgBox "Номер. Символ - Количество: " & I
 
End Sub
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.12.2011, 13:42

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

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

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


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

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

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