InStr Metodu

Merhaba arkadaşlar, InStr metodunu kullanarak String içerisinde girilen karakterin konumunu buluyoruz. Bu örneğimizde “a” harfinin geçtiği yerlerin konumunu Listbox a ekliyoruz.

Şekil 1

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim str As String = "Merhaba Dünya. Bahadır Şahin"

        Dim sonuc As String

        Dim i, j As Integer

        For i = 1 To str.Length Step 1

            'InStr metodu ile string içerisinde girdiğimiz karakteri aratıyoruz.

            '1. karakterden itibaren arama yapılıyor.

            'sonuc = InStr(1, str, "a")

            sonuc = InStr(i, str, "a")

            ListBox1.Items.Add(sonuc)

        Next

        'Listbox ta tekrarlanan satırları siliyoruz.

        ListBox1.Refresh()

        Dim indeks As Integer

        Dim sayi As Integer = ListBox1.Items.Count

        If sayi > 1 Then

            Dim sonitem As String = ListBox1.Items(sayi - 1)

            For indeks = sayi - 2 To 0 Step -1

                If ListBox1.Items(indeks) = sonitem Then

                    ListBox1.Items.RemoveAt(indeks)

                Else

                    sonitem = ListBox1.Items(indeks)

                End If

            Next

        End If

    End Sub

End Class

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek dileğiyle. Hoşçakalın. Bahadır ŞAHİN