[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 ]