[REBOL] Re: The all function.

From: louisaturk:eudoramail at: 15-Apr-2002 7:13

Ingo,

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
         clear database
         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.

Many thanks!
Louis

At 10:40 AM 4/15/2002 +0200, you wrote:

1 · 2 · 3 · 4 · 5 ... 12 · 13 · [14] · 15 · 16 · 17 · 18 · See whole thread