Android Question Counting specific characters in autocompleEditText

[jojo12]

Hello,

What would be the simplest way to count a specific character, like "(" in an autocompleteEditText.text ?

I can't figure out. Code is welcomed.

Thanks for any answer.

 

[Erel]

Sub CountOccurrences (text As String, match As String) As Int
    Dim count As Int
    Dim i As Int = -1
    Do While i < text.Length
        i = text.IndexOf2(match, i + 1)
        If i = -1 Then
            Exit
        Else
            count = count + 1
        End If
    Loop
    Return count
End Sub

 

[jojo12]

Thanks a lot !

 

[LucaMs]

Sub CountOccurrences (text As String, match As String) As Int
    Dim count As Int
    Dim i As Int = -1
    Do While i < text.Length
        i = text.IndexOf2(match, i + 1)
        If i = -1 Then
            Exit
        Else
            count = count + 1
        End If
    Loop
    Return count
End Sub

Erel, you are a genius with regular expressions too; isn't it easier with RegEx?

 

[Erel]

Sub CountOccurrences (text As String, match As String) As Int
    Dim count As Int
    Dim m As Matcher = Regex.Matcher($"\Q${match}\E"$, text)
    Do While m.Find
        count = count + 1
    Loop
    Return count
End Sub

 

[Erel]

If you are searching for a single character then the simplest way:

Sub CountOccurrences (text As String, match As String) As Int
    Dim count As Int
    For i = 0 To text.Length - 1
      If text.CharAt(i) = match Then count = count + 1
    Next
   Return count
End Sub

 

[jojo12]

C'est l'abondance !

Yes, only a single character.

Thanks

 

[angel_]

And this?

Sub CountOccurrences2 (text As String, match As String) As Int
    Return text.Length - text.Replace(match, "").Length
End Sub

 

[LucaMs]

And this?

Sub CountOccurrences2 (text As String, match As String) As Int
    Return text.Length - text.Replace(match, "").Length
End Sub

For a single character it should work.

 

[jojo12]

only choice

I appreciate

 

[Star-Dust]

And this?

Sub CountOccurrences2 (text As String, match As String) As Int
    Return text.Length - text.Replace(match, "").Length
End Sub

Small correction. In case you are looking for an expression and not a single character

Sub CountOccurrences3(text As String, match As String) As Int
      Return (text.Length - text.Replace(match, "").Length)/match.Length
End Sub

 

[LucaMs]

Small correction. In case you are looking for an expression and not a single character

Sub CountOccurrences3(text As String, match As String) As Int
      Return (text.Length - text.Replace(match, "").Length)/match.Length
End Sub

Write it in Snippets

 

[Mahares]

Can we carry this a little bit more by matching or not matching case:

Log(CountOccurrences4("B4X community knows B4x and B4XPages ", "B4X", True))

Sub CountOccurrences4(text As String, match As String, matchcsase As Boolean) As Int
    If matchcsase Then
        Return (text.Length - text.Replace(match, "").Length)/match.Length
    End If
    Return (text.Length - text.tolowercase.Replace(match.ToLowerCase, "").Length)/match.Length
End Sub