Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[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: