_StringCount function

[sohfeyr 1]

StringInStr() is good for finding if and where one string occurs in another, but what if you want to know how many times the substring occurs?

These are two different functions that do the same thing. Both are very simple, but the contrast could be good for a tutorial or something. The second is more elegant, but the first would be easier to understand for someone who is new to AutoIt.

ConsoleWrite(_StringCount("123123412345","2") & @crlf)
ConsoleWrite(_StringCount2("123123412345","2") & @crlf)

Func _StringCount($myString, $SearchFor, $casesense=0) 
    Local $max = StringLen($myString)
    Local $len = StringLen($SearchFor)
    Local $count = 0
    
    If $casesense=0 Then
        $myString = StringUpper($myString)
        $SearchFor = StringUpper($SearchFor)
    EndIf
    
    For $x = 1 to $max-$len+1
        If StringMid($myString,$x,$len) = $SearchFor then
            $count += 1
        EndIf
    Next
    Return $count 
EndFunc

Func _StringCount2($myString, $SearchFor, $casesense=0)
    Local $count = 0
    While StringInStr ($myString, $SearchFor, $casesense, $count+1) > 0
        $count += 1
    WEnd
    Return $count
EndFunc

[/dev/null 1]

here's also an elegant way

Func _StringCount($myString, $SearchFor, $casesense=0) 
     local $text = StringReplace($myString, $SearchFor, "-",0,$casesense)
     return @extended
EndFunc

Almost direct from Help file of StringReplace().

Cheers

Kurt

Edited October 8, 2006 by /dev/null

[sohfeyr 1]

here's also an elegant way

Indeed, nice example!

Edited October 8, 2006 by sohfeyr

[Kickassjoe 1]

here's also an elegant way ph34r.gif

CODE: AutoIt

Func _StringCount($myString, $SearchFor, $casesense=0)

local $text = StringReplace($myString, $SearchFor, "-",0,$casesense)

return @extended

EndFunc

Almost direct from Help file of StringReplace().

Cheers

Kurt

That is exactly what I was thinking!