VBA Bir String İçinde Başka Bir Stringin Adetini Bulma Örneği

39 Okunma VBA

"VBA" Programlama dilinde "Bir String İçinde Başka Bir Stringin Adetini Bulma Örneği" ile ilgili örnek kod aşağıda verilmiştir. 

Sub countSubstring()
    Dim str1 As String
    Dim sub_string As String
    Dim temp_str As String
    Dim count As Integer
    Dim pos As Integer
    
    str1 = "Yazılımı çok seviyorum. Yazılım benim herşeyim."
    sub_string = "yazılım"
    
    temp_str = LCase(str1)
    
    pos = 1
    Do While pos > 0
        pos = InStr(pos, temp_str, LCase(sub_string))
        If pos > 0 Then
            count = count + 1
            pos = pos + 1
        End If
    Loop
    
    Debug.Print "Adet: " & count
End Sub
String Adet Substring Alt Bul VBA

İlginizi Çekebilir

VBA Tüm Satırları Auto Fit Yapmak

VBA 1'den N'e Kadar Olan Sayıların Toplamını Bulma Örneği

VBA Bir Stringde Tam Sayılar Dışındaki Karakterleri Kaldırma Örne ...

VBA Tam Sayıdaki Rakamları Ters Sırada Gösterme Örneği

VBA Bugünün Tarihini Getirmek