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