Частота появления символов

[Fox_Malder]

Подскажите код, как подсчитать частоту появления любого символа в строке?
Смог организовать это только для одного конкретного символа (для "1"):

Код: Выделить всё

Dim InputMessage As String      'строка для подсчета
Dim v            'частота появления
Dim retval         'возвращаемое значение
InputMessage = Text1.Text   'берем текст, например, из TextBox
retval = Split(InputMessage, "1")
v = UBound(retval1)      'определение индекса последнего (нужного) элемента в строке

[BV]

Так в чём вопрос?

А что, Скали тоже не знает?

[Amed]

Отсортировать строку по возрастанию. Подсчитать число вхождений каждой новой буквы.

[uhm]

На сортировку куча времени уйдет. Быстрее создать массив частот всех возможных символов, пробежаться циклом по строке и увеличивать при проходе каждого символа соотв. элемент массива.

[Fox_Malder]

Например, дана строка:
123456фыукещз56ощежаф
И здесь необходимо подсчитать появление каждого символа, например:
1 - 1 раз,
2 - 1 раз,
ф - 2 раза и т.д.
Т.е. код должен сам определять уникальные символы и подсчитывать их количество.

[keks-n]

На форме Text1,Text2,Command1

Код: Выделить всё

Private Sub Command1_Click()
Dim Inpstr As String, InChr As String, n As Long, Num As Long
Inpstr = Text1.Text
InChr = Text2.Text
For n = 1 To Len(Inpstr)
If Mid(Inpstr, n, 1) = InChr Then Num = Num + 1

Next
MsgBox Num
End Sub


В Text1 строку, в Text2 искомый символ.
Оно должно подсчитать скока раз символ встречается, так?

[Amed]

Код: Выделить всё

Option Explicit
Private Const TestString As String = "VBStreets - лучший форум по Visual Basic в Рунете!!!"

Private Sub Form_Load()
Dim arr(Len(TestString)) As Integer, tmp As Integer, tmp2 As Integer, i As Long, j As Long

Me.Print "TestString: " & TestString & vbCrLf

'Строку в массив
For i = 0 To Len(TestString) - 1
    arr(i) = Asc(Mid$(TestString, i + 1, 1))
Next i

'Сортируем массив
For j = 0 To Len(TestString) - 1
    For i = 0 To Len(TestString) - 2
        If arr(i) > arr(i + 1) Then
            tmp = arr(i)
            arr(i) = arr(i + 1)
            arr(i + 1) = tmp
        End If
    Next i
Next j

'Результаты
tmp = 0
For i = 0 To Len(TestString) - 1
    tmp = tmp + 1
    If arr(i) <> arr(i + 1) Then
        tmp2 = tmp
        tmp = 0
    End If
    If tmp2 > 0 Then
        Me.Print "Symbol '" & Chr$(arr(i)) & "': " & tmp2 & " times."
        tmp2 = 0
    End If
Next i
End Sub

[vvs_adm]

Amed
И снова ты с сортировкой Это почти что наихудший вариант (потому что наверняка есть хуже)

Код: Выделить всё

Dim nOcurrencesOfSymbols(255) as long
Dim nCount as long

For nCount=1 to len(MyString)-1
   nOcurrencesOfSymbols(asc(mid$(MyString,nCount,1)))=nOcurrencesOfSymbols(asc(mid$(MyString,nCount,1)))+1
Next nCount

В итоге в массиве nOcurrencesOfSymbols находится частота вхождения символов в строке MyString

P.S.: ну а вот этот массив ты уже можешь при желании сортировать любыми методами
P.P.S.: жаль UHM раньше уже написал

[Amed]

А для двухбуквенных сочетаний мы создадим массив 255х255. А для трехбуквенных?

[vvs_adm]

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

[Amed]

Запомните, дети!
Мои способы делать из мухи слона идеальны и критике не подлежат. Оспаривать будем? ))

[vvs_adm]

Ну что ж, тут уж без комментариев...