How to count number of occurrences in string

[leuce]

G'day everyone

I have a string like this:

one[two[[three[four five] six[ seven[

and I want to count the number of "[" in that string. Is there a simple way to do it? I can use StringSplit and count the items but I'm hoping for something even simpler.

So I just need to count the number of occurrences of a short string (actually, just one character) in a longer string.

Thanks

Samuel

[AdmiralAlkex]

StringReplace() can also count for you, amount of replacements is in @extended, see helpfile.

Example:

Local $sText = "one[two[[three[four five] six[ seven["
StringReplace($sText, "[", "whatever")
MsgBox(0, "", @extended & " occurrences")

[BrewManNH]

You can do it this way.

$String = "one[two[[three[four five] six[ seven["

$String = StringReplace($String, "[", "[")
MsgBox(0, "", "Number found = " & @Extended)

[leuce]

Thanks for both your answers -- this helps very nicely.

Samuel

[Faalamva]

I have another solution, not simple but it's a one-liner...

Basically, the idea consists in using a regexp to remove all characters from the string, except the one you're counting, and then get the resulting string length.

; Count the number of x (x is NOT a special character for regexp)
$CountNormal = StringLen(StringRegExpReplace($YourString, "[^x]*", ""))

; Count the number of x ("[" IS a special character for regexp and needs to be backslashed)
$CountSpecial = StringLen(StringRegExpReplace($YourString, "[^\[]*", ""))

Edited September 29, 2013 by Faalamva

[guinness]

That's not very efficient as @extended returns the number of occurrences. Reducing lines doesn't make the code simpler in my humble opinion.

[mannworks00]

On 9/29/2013 at 3:49 PM, guinness said:

That's not very efficient as @extended returns the number of occurrences. Reducing lines doesn't make the code simpler in my humble opinion.

 

On 6/27/2012 at 10:50 AM, leuce said:

This isn't pretty, and it's a decade later, but Regex in my experience is much faster. https://www.autoitscript.com/autoit3/docs/functions/StringRegExp.htm

$file = "one[two[[three[four five] six[ seven["
Local $matches = StringRegExp($file, "\[", 3) ;<- tries to return an array of matches or @error code 0 if array is invalid, @error code 1 if invalid or no matches.
local $count = IsArray($matches) ? UBound($matches) : 0
ConsoleWrite(@CR&"Number of Brackets: "&$count&@CR)

 

 

Edited February 21, 2023 by mannworks00

[Jos]

@mannworks00, Care to share the point of resurrecting a 9 years old thread with 2 quotes?

Edited February 21, 2023 by Jos