on run webText 
	-- Text aus der offenen WebsSeite aufnehmen 
	tell application "Safari" to activate 
	 
	menu_click({"Safari", "Bearbeiten", "Alles auswählen"}) 
	menu_click({"Safari", "Bearbeiten", "Kopieren"}) 
 
	set webText to (the clipboard) as Unicode text 
	return webText as text 
end run 

-- dieses Skript benutzt das Skriptmodul set_clipboard.scpt 
 
-- über den Eigenpfad dieses Skripts werden die benötigten Pfade ermittelt 
activate 
set ownPath to path to as string 
 
set AppleScript's text item delimiters to ":" 
set folderPath to (text items 1 thru -2 of ownPath) as string 
-- der eigentliche Skriptinhalt ist ausgelagert: 
set ascrFile to folderPath & ":" & "set_clipboard.scpt" 
set AppleScript's text item delimiters to "" 
 
set ascr to load script file ascrFile 
set webText to (run script ascr) 
(* 
-- um das Ergebnis nach dem ersten Durchlauf zu testen 
tell application "BBEdit" 
	activate 
	set contents of document 1 to webText 
end tell 
delay 5 
*) 
set webText to (run script ascr) 
 
tell application "BBEdit" 
	activate 
	set contents of document 1 to webText 
end tell