Importing a list of URLs as bookmarks

DEVONthink
4

This script creates a bookmark for each line of the selected records.

If you’re dealing with a large number of URLs it might be that you have to set a delay inside the repeat loop in order to get bookmarks with proper names (not sure this is necessary, but I think after a script already added hundreds of bookmarks the last ones didn’t get a proper name anymore).

-- Create bookmarks from text

tell application id "DNtp"
	try
		if not (exists viewer window 1) then error "Please select a record"
		set theRecords to selection of viewer window 1
		if theRecords = {} then error "Nothing selected"
		
		set theGroup to display group selector "Create bookmarks in:"
		
		repeat with thisRecord in theRecords
			set theText to plain text of thisRecord
			set theURLs to paragraphs of theText
			repeat with thisURL in theURLs
				set thisURL to thisURL as string
				if thisURL ≠ "" then
					create record with {type:bookmark, URL:thisURL} in theGroup
					#delay 1
				end if
			end repeat
		end repeat
		
		open window for record theGroup
		activate
		
	on error error_message number error_number
		if the error_number is not -128 then display alert "DEVONthink" message error_message as warning
		return
	end try
end tell