VBA Bir Stringdeki Her Karakterin Sayısını Bulma Örneği

168 Okunma VBA

"VBA" Programlama dilinde "Bir Stringdeki Her Karakterin Sayısını Bulma Örneği" ile ilgili kod örneği aşağıda belirtilmiştir. 

Sub countChars()
    Dim str1 As String
    Dim charDict As New Scripting.Dictionary
    Dim i As Integer, count As Integer
    str1 = "YazılımSeviyorum"
    
    For i = 1 To Len(str1)
        If charDict.Exists(Mid(str1, i, 1)) Then
            count = charDict(Mid(str1, i, 1))
            charDict(Mid(str1, i, 1)) = count + 1
        Else
            charDict.Add Mid(str1, i, 1), 1
        End If
    Next i
    
    Debug.Print "Sonuc:"
    For Each key In charDict.Keys
        Debug.Print key & ": " & charDict(key)
    Next key
End Sub
String Karakter Sayı Dizi Array VBA

İlginizi Çekebilir

VBA Stringin Tersten Okunuşu İle Aynı Olduğunu Kontrol Eden Örnek

VBA Bir Dizi Gerçek Sayının Çarpımını Bulma Örneği

VBA 1 İle 100 Arasında 3'e Bölünebilenleri Bulma Örneği

VBA Bir Stringdeki Noktalama İşaretlerini Kaldırma Örneği

VBA Dictionary'deki Değerler İle Listenin Elemanlarını Eşleştirme ...