9 lines
300 B
Text
9 lines
300 B
Text
window 1
|
|
|
|
local fn CountSubstring( string as CFStringRef, substring as CFStringRef ) as long
|
|
end fn = fn ArrayCount( fn StringComponentsSeparatedByString( string, substring ) ) - 1
|
|
|
|
print fn CountSubstring( @"the three truths", @"th" )
|
|
print fn CountSubstring( @"ababababab", @"abab" )
|
|
|
|
HandleEvents
|