Metinden Sesli Harfleri Çıkarmak

Merhaba arkadaşlar bu örnekte TextBox a girilen string içerisinden sesli harfleri çıkaracağız. Sadece TextBox ta sessiz harf karakterleri kalacak.

Screenshot

Şekil 1

Şekil 2

Form1.vb

Public Class Form1

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

        Dim str As String

        Dim sessizHarf As String = ""

        str = TextBox1.Text.Trim

        Dim sesliHarf As Integer = 0

        Dim i As Integer

        For i = 0 To str.Length - 1

            'metin icindeki sesli harfler cikariliyor

            'metinde sadece sessiz harfler kaliyor

            If str(i) <> "a" And str(i) <> "e" And str(i) <> "ı" And str(i) <> "u" And str(i) <> "ü" And str(i) <> "ö" And str(i) <> "i" And str(i) <> "o" Then

                sessizHarf = sessizHarf + str(i)

            Else

                'metinden cikarilan sesli harf sayisinin toplami hesaplaniyor   

                sesliHarf += 1

            End If

        Next

        TextBox1.Text = sessizHarf

        Label1.Text = "Metinden çıkarılan sesli harf sayısı toplamı= " & sesliHarf.ToString()

    End Sub

End Class

        }

    }

}

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