[REBOL] Re: The all function.
From: louisaturk:eudoramail at: 15-Apr-2002 7:13
This was a great idea, and it seems to have solved my problem!
I changed the load-data function as follows:
load-data: has [data] [
if exists? db-file [
data: reduce load/all db-file
if data [
foreach item data [
item: make record item
repend database [join item/code item/chknum item] ; <==<<<
ONLY THIS LINE CHANGED.
database: make hash! database
Then, search for the unique record as follows:
rec: find database join code chknum
I tested it on several records, and it seems to work perfectly.
At 10:40 AM 4/15/2002 +0200, you wrote: