Anasayfa » VB.NET Dersler ve Örnekler » VB.NET Cümle İçindeki Kelime Sayısını Bulma

VB.NET Cümle İçindeki Kelime Sayısını Bulma

Örneğimiz bir text kutusuna girilen yazıdaki kelime sayısını bulmaktadır.

Kodumuz aşağıdaki gibi olacak:


Public Class Form1
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim bosluksay, i As Byte
For i = 1 To Len(TextBox1.Text)
If Mid(TextBox1.Text, i, 1) = Chr(32) Then bosluksay = bosluksay + 1
Next
If e.KeyChar = Chr(13) Then MsgBox("Cümlenin Kelime Sayısı= " & bosluksay + 1)
End Sub

Kelime sayısını bulmak için önce boşluk sayısını bulmalıyız. Kelime sayısı boşluk sayısından bir fazladır. Boşluğun karakter kodu 32 dir. Yazı içerisinde bunu arıyoruz.

Arama için Mid fonksiyonundan yararlanıyoruz. Mid bir yazının içinde bir ya da birden fazla karakteri belirtilen konumdan itibaren arar. Kullanımı şu şekildedir:

Mid(Arama yapılacak metin,başlangıç,uzunluk)

Örneğimizde text kutusu içinde enter tuşuna basılınca kelime sayısı yazılmaktadır. Enter’ın karakter kodu 13’dür.

cumle ıcerısınde kelıme sayısını bulma

Cevapla

E-posta adresiniz yayınlanmayacak. Gerekli alanlar işaretlenmelidir *

*