Try running this script (you can change the artist if you want):
set artist to "korn"
set artist to my clean_seek_string(artist)
do shell script "curl [url=http://www.seeklyrics.com/lyrics/]http://www.seeklyrics.com/lyrics/"[/url] & artist & "/"
set seekcurled to every paragraph of result
if item 140 of seekcurled is not " <p>Data cannot be found.</p>" then
repeat until item 1 of seekcurled contains "!-- SONGS START --"
set seekcurled to rest of seekcurled
end repeat
set seekcurled to rest of rest of rest of rest of seekcurled
set seekcurled to reverse of seekcurled
repeat until item 1 of seekcurled contains "click here to view all lyrics"
set seekcurled to rest of seekcurled
end repeat
set seekcurled to rest of rest of rest of seekcurled
set seekcurled to reverse of seekcurled
set seekcurled to my list_to_string(seekcurled, return)
set seekcurled to my snr(seekcurled, "tr", "")
set seekcurled to my snr(seekcurled, "TR", "")
set seekcurled to my snr(seekcurled, "</a>", "")
set seekcurled to my snr(seekcurled, "<", "")
set seekcurled to my snr(seekcurled, ">", "")
set seekcurled to my snr(seekcurled, "=", "")
set seekcurled to my snr(seekcurled, "a href", "")
set seekcurled to my snr(seekcurled, artist, "")
set seekcurled to my snr(seekcurled, "\"", "")
set seekcurled to my snr(seekcurled, "classtext bgcolorwhite -", "")
set seekcurled to my snr(seekcurled, "lyrics", "")
set seekcurled to my snr(seekcurled, ".html", "")
set seekcurled to my snr(seekcurled, "/", "")
set seekcurled to my snr(seekcurled, "classtlink", "")
set seekcurled to my snr(seekcurled, "TD", "")
set seekcurled to my snr(seekcurled, "td", "")
set seekcurled to my snr(seekcurled, "title", "")
set seekcurled to my snr(seekcurled, "classtext", "")
set seekcurled to my snr(seekcurled, "TH bgcolor#aabbbb colspan2 alignleftb stylecolor:whiteTop 30 bTH", "")
return seekcurled
else
return "error"
end if
on list_to_string(the_list, the_delim)
tell (a reference to my text item delimiters)
set {old_tid, contents} to {contents, the_delim}
set {the_list, contents} to {"" & the_list, old_tid}
end tell
end list_to_string
on snr(the_string, search_string, replace_string)
tell (a reference to my text item delimiters)
set {old_tid, contents} to {contents, search_string}
set {the_string, contents} to {the_string's text items, replace_string}
set {the_string, contents} to {"" & the_string, old_tid}
end tell
return the_string as Unicode text
end snr
on clean_seek_string(the_string)
set search_strings to (" '/.()&-")'s characters
repeat with i from 1 to (count search_strings)
set the_string to my snr(the_string, item i of search_strings, "-")
end repeat
return the_string
end clean_seek_string
How do I remove the 1st and 3rd copies of each song name and make it into a list (ex: {song1,song2,song3…})?
And if possible - assign them to a combo box?