on buildTitle(originalText)

set normalizedText to my replace(originalText, ":", "-")

set finalTitle to my firstChars(normalizedText, 100)

return finalTitle

end buildTitle

on replace(originalText, fromText, toText)

set AppleScript's text item delimiters to the fromText

set the item_list to every text item of originalText

set AppleScript's text item delimiters to the toText

set originalText to the item_list as string

set AppleScript's text item delimiters to ""

return originalText

end replace

on firstChars(originalText, maxChars)

if length of originalText is less than maxChars then

return originalText

else

set limitedText to text 1 thru maxChars of originalText

return limitedText

end if

end firstChars

on writeToFile(filename, filecontents)

set the output to open for access file filename with write permission

set eof of the output to 0

write filecontents to the output starting at eof

close access the output

end writeToFile

tell application "Notes"

activate

display dialog "This is the export utility for Notes.app.

" & "Exactly " & (count of notes) & " notes are stored in the application. " & "Each one of them will be exported as a simple HTML file stored in a folder of your choice." with title "Notes Export" buttons {"Cancel", "Proceed"} cancel button "Cancel" default button "Proceed"

set exportFolder to choose folder

set counter to 0

repeat with each in every note

set noteName to name of each

set noteBody to body of each

set noteTitle to my buildTitle(noteName)

set counter to counter + 1

set filename to ((exportFolder as string) & counter & ". " & noteTitle & ".html")

my writeToFile(filename, noteBody as text)

end repeat

display alert "Notes Export" message "All notes were exported successfully." as informational