Metin İstatisklerini Almak

 

Merhaba arkadaşlar, bu makalemizde textBox ta  çok satırlı bir metin kutusuna girilen metnin hece, kelime ve cümle sayılarını hesaplalıyoruz ve girilen bir kelimenin metin içerisinde geçme sayısı buluyoruz.

 

 

Şekil 1

 

Form1.vb

 

Imports System.Windows.Forms.VisualStyles.VisualStyleElement.Button

 

Public Class Form1

    Dim str, ara, sonkarakter As String

    Dim kelimeSayisi, cumleSayisi, heceSayisi, i, konum, sayac As Integer

    Private Sub btnAra_Click(sender As Object, e As EventArgs) Handles btnAra.Click

        str = txtMetin.Text

        If RadioButton1.Checked Then 'Birebir eşit olmadan serbest arama. Yani "masa" aranırken "masal" da bulunur.

            ara = txtAra.Text

        Else

            ara = " " + txtAra.Text + " " 'Birebir tam eşit arama. "masa" aranırken, "masal" bulunmaz.

        End If

        sayac = 0

        konum = 1

        Do

            i = Strings.InStr(konum, str, ara) '"ara" kelime "str" içersinde "konum"dan başlayarak aranıyor.

            If i <> 0 Then sayac = sayac + 1

            konum = i + Strings.Len(ara) 'Bulunca aramaya yeni konumdan devam et.

        Loop Until i = 0

        txtSayi.Text = sayac

    End Sub

 

    Private Sub btnIstatistikAl_Click(sender As Object, e As EventArgs) Handles btnIstatistikAl.Click

        str = txtMetin.Text + " "

        kelimeSayisi = 0

        cumleSayisi = 0

        heceSayisi = 0

        For j = 0 To Strings.Len(str) - 1 'Metni sonuna kadar karakter karakter tarıyor.

            If str(j) = " " Then kelimeSayisi = kelimeSayisi + 1 'Kelime sayısı = boşluk sayısı. Çünkü yukarıda fazladan bir boşluk eklemiştik.

            If j = Strings.Len(str) - 1 Then Exit For 'Aşağıdaki koşulda son karakterden sonra(j + 1) arama yapmasın

 

            If (str(j) = "." And (str(j + 1) = " " Or Strings.AscW(str(j + 1)) = 13)) Or str(j) = "?" Or str(j) = "!" Then cumleSayisi = cumleSayisi + 1

            'Hece sayısı=sesli harf sayısı:

            If str(j) = "a" Or str(j) = "e" Or str(j) = "ı" Or str(j) = "i" Or str(j) = "o" Or str(j) = "ö" Or str(j) = "u" Or str(j) = "ü" Then heceSayisi = heceSayisi + 1

        Next

        TextBox3.Text = cumleSayisi

        TextBox2.Text = kelimeSayisi

        TextBox1.Text = heceSayisi

    End Sub

End Class

 

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

Share This:

Facebook Twitter Pinterest Linkedin Whatsapp Whatsapp

About Bahadır Şahin

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.