Source code in the futurebasic programming language

include "NSLog.incl"

void local fn GloballyCreateAndReplaceFileText
  NSUInteger                i
  CFURLRef                url
  CFMutableArrayRef    mutURL = fn MutableArrayNew
  CFArrayRef        fileNames = @[@"file1", @"file2", @"file3"]
  CFStringRef  fileContentStr
  CFStringRef    originalText = @"Goodbye London!"
  CFStringRef replacementText = @"Hello New York!"
  
  for i = 0 to len(fileNames) - 1
    CFURLRef desktopURL = fn FileManagerURLForDirectory( NSDesktopDirectory, NSUserDomainMask )
    url = fn URLByAppendingPathComponent( desktopURL, fileNames[i] )
    url = fn URLByAppendingPathExtension( url, @"txt" )
    CFStringRef fullText = fn StringWithFormat( @"%@ What an interesting city.", originalText )
    fn StringWriteToURL( fullText, url, YES, NSUTF8StringEncoding, NULL )
    MutableArrayAddObject( mutURL, url )
  next
  
  NSLog( @"Original text:" )
  for i = 0 to len(mutURL) - 1
    fileContentStr = fn StringWithContentsOfURL( mutURL[i], NSUTF8StringEncoding, NULL )
    NSLog( @"Contents at: %@ = %@", fn URLPath( mutURL[i] ), fileContentStr )
    CFStringRef modifiedText = fn StringByReplacingOccurrencesOfString( fileContentStr, originalText, replacementText )
    fn StringWriteToURL( modifiedText, mutURL[i], YES, NSUTF8StringEncoding, NULL )
  next
  NSLog( @"\nReplacement text:" )
  for i = 0 to len(mutURL) - 1
    fileContentStr = fn StringWithContentsOfURL( mutURL[i], NSUTF8StringEncoding, NULL )
    NSLog( @"Contents at: %@ = %@", fn URLPath( mutURL[i] ), fileContentStr )
  next
end fn

fn GloballyCreateAndReplaceFileText

HandleEvents