AppleScript: find/replace function

AppleScript stellt von Haus aus leider keine find/replace-Funktion für Strings bereit (oder zumindest habe ich diese noch nicht entdeckt). Eine Möglichkeit dazu bietet folgende Funktion:

on findReplace(findText, replaceText, sourceText)
	set ASTID to AppleScript's text item delimiters
	set AppleScript's text item delimiters to findText
	set sourceText to text items of sourceText
	set AppleScript's text item delimiters to replaceText
	set sourceText to "" & sourceText
	set AppleScript's text item delimiters to ASTID
	return sourceText
end findReplace

Verwendet wird diese wie im folgendem Beispiel:

set myReplacedText to findReplace("a", "U", "auuuuh")
display dialog myReplacedText
-- die Ausgabe zeigt "Uuuuuh"