Simple database: Difference between revisions

m
(Dialects of BASIC moved to the BASIC section.)
m (→‎{{header|Wren}}: Minor tidy)
Line 5,263:
{{libheader|Wren-str}}
Note that since Wren CLI currently has no way of determining the current date/time, a date needs to be input for each item to be added.
<syntaxhighlight lang="ecmascriptwren">/* simdbSimple_database.wren */
 
import "os" for Process
import "./ioutil" for File, FileFlags, FileUtil
import "./trait" for Comparable
import "./iterate" for Reversed
import "./date" for Date
import "./sort" for Sort
import "./str" for Str
 
var fileName = "simdbSimple_database.csv"
 
Date.default = Date.isoDate
Line 5,296:
System.print("""
Usage:
wren simdbSimple_database.wren cmd [categoryName]
add add item name and date, followed by optional category
latest print item with latest date, followed by optional category
Line 5,387:
Sample session:
<pre>
$ wren simdbSimple_database.wren add item1 2021-03-01
$ wren simdbSimple_database.wren add item2 2021-04-01
$ wren simdbSimple_database.wren add item3 2021-05-01 cat3
$ wren simdbSimple_database.wren add item4 2021-06-01 cat3
$ wren simdbSimple_database.wren add item5 2021-07-01 cat3
$ wren simdbSimple_database.wren latest
item5, 2021-07-01, cat3
$ wren simdbSimple_database.wren latest none
item2, 2021-04-01, none
$ wren simdbSimple_database.wren latest cat4
There are no items for category 'cat4'.
$ wren simdbSimple_database.wren all
item1, 2021-03-01, none
item2, 2021-04-01, none
Line 5,409:
{{libheader|Wren-table}}
The above module provides a more generic way to create simple databases and was not available when the first version was written.
<syntaxhighlight lang="ecmascriptwren">import "os" for Process
import "./table" for Table, FieldInfo, File
import "./str" for Str
Line 5,416:
System.print("""
Usage:
wren simdbSimple_database.wren cmd [categoryName]
add add item name and date, followed by optional category
latest print item with latest date, followed by optional category
Line 5,452:
 
// create a new Table object
var tableName = "simdbSimple_database"
var table
if (Table.fileExists(tableName)) {
Line 5,480:
{{out}}
<pre>
$ wren simdbSimple_database.wren add item1 2021-03-01
$ wren simdbSimple_database.wren add item2 2021-04-01
$ wren simdbSimple_database.wren add item3 2021-05-01 cat3
$ wren simdbSimple_database.wren add item4 2021-06-01 cat3
$ wren simdbSimple_database.wren add item5 2021-07-01 cat3
$ wren simdbSimple_database.wren latest
[item5, 2021-07-01, cat3]
$ wren simdbSimple_database.wren latest none
[item2, 2021-04-01, none]
$ wren simdbSimple_database.wren latest cat4
There are no records for category 'cat4'.
$ wren simdbSimple_database.wren all
Records in 'simdbSimple_database' table:
 
name date category
Line 5,500:
item3 2021-05-01 cat3
item4 2021-06-01 cat3
item5 2021-07-01 cat3
</pre>
9,476

edits