Count occurrences of a substring: Difference between revisions
Content added Content deleted
(Added Chipmunk Basic, GW-BASIC and MSX Basic) |
(Added Gambas) |
||
Line 1,496: | Line 1,496: | ||
</pre> |
</pre> |
||
=={{header|Gambas}}== |
|||
{{trans|FreeBASIC}} |
|||
<syntaxhighlight lang="vbnet">Public Sub Main() |
|||
Print countSubstring("the three truths", "th") |
|||
Print countSubstring("ababababab", "abab") |
|||
Print countSubString("zzzzzzzzzzzzzzz", "z") |
|||
End |
|||
Function countSubstring(s As String, search As String) As Integer |
|||
If s = "" Or search = "" Then Return 0 |
|||
Dim count As Integer = 0, length As Integer = Len(search) |
|||
For i As Integer = 1 To Len(s) |
|||
If Mid(s, i, length) = Search Then |
|||
count += 1 |
|||
i += length - 1 |
|||
End If |
|||
Next |
|||
Return count |
|||
End Function</syntaxhighlight> |
|||
{{out}} |
|||
<pre>Same as FreeBASIC entry.</pre> |
|||
=={{header|Go}}== |
=={{header|Go}}== |