15 lines
579 B
Plaintext
15 lines
579 B
Plaintext
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
|