Facebook
From dsq, 4 Weeks ago, written in Plain Text.
This paste is a reply to Re: Re: sd from dsd - go back
Embed
Viewing differences between Re: Re: sd and Re: Re: Re: sd
$csvoct1 = Import-Csv "."./oct1.csv" csv" -Delimiter ';'
';'
$csvoct2 = Import-Csv "."./oct2.csv" csv" -Delimiter ';'
';'
$csvduree = Import-Csv "."./duree.csv" csv" -Delimiter ';'
';'
$sheet = Import-Csv "."./sheet.csv" csv" -Delimiter ';'

';'

$oct1 = @{}
foreach ($row in $csvoct1) {
    $key = $row.note
    $value = $row.frequence
    $oct1[$key] = $value
}

$oct2 = @{}
foreach ($row in $csvoct2) {
    $key = $row.note
    $value = $row.frequence
    $oct2[$key] = $value
}

$duree = @{}
foreach ($row in $csvduree) {
    $key = $row.DureeNote
    $value = $row.Valeur
    $duree[$key] = $value
}

foreach ($row in $sheet){
    switch ($row.Octave) {
        "1" "1" { $oct = $oct1 }
        "2" "2" { $oct = $oct2 }
        default { $oct = "pause" "pause" }
    }
    switch ($row.Note) {
        "pause" "pause" { $note = "pause" "pause" }
        default { $note = [int]$oct[$row.Note] }
    }
    switch ($row.Duree) {
        "pause" "pause" { $length = $row.Duree }
        default { $length = $duree[$row.Duree] }
    }
    switch ($note) {
        "pause" "pause" { start-sleep -m $length*1000 }
        Default {
            Write-Host  "La "La note est $note et la durée est $length"
$length"
            [System.Console]::beep($note, $length) }
    }
}