TALLY
<< Click to Display Table of Contents >> Navigation: ThinBASIC Core Language > BuiltIn Functions > String functions > TALLY |
Description
Count the number of occurrences of specified characters or strings within a string.
Syntax
n = TALLY(MainString, [ANY] MatchString)
Returns
Number
Parameters
Name |
Type |
Optional |
Meaning |
MainString |
String |
No |
Is the string expression in which to count characters |
MatchString |
String |
No |
If the ANY keyword is included, MatchString specifies a list of single characters to be searched for individually: a match on any one of which will cause the count to be incremented for each occurrence of that character. |
Remarks
Restrictions
See also
Examples
Thanks to Abraxas for the following script example
' Usage of Tally Keyword
Dim MainString As String VALUE "HELLO a bb cc WORLD"
Dim LowerAlpha(26) As Byte
Dim UpperAlpha(26) As Byte
Dim count As DWORD
Dim sMsg As String
sMsg = " Character Count" & $CRLF & $CRLF
sMsg += "CHAR" & $Tab & "UPPER" & $Tab & "LOWER" & $CRLF & $CRLF
'Count Characters and Display the counts
For count = 1 To 26
Loweralpha(count) = TALLY(MainString, Any chr$(count + 64)) ' 65 is ascii 'A'
Upperalpha(count) = TALLY(MainString, Any chr$(count + 96)) ' 97 is ascii 'a'
sMsg += CHR$(count + 64) & " & " & CHR$(count + 96) & $Tab
sMsg += " " & Loweralpha(count) & $Tab
sMsg += " " & Upperalpha(count) & $CRLF
Next
MSGBOX 0, sMsg