kerim

to searchReplace(thisText, searchTerm, replacement)
  set AppleScript's text item delimiters to searchTerm
	set thisText to thisText's text items
	set AppleScript's text item delimiters to replacement
	set thisText to "" & thisText
	set AppleScript's text item delimiters to {""}
	return thisText
end searchReplace

on write_to_file(this_data, target_file, append_data) -- (string, file path as string, boolean)