Cümledeki Karakter, Boşluk ve Kelime Sayısını Bulmak

Bu örneğimizde TextBox taki cümledeki Karakter, Boşluk ve Kelime sayısını bulacağız.
Formunuza 1 adet TextBox, Button ve 3 adet Label ekleyin. Aşağıdaki şekli inceleyin.

Şekil 1

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Text = "Cümledeki boşluk sayısı "
        Label2.Text = "Cümledeki harf sayısı "
        Label3.Text = "Cümledekı kelime sayısı "
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a, f As String
        Dim c, I, d, w, x As Integer
     
        a = TextBox1.Text
        c = Len(a)
        LTrim(a)
        For I = 1 To c
            f = Mid(a, I, 2)
            If f = Strings.Space(2) Then
                d = d + 1
            End If
        Next
        For I = 1 To c
            f = Mid(a, I, 1)
            If f = Strings.Space(1) Then
                w = w + 1
            Else
                x = x + 1
            End If
        Next
       
        Label1.Text = "Cümledeki boşluk sayısı: " & CStr(w)
        Label2.Text = "Cümledeki harf sayısı: " & CStr(x)
        Label3.Text = "Cümledekı kelime sayısı: " & CStr(w - d + 1)

        d = 0
        w = 0
        x = 0
    End Sub

   
End Class

Bir sonraki makalede görüşmek üzere. Bahadır