[ALLY] Retroweb
[1/2] from: gchiu::compkarori::co::nz at: 16-Apr-2001 10:01
I was wondering how useful it would be to try Rebol's VID
for browsing purposes to communicate with a web server.
I modified my home page to contain some VID, and the
following displays it.
To be useful, what I really require is a VID table superior
to html tables, that allows me to manipulate large amounts
of data - eg sort on columns, search on columns etc without
downloading the data each time. A reblet as it were. Is such
a beast available or in the making??
REBOL [
Title: "Rebol VID Browser"
Date: [ 15-April-2001 ]
Version: .2
Author: "Graham Chiu"
Rights: "Copyright G Chiu 2001"
File: %rbrowser.r
Notes: {
reads layout code from a web page and displays it
}
]
testurl: http://203.79.82.38
currenturl: copy ""
text: copy ""
layout-code: [
copy laycode [ "<layout>" to "</layout>" ] (append
text laycode) |
skip
]
rbrowse: func [
{ browses web pages marked up in Rebol VID }
rurl [url!]
/local targetpage
] [
text: copy ""
targetpage: read rurl
parse targetpage [ to "<!--" some layout-code ]
replace/all text <layout> ""
either empty? text
[ view layout [ size 800x600
at 200x250
vh2 join form rurl " does not contain VID
source"
at 200x300
button "back" [ rbrowse currenturl ]
]
]
[ currenturl: rurl
view layout load text
]
]
rbrowse testurl
--
Graham Chiu
[2/2] from: gchiu:compkarori at: 16-Apr-2001 10:33
> I modified my home page to contain some VID, and the
> following displays it.
Forgot to mention that the only "dynamic" part of the page
is the date stamp which is generated by the web server, and
so is in local New Zealand time.
--
Graham Chiu