RosettaCodeData/Task/Regular-expressions/FutureBasic/regular-expressions.basic

21 lines
598 B
Plaintext

void local fn DoIt
CFStringRef string = @"I am a string"
CFStringRef fmt = @".*string$"
PredicateRef pred = fn PredicateWithFormat( @"SELF MATCHES %@", fmt )
if ( fn PredicateEvaluateWithObject( pred, string ) )
printf @"\"%@\" ends with \"string\"",string
end if
print
CFStringRef orig = @"I am the original string"
RegularExpressionRef regex = fn RegularExpressionWithPattern( @"original", 0, NULL )
CFStringRef result = fn RegularExpressionStringByReplacingMatches( regex, orig, 0, fn CFRangeMake(0,len(orig)), @"modified" )
print result
end fn
fn DoIt
HandleEvents