3. ps

Clear-Host
$karakter=Read-Host "Milyen karakterrel rajzoljak?"
$szoveg=Get-Content d:\minta.txt #elérési út

foreach ($sor in $szoveg)
{
    $i=0
    while ($i -lt $sor.Length)
    {
        switch ($sor[$i])
        {
            p {Write-Host -NoNewline -ForegroundColor Red $karakter}
            k {Write-Host -NoNewline -ForegroundColor DarkBlue $karakter}
            s {Write-Host -NoNewline -ForegroundColor Yellow $karakter}
            z {Write-Host -NoNewline -ForegroundColor DarkGreen $karakter}
        } #switch
        $i++
    } #while
    Write-Host
} #foreach