include "NSLog.incl"

local fn StripCommentsFromString( string as CFStringRef ) as CFStringRef
  CFRange range = fn StringRangeOfCharacterFromSet( string, fn CharacterSetWithCharactersInString( @"#;" ) )
  if ( range.location != NSNotFound )
    string = fn StringSubstringToIndex( string, range.location )
    string = fn StringByTrimmingCharactersInSet( string, fn CharacterSetWhitespaceSet )
  end if
end fn = string

NSLog(@"%@",fn StripCommentsFromString(@"apples, pears # and bananas"))
NSLog(@"%@",fn StripCommentsFromString(@"apples, pears ; and bananas"))

HandleEvents