Facebook
From dsq, 2 Weeks ago, written in Plain Text.
This paste is a reply to Re: Re: sd from dsd - view diff
Embed
Download Paste or View Raw
Hits: 116
  1. $csvoct1 = Import-Csv "./oct1.csv" -Delimiter ';'
  2. $csvoct2 = Import-Csv "./oct2.csv" -Delimiter ';'
  3. $csvduree = Import-Csv "./duree.csv" -Delimiter ';'
  4. $sheet = Import-Csv "./sheet.csv" -Delimiter ';'
  5.  
  6. $oct1 = @{}
  7. foreach ($row in $csvoct1) {
  8.     $key = $row.note
  9.     $value = $row.frequence
  10.     $oct1[$key] = $value
  11. }
  12.  
  13. $oct2 = @{}
  14. foreach ($row in $csvoct2) {
  15.     $key = $row.note
  16.     $value = $row.frequence
  17.     $oct2[$key] = $value
  18. }
  19.  
  20. $duree = @{}
  21. foreach ($row in $csvduree) {
  22.     $key = $row.DureeNote
  23.     $value = $row.Valeur
  24.     $duree[$key] = $value
  25. }
  26.  
  27. foreach ($row in $sheet){
  28.     switch ($row.Octave) {
  29.         "1" { $oct = $oct1 }
  30.         "2" { $oct = $oct2 }
  31.         default { $oct = "pause" }
  32.     }
  33.     switch ($row.Note) {
  34.         "pause" { $note = "pause" }
  35.         default { $note = [int]$oct[$row.Note] }
  36.     }
  37.     switch ($row.Duree) {
  38.         "pause" { $length = $row.Duree }
  39.         default { $length = $duree[$row.Duree] }
  40.     }
  41.     switch ($note) {
  42.         "pause" { start-sleep -m $length*1000 }
  43.         Default {
  44.             Write-Host  "La note est $note et la durée est $length"
  45.             [System.Console]::beep($note, $length) }
  46.     }
  47. }