szamrend03_vegleges

$bemenet = "FHSSSHFSS" > FAT.dat
$text = Get-Content FAT.dat

switch ($args[0])
{

    -lista
    {
        Write-Host $text
    }

    -szabad
    {

        $counter = 0

        for($i = 0; $i -lt $text.Length; $i++)
        {
            if($text[$i] -eq 'S')
            {
                $counter = $counter + 1
            }
        }

        Write-Host $counter szabad blokk van.
    }

    -max
    {
        $counter = 0
        $top = 0
        for($i = 0; $i -lt $text.Length; $i++)
        {

            if ($text[$i] -eq 'S')
            {
                $counter = $counter + 1
            }
            else
            {
                $counter = 0
            }

            if ($top -lt $counter)
            {
                $top = $counter
            }
        }
        Write-Host Leghosszabb összefüggő szabad blokksorozat: $top
    }

    -foglal
    {
        $foglaltblokk = $args[1]
        $counter = 0
        $top = 0
        $meret = 0;

        for($i = 0; $i -lt $text.Length; $i++)
        {

            if ($text[$i] -eq 'S')
            {
                $counter = $counter + 1
            }
            else
            {
                $counter = 0
            }

            if ($top -lt $counter)
            {
                $top = $counter
            }
        }


        if ($top -ge $foglaltblokk)
        {
                 $index = 0
                 for($i = 0; $i -lt $text.Length; $i++)
                 {
                    if ($text[$i] -eq 'S')
                    {
                        $meret = $meret + 1
                    }
                    else
                    {
                        $meret = 0
                    }
                    $index = $i

                    if($meret -eq $foglaltblokk){break}
                 }

                 $text = [char[]]$text
                 for($j = ($index - $meret + 1) ; $j -lt ($index - $meret + 1 + $foglaltblokk) ; $j++)
                 {
                    $text[$j] = 'F'
                 }

                 -join $text
        }

        else
        {
            Write-Host Nincs ilyen méretű szabad blokk!
        }

    }

    default
    {
        Write-host Nem létezik kapcsoló!
    }

}