Make plain text

is there a way to extract plain text from rtfd files, then save them to files, with each files name being the firs line of its contents? text edit dictionary doesn’t seem to have anything…

Try something like this, LobsterMan:

set f to choose file
set n to (info for f)'s name
if n does not end with ".rtfd" then error "Not a RTFD file."
set t to choose file name with prompt "Save text as:" default name n's text 1 thru -5 & "txt"
tell application "TextEdit"
	open f
	tell document 1
		set c to n & return & its text
	end tell
end tell
set d to open for access t with write permission
set eof d to 0
write c to d as string
close access d