Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[REBOL] Re: Downloading patents?

From: bpaddock:csonline at: 1-Sep-2001 9:32

On Saturday 01 September 2001 03:31 am, Anton wrote:
> Now, it's up to you to stick it all together into a nice > program. :)
Just working out the looping through all of the pages parts, this is what I came up with. Gets the max page count and simply prints the page number at this point. I expect it is more complex than it needs to be since this is my first real Rebol program, how do I do better?: Watch for line wrapping in the URL: line. REBOL [ Title: "Get Patent, looping test" Date: 31-Aug-2001/06:39:00:00-4:00 ] url: http://l2.espacenet.com/dips/bnsviewnav?CY=gb&LG=en&DB=EPD&PN=US4215330&ID=US+++4215330A1+I+ page: read url LastPage: second parse copy/part find page "TOTPG=" 10 "=&" print LastPage repeat CurrentPageNumber to-integer LastPage [ print CurrentPageNumber ]