Visual Basic - Jak sprawdzić czy tekst zawiera konkretny znak/literę

Question

Witam,

kod poniżej sprawdza czy w TextBox1 jest a jeśli jest to w TextBox2 pokaże się 1

        If TextBox1.Text.Contains("a") Then
           TextBox2.Text = "1"
        End If

Mam taki problem, jeśli w TextBox1 napiszę np: aaa to w TextBox2 pokaże się tylko jedno 1 a nie trzy. Chciałbym wiedzieć co zrobić aby jak napiszę trzy aaa to pokażą się trzy 1

 

Answer 1

Siemka,

Nie chcę od razu dawać ci kodu jednak chcę żebyś spróbował samemu go napisać. Pamiętaj, że jeżeli nie zrozumiesz to ciebie tak nie zostawię i możesz poprosić już po prostu o kod ;) Jednak chcę żebyś spróbował najpierw samemu go napisać...

Poczytaj o rozszerzeniu "Count" dla zmiennych typu String (Jest to naprawdę fajne rozszerzenie ).

A potem dopisuj do przykładowej zmiennej jaką wcześniej stworzysz typu String znaki "1" w pętli jaka będzie się wykonywała n ilości znaków "a" w "TextBox1.Text". Pod sam koniec wystarczy już jedynie byś przypisał do właściwości "TextBox2.Text" ówcześnie ziterowaną zmienną z wynikiem ;)

Answer 2

Logiczne myślenie wkracza:
 

 If TextBox1.Text.Contains("a") Then
           TextBox2.Text = "1"
        End If

"Jeżeli tekst TextBox'a pierwszego, zawiera "a" wykonaj:
Ustaw tekst TextBox'a drugiego na "1"
zakończ."

Zauważyłeś może że sprawdzasz tylko logicznie czy jest znak "a", przecież w kodzie nie ma nigdzie tego ile ma ci policzyć tych znaków jeżeli one się znajdują, ten kod oznacza tylko że gdy się znajduje nie wiadomo ile razy to i tak nie masz jak tego sprawdzić.

Rozwiązaniem jest sprawdzenie ile występuje znaków "a" i czy w ogóle one występują. Czyli wykorzystaj loopy żeby sprawdzały ile jest znaków "a" w stringu i potem tylko dodawaj 1 do jakiejś zmiennej i masz informacje ile jest tych znaków. Myślę że pomogłem

Answer 3

Public Class Form1

    Private Sub licz()

        TextBox2.Text = ""
        Dim dlugosc As Integer = TextBox1.Text.Count
        Dim i As Integer = 0

        Do While i < dlugosc
            If TextBox1.Text(i) = "a" Then
                TextBox2.Text = TextBox2.Text & "1"
            End If
            i = i + 1
        Loop

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        licz()
    End Sub

End Class