xkcd.com ripper

[shaosean]

I enjoy web comics and wanted to have the full archive of xkcd.com in my archive, so here is the script I used to grab the images.. Just thought I would share incase anyone else is interested in it as well..

Code: Select all

on mouseUp
   constant xkcd = "http://xkcd.com/"
   constant ImageUrlForHotLinking = "Image URL (for hotlinking/embedding): "
   
   local tData
   local tRemotePath
   local tLocalPath
   
   answer folder "Select a folder to save the images to:" as sheet
   if (it <> EMPTY) then
      put it into tLocalPath
      
      repeat with i = 1 to 1255
         put URL (xkcd & i & SLASH) into tData
         
         local tLineOffset
         put lineOffset(ImageUrlForHotLinking, tData) into tLineOffset
         put line tLineOffset of tData into tRemotePath
         replace ImageUrlForHotLinking with EMPTY in tRemotePath
         
         local tFileName
         set the itemDelimiter to SLASH
         put i & " - " & item -1 of tRemotePath into tFileName
         
         put URL tRemotePath into URL ("binfile:" & tLocalPath & SLASH & tFileName)
      end repeat
   end if
end mouseUp

[BvG]

or you could buy the books

[shaosean]

yeah, there is that option, but a hard drive takes up a certain amount of physical space regardless of the content on the drive, whereas physical books require an increasing amount of physical space as you acquire more, plus bringing along a collection of all the web comics I enjoy, is easier with a portable drive than 100 books

[BvG]

But.. you can't turn the page on your hard drive!

[shaosean]

I keep a piece of paper, folded in half, beside the laptop, so I simulate the thrilling experience of flipping pages, as well as getting the realistic battle action sounds associated with said action

[SparkOut]

How does it cope with #1190 Time?

[shaosean]

It grabbed the picture, but for the other fun stuff you still need to visit the website