fork download
copy 
  1. REBOL [title: "Parts"]
  2. write/append %data.txt ""
  3. database: load %data.txt
  4.  
  5. clear-values: func [ start ] [
  6. 	count: 0
  7. foreach fc gui/pane [
  8.  
  9. 	if ((fc/style = 'field) or (fc/style = 'area)) [
  10. 	count: count + 1
  11. 	if (count >= start) [clear-face fc]
  12. 		]
  13. 	]
  14. ]
  15. view center-face gui: layout [
  16.     text "Parts in Stock:"
  17.     name-list: text-list blue 400x100 data sort (extract database 4) [
  18.         if value = none [return]
  19.         marker: index? find database value
  20.         set-face n pick database marker
  21.         set-face a pick database (marker + 1)
  22.         set-face p pick database (marker + 2)
  23.         set-face o pick database (marker + 3)
  24.         show gui
  25.     ]
  26.     text "Part Name:"       n: field 400
  27.     text "Manufacturer:"    a: field 400
  28.     text "SKU:"      p: field 400
  29.     text "Notes:"      o: area  400x100
  30.     across
  31.     btn "Save" [
  32.         if n/text = "" [alert "You must enter a Part name." return]
  33.         if find (extract database 4) n/text [
  34.             either true = request "Overwrite existing record?" [
  35.                remove/part (find database n/text) 4
  36.             ] [
  37.                return
  38.             ]
  39.         ]
  40.         save %data.txt repend database [n/text a/text p/text o/text]
  41.         name-list/data: sort (extract copy database 4)
  42.         show name-list
  43.     ]
  44.     btn "Delete" [
  45.         if true = request rejoin ["Delete " n/text "?"] [
  46.             remove/part (find database n/text) 4
  47.             save %data.txt database
  48.             do-face clear-button 1
  49.             name-list/data: sort (extract copy database 4)
  50.             show name-list
  51.         ]
  52.     ]
  53.     clear-button: btn "New" [
  54.         clear-values 1
  55.         show gui
  56.     ]
  57. ]
Runtime error #stdin #stdout #stderr 0.01s 7404KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
prog.rb:2: unknown type of %string
write/append %data.txt ""
                ^
https://ideone.com/HSsN3A
language:
Ruby (ruby 2.5.5)
created:
11 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!