Red For Hopeless Programmers III
Tags: red, tutorial, crud, csv
Published: 2019-02-09 22:18:16

---
title: Red For Hopeless Programmers III
published: true
description: This is the 3rd part of the series Red for Hopeless Programmers.
tags: Red, tutorial, CRUD, CSV
---

Note: this is a draft, I haven't re-read it yet, if you pinpoint errors, don't hesitate to notify me ;)

## CRUD Database

This is the 3rd part of the series <a href='https://dev.to/lepinekong/red-for-hopeless-programmers---part-i-3g0'>Red for Hopeless Programmers.</a>
<br>If you haven't yet read them go for part I and part II though I try to make each tutorial understandable standalone for absolute beginner. 
<br>Firstable for non coders, CRUD is about operating on datas with these 4 operations: 
>Create Read Update Delete.

Datas can be simple "flat" records like your beloved CSV (Excel text format) file or they can be "nested" or hierarchical which is great for representing real word use cases. 
<br>So I'll split this tutorial into 2 sub-series with example on how to create a bookmark database.
<br> III.1 - Create a Bookmark database in CSV format (this article)
<br> III.2 - Create a Bookmark database in Readable Human Format (next article)


### C - Create

If it is the first record, the file may not even exist. In some programming languages you have to consider this as a special case, in Red, it's automatically created. So let's say you want to write to file:
>bookmarks.csv

Your code would be 


```

write/lines/append %bookmarks.csv line
    
```


>url;title;category;tags


for example
>line: {https://dev.to/lepinekong/Red-for-hopeless-programmers---part-ii-258;Red for hopeless programmers - Part II;Red;Csv,"Google Chart"}


you can execute these 2 instructions in console (just copy and paste if you're lazy):
![https://i.imgur.com/YrddyzL.png](https://i.imgur.com/YrddyzL.png)
                    
add an other record:
>line: {https://dev.to/lepinekong/Red-for-hopeless-programmers---part-i-3g0;Red for hopeless programmers - Part I;Red;GUI}


### R - Read

Read a line knowing the line index is easy:


```
lines/:index
```


but often you'll have to lookup a record. Let's say you want article "part II". 
You'll search the string "part II" in title's column which is second column and once found, you can thenget the index and afterwards the whole record.
<br>This means you'll first have to split each row into column to search second column like this:


```

foreach line lines [
    record: split line ";"
    ?? record
]        
    
```


![https://i.imgur.com/OOERaQw.png](https://i.imgur.com/OOERaQw.png)
                    
Let's now search on second column title:


```

index: 0
foreach line lines [
    index: index + 1
    record: split line ";"
    title: record/2
    if find title "part II" [
        print ["found at index" index]
    ]
]
```


When running in console, you should find index 1:
![https://i.imgur.com/RXQLeue.png](https://i.imgur.com/RXQLeue.png)
                    

### U - Update

to be able to update easily, you should first load the database into a block a lines with:


```
lines: read/lines %bookmarks.csv
```


![https://i.imgur.com/KM1MhQC.png](https://i.imgur.com/KM1MhQC.png)
                    
as you can see in above picture, to inspect the lines block, you can use
>?? lines

If you want to update a line index, it's the easiest path. Let's say you want to replace line 2 (line counts from index 1 and not 0 unlike arrays in many other languages.), you would write:


```
lines/2: update-value
```


but often you'll have to lookup a record and update it, we have already seen how above, so once record index is found, you can  update her 4th column (tags):


```

new-tag: {"Red","Google Chart","Stock Chart"}
index: 0
foreach line lines [
    index: index + 1
    record: split line ";"
    title: record/2
    if find title "part II" [
        print ["found at index" index]
        record/4: new-tag
        ?? record
    ]
] 
?? lines        
    
```


![https://i.imgur.com/Kborf9m.png](https://i.imgur.com/Kborf9m.png)
                    
if you inspect lines as seen in picture, you should realize something's wrong: it didn't update with updated record. record is independant from original lines. This is where non coders have some difficulties and prefer excel formulas! 
We'll need a future tutorial to see how to use another programming model to simulate the magic of excel. It's about Reactive programming which is more conceptual so I won't dare to deal with it right now. 
<br>So just admit for neow you have to recreate that line and update lines.
<br>So how do you recreate the line from record? First idea is you have concatenate each column with separator ";"


```

new-tag: {"Red","Google Chart","Stock Chart"}
index: 0
index-found: 0
foreach line lines [
    index: index + 1
    record: split line ";"
    title: record/2
    if find title "part II" [
        index-found: index
        print ["found at index" index-found]
        record/4: new-tag
        ?? record
        line: copy ""
        foreach column record [
            line: rejoin [line column ";"]
        ]
        ?? line
        lines/:index-found: line 
    ]
]

?? lines         
     
```


devil's in the details, you may have forgotten to remove the supplemental ";" for line when concatenating (yet another impediment non coders have to get accustomed to, I'm working on a solution in the future at  alleviating these pesky details for all but that's another story):
![https://i.imgur.com/atCQGET.png](https://i.imgur.com/atCQGET.png)
                    
so you have to add an instruction for doing just this using <a href='tail'>https://Redlang.Red/tail</a> function 
(read explanation there, I wrote that glossary terms to be able to refer to them so as not to interrupt the flow when writing tutorials):


```

new-tag: {"Red","Google Chart","Stock Chart"}
index: 0
index-found: 0
foreach line lines [
    index: index + 1
    record: split line ";"
    title: record/2
    if find title "part II" [
        index-found: index
        print ["found at index" index-found]
        record/4: new-tag
        ?? record
        line: copy ""
        foreach column record [
            line: rejoin [line column ";"]
        ]
        head remove back tail line
        ?? line
        lines/:index-found: line 
    ]
]

?? lines         
    
```


![https://i.imgur.com/gHNdqBq.png](https://i.imgur.com/gHNdqBq.png)
                    
Now things seem fine: updating is the hardest!
<br>Unfortunately you have not finished: lines is in memory but not saved on file. We'll see at the end after delete since delete also requires to save data from memory to file (called persistence operation). Fortunately it will be easy: you have seen the most difficult part already.

### D - Delete

For deleting you have to position the cursor to the record you want to delete and use remove function. 
<br>For example let's say, you added a record by mistake


```
write/lines/append %bookmarks.csv {https://dev.to/lepinekong/Red-for-hopeless-programmers---part-i-3g0;Red for Beginners Programmers;Red;Csv;CRUD}
```


to remove the last line, you have to first load the lines like already seen, then go to last line by skipping n - 1 lines:


```
lines: read/lines %bookmarks.csv
n: length? lines
lines: skip lines (n - 1)
remove lines
?? lines

```


![https://i.imgur.com/tI0AgTL.png](https://i.imgur.com/tI0AgTL.png)
                    
There seems to be a bug since ?? lines is [] but it's the way skip and remove commands work, after remove cursor is AFTER the end of lines so you have to use head to be able to inspect lines in console:


```
lines: head lines
?? lines
    
```


![https://i.imgur.com/b2Rvu0I.png](https://i.imgur.com/b2Rvu0I.png)
                    

### Persistence of block of lines to file

To persiste block of lines, you just do the symetric of read/lines which is write/lines:


```
write/lines %bookmarks.csv lines
```


![https://i.imgur.com/NapDP6a.png](https://i.imgur.com/NapDP6a.png)
                    
That's all Folks!
![https://vignette.wikia.nocookie.net/looneytunes/images/a/a4/THAT'SALLGIFS.gif/revision/latest/scale-to-width-down/260?cb=20160806162644](https://vignette.wikia.nocookie.net/looneytunes/images/a/a4/THAT'SALLGIFS.gif/revision/latest/scale-to-width-down/260?cb=20160806162644)
                    
>"Hey! not so fast..."

OK! I hear some of you who had followed <a href='https://dev.to/lepinekong/Red-for-hopeless-programmers---part-i-3g0'>Red.For.Hopeless.Programmers.I</a>:
>How to connect the database to the UI?!

It's not about CRUD per se so It's not part of the contract: you can do it yourself as good exercice 😊
>Grr!!!

OK binding GUI with data is not something trivial in any programming language even in Red. You can try to do it by yourself 
or wait for a next tutorial as I said on Reactive Programming (you can do without it's as hard as doing it in Visual Basic but I'm too lazy to do so as for me). 
But the concept is not yet clear even in my head, that's why I don't feel like explaining it for now.

### Relating links

- [Red for hopeless programmers - Part I | dev.to](https://dev.to/lepinekong/red-for-hopeless-programmers---part-i-3g0)
                        
- [Red for hopeless programmers - Part II | dev.to](https://dev.to/lepinekong/red-for-hopeless-programmers---part-ii-258)


<!--
Red []    
set to-word rejoin ["--" ">"] "creating-a-course-website loaded"    
do https://redlang.red/creating-a-course-website.red
-->