Cümle İçerisindeki Boşluk Sayısını Almak

Merhaba arkadaşlar. Bu makalemizde cümle içerisinde geçen boşluk sayısını öğreneceğiz. Aynı şekilde, Split(str, "bu kısıma sayılacak kelimeyi yazınız.") kod kısmına sayılacak kelime yazılarak, cümle içerisinde kaç kere yazıldığı öğrenilebilinir. Formunuza TextBox ve Button ekleyin.

Ekran Çıktıları

Şekil 1

Şekil 2

Form1.vb

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub btnCount_Click(sender As Object, e As EventArgs) Handles btnCount.Click

        Dim str As String

        Dim array As Array

        Dim say As String

        str = TextBox1.Text

        'stringdeki geçen boşlukları sayacağız.

        array = Split(str, " ")

        'cümlede geçen boşluk sayısını alacağız.

        say = UBound(array)

        'ekrana aranılan kelimenin kaç kere geçtiğini yazacağız.

        MsgBox("Cümlede içerisinde " & say & " kere geçmektedir. ")

    End Sub

End Class