Export an entire Folder in Apple Notes to a single text file via TextEdit

Notes_Export.scpt

tell application "TextEdit"
	activate
	make new document
end tell


tell application "Notes"
	if folder "Stuff" exists then
		set output to ""
		repeat with aNote in notes in folder "Stuff"
			set rawText to "----------\n"
			set rawText to rawText & (name of aNote as string) & "\n"
			set rawText to rawText & "----------\n"
			set rawText to rawText & (name of aNote as string) & "\n"
			set rawText to rawText & (body of aNote as string) & "\n\n"
			set inTag to false
			set scrubbedText to ""
			repeat with i from 1 to length of rawText
				set rawChar to character i of rawText
				if rawChar is "<" then
					set inTag to true
				else if rawChar is ">" then
					set inTag to false
				else if inTag is false then
					set scrubbedText to scrubbedText & rawChar as string
				end if
			end repeat
			
			tell application "TextEdit"
				activate
				set oldText to text of document 1
				set text of document 1 to oldText & scrubbedText
			end tell
			
		end repeat
	else
		display dialog "Nope. No folder..."
	end if
end tell