Hello
Here is a script doing the trick.
I assume that you select all the site's page and copy them to the clipboard. Run the script. The result is a TAB delimited text in the clipboard.
--[SCRIPT] property LF : ASCII character 10 property sticky : ASCII character 202 property nbf : 12 on run set AppleScript's text item delimiters to "" -- for safe
set tt2 to the clipboard as text
set tt to (item 2 of my decoupe(tt2, ¬ "Overall Stats" & LF & sticky & LF & sticky & LF & ¬ "Batting" & LF & "Pitching" & LF)) as text
set tt to (item 1 of my decoupe(tt, ¬ LF & LF & LF & "Search: ")) as text
set ll to my decoupe(tt, LF) set nbl to (count of ll) div nbf set liste to {} repeat with i from 0 to nbl - 1 set j to i * nbf set rec to (my recolle(items (j + 1) thru ¬ (j + nbf) of ll, tab)) & return
copy rec to end of liste end repeat
set AppleScript's text item delimiters to "" set the clipboard to liste as text end run
-- +-+-+-+-+-+-+-+-+
on oteEspace(t) return my recolle(my decoupe(t, " "), "") end oteEspace
on decoupe(t, s) set AppleScript's text item delimiters to s return (text items of t) end decoupe
on recolle(l, s) set AppleScript's text item delimiters to s return (l as text) end recolle --[/SCRIPT]
Yvan KOENIG |