Karakter Sayımı

Merhaba arkadaşlar. Bu makalemizde Textbox alanındaki a harfinin kaç kez geçtiğini sayarak mesaj olarak yazdıracağız.

Şekil 1

Şekil 2

Form1.vb

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim str As String = TextBox1.Text

        'TextBoxtaki a karakterini sayacağız.

        Dim sayım = (From sayilacakkarakter In str.ToCharArray Where sayilacakkarakter = "a" Select sayilacakkarakter).Count

        'Sayılan karakterin toplamını mesaj olarak yazdırıyoruz.

        MsgBox("Yazıda 'a' karakteri sayısı toplam: " & sayım & " kez geçmektedir.")

    End Sub

End Class

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN