VoodooPad: Collect Prefixed Lines

Version: 7

Make sure to check out the new wiki located at http://flyingmeat.com/wikka/. This one will eventually be retired.

Collect Prefixed Lines.

tell application "VoodooPad"
	set linePrefix to text returned of (display dialog "What prefix should I look for when gathering lines?" default answer "TODO: ")
	set foundItems to {}
	repeat with myPage in pages of document 1
		set pageParagraphs to paragraphs of text of myPage
		repeat with myParagraph in pageParagraphs
			set lineText to myParagraph as text
			
			set AppleScript's text item delimiters to the linePrefix
			set linePieces to every text item of lineText
			if (count of linePieces) is greater than 1 then
				set foundItem to the last item of linePieces
				set the end of foundItems to "From " & (display name of myPage) & ": " & foundItem
			end if
		end repeat
	end repeat
	
	set AppleScript's text item delimiters to return
	set the clipboard to foundItems as string
	
	display alert "Finished" message "You may now paste the collected lines into any page."
end tell

Submitted by chiznibitz at yahoo