(* AbsatzWorte.txt 
Adobe 
Apple 
Dymo 
Microsoft 
Häuschen 
Mäuschen 
Straße 
@mail 
*) 
 
set absFile to "Macintosh HD:Users:michael:Desktop:AbsatzWorte.txt" 
 
-- Einlesen der Datei Absatzweise 
set absInhalt to read file absFile 
 
-- schreiben des Inhaltes in eine Liste 
set absListe to every paragraph of absInhalt 
 
-- Stichwort hinzufügen 
set neueDatensatz to "Das ist ein neuer Datensatz" 
 
-- Datensat anfügen 
set end of absListe to neueDatensatz 
 
absListe 
 
set newFile to open for access file ((path to desktop as text) & "neueAbsatzWorte.txt") with write permission 
 
(* Herauskommen soll eine Liste Absatzorientiert 
Adobe 
Apple 
Dymo 
Microsoft 
Häuschen 
Mäuschen 
Straße 
@mail 
Das ist ein neuer Datensatz 
*) 

on writeLogDatei(theLogString, logFile, overwriteVar) 
	set theLogString to theLogString as string 
	try 
		close access file logFile 
	end try 
	set tmpLogdatei to (open for access file logFile with write permission) 
	if overwriteVar = true then set eof of tmpLogdatei to 0 
	write theLogString starting at eof to tmpLogdatei 
	close access tmpLogdatei 
end writeLogDatei 

set my text item delimiters to return 
set absListe to absListe as string 
set my text item delimiters to ""