DEV Community

lepinekong
lepinekong

Posted on • Edited on

Red for hopeless programmers - Part II

In part I, we learned how to download historical quotes from Google Finance. In part II, we'll learn how to parse datas and html files to generate a Google Chart.

Simple parsing: split quotes lines

To parse a line separated by comma just use split function:

lines: read/lines %quotes.csv
line: lines/2; extract 2nd line (first line is header)
quote: split line ","
Enter fullscreen mode Exit fullscreen mode

For a full example the file you downloaded from Google Finance is in Csv format. If you want to process it for example to calculate the 20 moving average, you have to:

  1. Read the file line by line
    meanwhile you need to skip first line of titles

  2. Reverse the order of lines
    since the original lines are sorted by descending date
    so as to get the lines sorted by ascending date

  3. Parse each line of quote,
    by splitting each line by comma delimiter
    and store it into quotes variable

  4. You can then calculate the p=20 moving average (MA)
    by extracting close column
    and cumulate the value
    then divide by number of quotes cumulated

  5. Add MA to last column

  6. Optionally write back to another csv file

which will translate into Red code as (you can copy and paste the whole code into Red Console if you're too lazy):

; init quotes variable so as to store quotes 
quotes: []
; init cum variable so as to store cumulated value of close
cum: 0
; init n variable so as to divide the cumulated value by n
n: 0

; 1. Read the quotes file line by line
lines: read/lines %quotes.csv; -> ["Date,Open,High,Low,Close,Volume" "d1,o1,h1,l1,c1,v1" "d2,o2,h2,l2,c2,v2" ...]

; meanwhile you need to skip "Date,Open,High,Low,Close,Volume" on first line 
lines: skip lines 1

; 2. Reverse the order of lines
; so as to get the lines sorted by ascending date
lines: reverse lines

; 3. Parse each line of quote
foreach line lines [

    ; splitting each line by comma delimiter
    quote: split line ","; -> [date open high low close volume]

    ;For later use if needed convert string to float open high low close volume
    i: 2; starting at column 2 (skipping date column)
    foreach column skip quote 1 [; skip first date column 
      quote/:i: to-float quote/:i; quote:i refers to the ith column of quote
      i: i + 1
    ]

    ; store it into quotes variable
    append/only quotes quote; -> [[d1 o1 h1 l1 c1 v1] [d2 o2 h2 l2 c2 v2] ...]
    ;append adds quote while evaluating expressions inside the brackets, append/only will add quote literally with bracket

    ; 4. Calculate the p=20 moving average for each line
    p: 20
    close: (to-float quote/5); quote/5: close is the 5th column of quote
    cum: cum + close
    n: n + 1
    either (n < p) [
        ma: ""; no moving average
    ][
        ma: cum / n; moving average by dividing by number of quotes cumulated
    ]

    ;5. Add MA to last column
    append quotes/:n ma; :n refer to the nth line of quotes array
    ;-> [
        ;[d1 o1 h1 l1 c1 v1 ma1] 
        ;[d2 o2 h2 l2 c2 v2 ma2] ...
    ;]
]

Enter fullscreen mode Exit fullscreen mode

parse-quotes

Optionally to check quotes you can type this in Red console (to clear screen you can type Ctrl+L):

print n: length? quotes
print quotes/:n
probe quotes/:n; will keep the brackets and formats
write-clipboard mold quotes; mold format block to string

; to output csv files
write %quotes-ma0.csv ""
write %quotes-ma1.csv ""
write %quotes-ma2.csv ""
foreach quote quotes [
  write/lines/append %quotes-ma0.csv mold quote;
  quote: form quote
  write/lines/append %quotes-ma1.csv quote; space separator
  quote: replace/all quote " " "," ; replace space by comma separator
  write/lines/append %quotes-ma2.csv quote; comma separator
]

Enter fullscreen mode Exit fullscreen mode

Check-quotes

Complex parsing: parsing html file

Now let's say you want to show off your quotes with Google Candlestick Chart [https://developers.google.com/chart/interactive/docs/gallery/candlestickchart]

You need to replace the sample data within drawChart function below with your own data:

<html>
    <head>
      <script type="text/javascript" src="https://www.gstatic.com/charts/loader.js"></script>
      <script type="text/javascript">
        google.charts.load('current', {'packages':['corechart']});
        google.charts.setOnLoadCallback(drawChart);

    function drawChart() {
      var data = google.visualization.arrayToDataTable([
        ['Mon', 20, 28, 38, 45, 0],
        ['Tue', 31, 38, 55, 66, 0],
        ['Wed', 50, 55, 77, 80, 10],
        ['Thu', 77, 77, 66, 50, 10],
        ['Fri', 68, 66, 22, 15, 10]
        // Treat first row as data as well.
      ], true);

      var options = {
        legend:'none',
        series: {
            1: {
                type: 'line'
            }
    }    
      };

      var chart = new google.visualization.CandlestickChart(document.getElementById('chart_div'));

      chart.draw(data, options);
    }
      </script>
    </head>
    <body>
      <div id="chart_div" style="width: 100%; height: 500px;"></div>
    </body>
  </html>

Enter fullscreen mode Exit fullscreen mode

Steps are:

  1. Store the html content in a variable
  2. Search through string "var data = google.visualization.arrayToDataTable(["
  3. After string above, Search for string "// Treat first row as data as well."
  4. Remove sample data between the two strings
  5. Insert your data between the two strings

As preliminary, you need to prepare the data in json format by copying and pasting this code in Red Console:

;Prepare format quotes in json format required by Google Charts
json-quotes: {}
foreach quote quotes [
  remove back back tail quote; remove volume column 2nd column from tail of quote
  quote: mold quote; format block to string
  quote: replace/all quote " " ","; replace space separator with comma
  quote: replace/all quote {""} "null"; replace empty moving average with null value
  append json-quotes quote; append quote to json
  append json-quotes ","; append json comma separator between each quote
  append json-quotes newline; append json new line separator between each quote
]

Enter fullscreen mode Exit fullscreen mode

json-quotes

Afterwards copy the html template above to template.html.
You can then read and parse the html content using that rule:

;1. Store the html content in a variable
html-content: read %template.html

parse-rule: [

    ;2. Search through string "var data = google.visualization.arrayToDataTable(["
    thru {var data = google.visualization.arrayToDataTable([} start:

    ;3. Then search for string "// Treat first row as data as well."
    to {// Treat first row as data as well.} end:

    ; do not forget to enclose these actions between parenthesis
    ; or it won't work 
    (
      ;4. Remove sample data between the two strings
      change/part start "" end

      ;5. Insert your data between the two strings
      insert start json-quotes
    )

]

parse html-content parse-rule
write %chart.html html-content

Enter fullscreen mode Exit fullscreen mode

parse-html

If you run chart.html you should get this:

chart

Whole source code you can copy and paste in Red Console:


; init quotes variable so as to store quotes 
quotes: []
; init cum variable so as to store cumulated value of close
cum: 0
; init n variable so as to divide the cumulated value by n
n: 0

; 1. Read the quotes file line by line
lines: read/lines %quotes.csv; -> ["Date,Open,High,Low,Close,Volume" "d1,o1,h1,l1,c1,v1" "d2,o2,h2,l2,c2,v2" ...]

; meanwhile you need to skip "Date,Open,High,Low,Close,Volume" on first line 
lines: skip lines 1

; 2. Reverse the order of lines
; so as to get the lines sorted by ascending date
lines: reverse lines

; 3. Parse each line of quote
foreach line lines [

    ; splitting each line by comma delimiter
    quote: split line ","; -> [date open high low close volume]

    ;For later use if needed convert string to float open high low close volume
    i: 2; starting at column 2 (skipping date column)
    foreach column skip quote 1 [; skip first date column 
      quote/:i: to-float quote/:i; quote:i refers to the ith column of quote
      i: i + 1
    ]

    ; store it into quotes variable
    append/only quotes quote; -> [[d1 o1 h1 l1 c1 v1] [d2 o2 h2 l2 c2 v2] ...]
    ;append adds quote while evaluating expressions inside the brackets, append/only will add quote literally with bracket

    ; 4. Calculate the p=20 moving average for each line
    p: 20
    close: (to-float quote/5); quote/5: close is the 5th column of quote
    cum: cum + close
    n: n + 1
    either (n < p) [
        ma: ""; no moving average
    ][
        ma: cum / n; moving average by dividing by number of quotes cumulated
    ]

    ;5. Add MA to last column
    append quotes/:n ma; :n refer to the nth line of quotes array
    ;-> [
        ;[d1 o1 h1 l1 c1 v1 ma1] 
        ;[d2 o2 h2 l2 c2 v2 ma2] ...
    ;]
]


json-quotes: {}
foreach quote quotes [
  remove back back tail quote; remove volume column 2nd column from tail of quote
  quote: mold quote; format block to string
  quote: replace/all quote " " ","; replace space separator with comma
  quote: replace/all quote {""} "null"; replace empty moving average with null value
  append json-quotes quote; append quote to json
  append json-quotes ","; append json comma separator between each quote
  append json-quotes newline; append json new line separator between each quote
]


;1. Store the html content in a variable
html-content: read %template.html

parse-rule: [

    ;2. Search through string "var data = google.visualization.arrayToDataTable(["
    thru {var data = google.visualization.arrayToDataTable([} start:

    ;3. Then Search for string "// Treat first row as data as well."
    to {// Treat first row as data as well.} end:

    ; do not forget to enclose these actions between parenthesis
    ; or it won't work 
    (
      ;4. Remove sample data between the two strings
      change/part start "" end

      ;5. Insert your data between the two strings
      insert start json-quotes
    )

]

parse html-content parse-rule

write %chart.html html-content

Enter fullscreen mode Exit fullscreen mode

Top comments (12)

Collapse
 
godwinburby profile image
Godwin Burby

Waiting for part iii(crud script) and part iv (automation script)

Collapse
 
lepinekong profile image
lepinekong

Part III is being written. Should be published next week.

Collapse
 
hightechforms profile image
HighTechForms

Did part III ever get published? And part IV? :D

Thread Thread
 
lepinekong profile image
lepinekong

Hi sorry :) Yes I explained why I didn't do it medium.com/@lepinekong/readable-hu...

But would be able to do it in 2 weeks from now ;)

Thread Thread
 
hightechforms profile image
HighTechForms

That link takes me to a page that says "The author deleted this Medium story."

Are you going to publish any follow-ups?

Thread Thread
 
cloutiy profile image
yc
Thread Thread
 
lepinekong profile image
lepinekong

Oh my sorry I completely forgot, I'm busy on other stuffs :) there's a beginning above for part III as posted by yc, thanks.

Thread Thread
 
cloutiy profile image
yc • Edited

I hope you keep doing tutorials. They are really helpful. Looking at your code really helps to see how to do things "the red way", as opposed to trying to ramming your head against the wall trying to do things the (C, java, enter your current programming language here) way, but using Red.

You really do have to think differently.

btw, HumanRedable...brilliant piece of work. I especially like the "select selector" approach you use for generating. It's a brilliant way to approach it, vs parsing->tree-walking->code generating approach I certainly would have used.

Thread Thread
 
wiredferret profile image
Heidi Waterhouse

Thank you for the helpful comment and additional data!

Thread Thread
 
lepinekong profile image
lepinekong

yes I'll do more tutorials but later. Meanwhile you can also look at some red code snippets here mycodesnippets.space/redlang/ most are simple to understand.

Collapse
 
red_adi profile image
red-adi

For Yahoo data, I had to add three lines:

...
foreach line lines [

    ; splitting each line by comma delimiter
    quote: split line ","; -> [date open high low close volume]

    ;removes the 6th column (Adj Vol) from Yahoo data
    quote/6: copy quote/7
    take/last quote

    ;For later use if needed convert string to float open high low close volume
    i: 2; starting at column 2 (skipping date column)
    foreach column skip quote 1 [; skip first date column 
      quote/:i: to-float quote/:i; quote:i refers to the ith column of quote
      i: i + 1
    ]
...
Enter fullscreen mode Exit fullscreen mode
Collapse
 
ivobalbaert profile image
ibalbaert

Very nice!