OpenEuphoria

REBOL-lion

• Posted by "Bruce M. Axtens" <bruce_axtens at SIL.ORG> Aug 16, 1999
• 580 views

Has anyone played with the REBOL language recently? Can anyone do the following
in Euphoria (without 'include'ing anything)?


REBOL [
    Title:   "Fetch the Cyclone watch report for Indian Ocean"
    Date:    24-Apr-1999
    File:    %cyclone.r
    Purpose: {
        Fetch an HTML doc from the net and save it as a file.
        uses parse to pull out only that text as needed.
}
]

outputFile: to-file "..\temp\cyclone.txt"

if error? try [ blk: read http://www.wunderground.com/tropical/ABIO10.html ] [
    save outputFile form reduce [ "No report for" now/date ]
    quit
    ]

parse blk [ thru "<pre>" copy text to "</pre>" to end ]

if error? try [ save outputFile text ] [
    save outputFile form reduce [ "No report for" now/date ]
    ]
quit


Bruce.

 ==========================================================================
Bruce M. Axtens       =====================================================
Macintosh/PC Support   ====================================================
Language Project.     =====================================================
 ==========================================================================