76 lines
1.7 KiB
Plaintext
76 lines
1.7 KiB
Plaintext
window 1, @"String matching", (0,0,650,360)
|
|
|
|
void local fn DoIt
|
|
CFStringRef s1, s2
|
|
CFRange range
|
|
|
|
s1 = @"alphabravocharlie"
|
|
s2 = @"alpha"
|
|
if ( fn StringHasPrefix( s1, s2 ) )
|
|
print @"\"";s1;@"\" starts with \"";s2;@"\""
|
|
else
|
|
print @"\"";s1;@"\" does not start with \"";s2;@"\""
|
|
end if
|
|
|
|
print
|
|
|
|
s2 = @"bravo"
|
|
if ( fn StringHasPrefix( s1, s2 ) )
|
|
print @"\"";s1;@"\" starts with \"";s2;@"\""
|
|
else
|
|
print @"\"";s1;@"\" does not start with \"";s2;@"\""
|
|
end if
|
|
|
|
print
|
|
|
|
range = fn StringRangeOfString( s1, s2 )
|
|
if ( range.location != NSNotFound )
|
|
print @"\"";s1;@"\" contains \"";s2;@"\" at location ";(range.location)
|
|
else
|
|
print @"\"";s1;@"\" does not contain \"";s2;@"\""
|
|
end if
|
|
|
|
print
|
|
|
|
s2 = @"delta"
|
|
range = fn StringRangeOfString( s1, s2 )
|
|
if ( range.location != NSNotFound )
|
|
print @"\"";s1;@"\" contains \"";s2;@"\" at location ";(range.location)
|
|
else
|
|
print @"\"";s1;@"\" does not contain \"";s2;@"\""
|
|
end if
|
|
|
|
print
|
|
|
|
s2 = @"charlie"
|
|
if ( fn StringHasSuffix( s1, s2 ) )
|
|
print @"\"";s1;@"\" ends with \"";s2;@"\""
|
|
else
|
|
print @"\"";s1;@"\" does not end with \"";s2;@"\""
|
|
end if
|
|
|
|
print
|
|
|
|
s2 = @"alpha"
|
|
if ( fn StringHasSuffix( s1, s2 ) )
|
|
print @"\"";s1;@"\" ends with \"";s2;@"\""
|
|
else
|
|
print @"\"";s1;@"\" does not end with \"";s2;@"\""
|
|
end if
|
|
|
|
print
|
|
|
|
s1 = @"alpha delta charlie delta echo delta futurebasic"
|
|
s2 = @"delta"
|
|
range = fn StringRangeOfString( s1, s2 )
|
|
while ( range.location != NSNotFound )
|
|
print @"\"";s1;@"\" contains \"";s2;@"\" at location ";(range.location)
|
|
range.location++
|
|
range = fn StringRangeOfStringWithOptionsInRange( s1, s2, 0, fn CFRangeMake( range.location, len(s1)-range.location ) )
|
|
wend
|
|
end fn
|
|
|
|
fn DoIt
|
|
|
|
HandleEvents
|