question

[andrew104]

Can somebody tell me how I would get started counting the total number of "a"s in a text box as text is entered (realtime) ? Thanks.

[MrPolite]

Originally posted by andrew104
Can somebody tell me how I would get started counting the total number of "a"s in a text box as text is entered (realtime) ? Thanks.

I wrote a function, although inefficient to do this, I dont know a better way maybe someone can come up with a more efficient way, I'm too dumb to do that

' Counts the number of times that character c is used in the string txt
    Function CountChars(ByVal txt As String, ByVal c As Char) As Integer
        Dim i As Integer
        For i = 0 To txt.Length - 1
            If txt.Substring(i, 1) = c Then
                CountChars += 1
            End If
        Next
    End Function

so you can call this function like:

CountChars (textBox1.text, "a"c ) ' returns the number of times character a is used in textbox1

you can call this function in textbox's Changed event if you want it to be "realtime"

[andrew104]

Thank you for the help. I have figured out the single character,
however...

1. I'm now having trouble with counting the instances of "st".
I've tried an if statement (see code) and it counts correctly,
however if "s" is not the last character, then it displays "0" in the
label again. Any ideas?

2. Also, with the functions that I'm using, is there an easier way
to count lower and uppercase letters, rather than having
separate functions for each?

3. I need to count letters (A-Z). How can I keep a count of
those?

4. I also need to count words. Meaning a group of letters with a
space before and after them. Any ideas?


Thank you so much for your help!

' Count the number of times that character a is used in the string InputText
    Function strCountA1(ByVal InputText As String, ByVal a As Char) As Integer
        Dim i As Integer
        For i = 0 To InputText.Length - 1
            If InputText.Substring(i, 1) = a Then
                strCountA1 = strCountA1 + 1
            End If
        Next
    End Function
 
    ' Count the number of times that character A is used in the string InputText
    Function strCountA2(ByVal InputText As String, ByVal a As Char) As Integer
        Dim i As Integer
        For i = 0 To InputText.Length - 1
            If InputText.Substring(i, 1) = a Then
                strCountA2 = strCountA2 + 1
            End If
        Next
    End Function
 
    ' Count the number of times that character e is used in the string InputText
    Function strCountE1(ByVal InputText As String, ByVal e As Char) As Integer
        Dim i As Integer
        For i = 0 To InputText.Length - 1
            If InputText.Substring(i, 1) = e Then
                strCountE1 = strCountE1 + 1
            End If
        Next
    End Function
 
    ' Count the number of times that character E is used in the string InputText
    Function strCountE2(ByVal InputText As String, ByVal e As Char) As Integer
        Dim i As Integer
        For i = 0 To InputText.Length - 1
            If InputText.Substring(i, 1) = e Then
                strCountE2 = strCountE2 + 1
            End If
        Next
    End Function
 
    ' Count the number of times that character s is used in the string InputText
    Function strCountS1(ByVal InputText As String, ByVal s As Char) As Integer
        Dim i As Integer
        For i = 0 To InputText.Length - 1
            If InputText.Substring(i, 1) = s Then
                strCountS1 = strCountS1 + 1
            End If
        Next
    End Function
 
    ' Count the number of times that character S is used in the string InputText
    Function strCountS2(ByVal InputText As String, ByVal s As Char) As Integer
        Dim i As Integer
        For i = 0 To InputText.Length - 1
            If InputText.Substring(i, 1) = s Then
                strCountS2 = strCountS2 + 1
            End If
        Next
    End Function
 
    ' Count the number of times that character v is used in the string InputText
    Function strCountV1(ByVal InputText As String, ByVal s As Char) As Integer
        Dim i As Integer
        For i = 0 To InputText.Length - 1
            If InputText.Substring(i, 1) = s Then
                strCountV1 = strCountV1 + 1
            End If
        Next
    End Function
 
    ' Count the number of times that character V is used in the string InputText
    Function strCountV2(ByVal InputText As String, ByVal s As Char) As Integer
        Dim i As Integer
        For i = 0 To InputText.Length - 1
            If InputText.Substring(i, 1) = s Then
                strCountV2 = strCountV2 + 1
            End If
        Next
    End Function
 
    ' Count the number of times that characters st are used in the string InputText
    Function CountSTTotal(ByVal InputText As String, ByVal t As Char) As Integer
        Dim i As Integer
        If InputText.EndsWith("s") Or InputText.EndsWith("S") Then
            For i = 0 To InputText.Length - 1
                If InputText.Substring(i, 1) = t Then
                    CountSTTotal = CountSTTotal + 1
                End If
            Next
        End If
    End Function
 
    'test countwords
    Function CountWords()
        Dim strWords() As String
        Dim lCounter As Long
        Dim lWordCount As Long
        strWords = Split(Trim(InputTextBox.Text), " ")
        For lCounter = 0 To UBound(strWords)
            If strWords(lCounter) <> " " And strWords(lCounter) <> "" Then lWordCount = lWordCount + 1
        Next lCounter
    End Function
 
    Private Sub InputTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)  Handles InputTextBox.TextChanged
        Collection1.Add(Me.InputTextBox)
        Me.ClearButton.Enabled = True
        Me.ACountLabel.Text = strCountA1(InputTextBox.Text, "a"c) + strCountA2(InputTextBox.Text, "A"c)
        Me.ECountLabel.Text = strCountE1(InputTextBox.Text, "e"c) + strCountE2(InputTextBox.Text, "E"c)
        Me.SCountLabel.Text = strCountS1(InputTextBox.Text, "s"c) + strCountS2(InputTextBox.Text, "S"c)
        Me.VCountLabel.Text = strCountV1(InputTextBox.Text, "v"c) + strCountV2(InputTextBox.Text, "V"c)
        Me.STCountLabel.Text = CountSTTotal(InputTextBox.Text, "t"c)
        Me.LetterCountLabel.Text = intLetterCount
    End Sub
 
    'test count letters
    Private Sub InputTextBox_KeyPress(ByVal KeyAscii As Integer)
        If (KeyAscii > 64 And KeyAscii < 91) Or (KeyAscii > 96 And KeyAscii < 123) Then
            'user typed a letter
            intLetterCount = intLetterCount + 1
            Me.LetterCountLabel.Text = intLetterCount
        End If
    End Sub

[andrew104]

Anybody???

[MrPolite]

aah sorry that I'm not answering your question, I didnt even read what you asked (dont have vb right now... )

but you're doing something wrong

when I said it "counts the number of times character c is used," I ment that c as a variable, and not "c"
You dont need to make many different functions to count different characters. Just use the ONE function that I wrote. You can use it like this:


look for character "a" -> CountChars (textBox1.text, "a"c )
look for character "b" -> CountChars (textBox1.text, "b"c )
look for character "c" -> CountChars (textBox1.text, "c"c )
look for character "d" -> CountChars (textBox1.text, "d"c )
look for character "e" -> CountChars (textBox1.text, "e"c )


one function is enought, makes sense?

when I use something like "a"c, the c means that VB should threat "a" as a character and not as string. I dont know any other way to do this, I'm dumb maybe it's the only way to do it. In C++ you can put characters in ' (like 'a' , instead of "a"c )