[REBOL] Re: Personal Programming and Rebol Promotion
From: nick1::musiclessonz::com at: 17-Dec-2007 10:11
Hi Alan,
I'm really glad to hear that the tutorial is helpful :)
On my phone, I run the core155.zip version, found at
http://rebol.com/platforms-core.html . It's a few years old, but
still runs on the phone I just bought. I use the following script to
back up all my important scheduling info for the shop, directly to the
storage card on the phone. It runs right on my data-connected window
mobile phone (and saves me at least an hour a week dealing with
scheduling hassles). I have several little scripts on the phone, and
a text menu in rebol.r that lets me choose if I want to run any of
them, every time I start rebol. I put the link to the Rebol
interpreter right in the Start menu on my phone, which provides very
quick access to all my little scripts :)
Rebol []
change-dir %/Storage Card/data
; this backs up and downloads just my schedule
write %schedule_old.txt read %schedule.txt
write %schedule.txt read http://www.mywebsite.com/schedule.txt
; this backs up and downloads the schedules of every teacher in
teacherlist.txt
teachers: load http://mywebsite.com/teacherlist.txt
foreach teacher teachers [
folder: first teacher
if exists? (to-file rejoin [folder ".txt"]) [
write (to-file rejoin [folder "_old.txt"]) read (to-file
rejoin [folder ".txt"])
print rejoin ["Old copy of " folder " backed up."]
]
write (to-file rejoin [folder ".txt"]) read (to-url rejoin
["http://www.mywebsite.com/" folder "/schedule.txt"])
print rejoin ["New download of " folder " saved."]
]
print "DONE"
Quoting Alan <fergus4-bellatlantic.net>:
