SHARE
TWEET

szamrend03_vegleges

faragocsabi Dec 9th, 2018 50 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. $bemenet = "FHSSSHFSS" > FAT.dat
  2. $text = Get-Content FAT.dat
  3.  
  4. switch ($args[0])
  5. {
  6.  
  7.     -lista
  8.     {
  9.         Write-Host $text
  10.     }
  11.    
  12.     -szabad
  13.     {
  14.        
  15.         $counter = 0
  16.  
  17.         for($i = 0; $i -lt $text.Length; $i++)
  18.         {
  19.             if($text[$i] -eq 'S')
  20.             {
  21.                 $counter = $counter + 1
  22.             }
  23.         }
  24.  
  25.         Write-Host $counter szabad blokk van.
  26.     }
  27.  
  28.     -max
  29.     {
  30.         $counter = 0
  31.         $top = 0
  32.         for($i = 0; $i -lt $text.Length; $i++)
  33.         {
  34.        
  35.             if ($text[$i] -eq 'S')
  36.             {
  37.                 $counter = $counter + 1
  38.             }
  39.             else
  40.             {
  41.                 $counter = 0
  42.             }
  43.            
  44.             if ($top -lt $counter)
  45.             {
  46.                 $top = $counter
  47.             }
  48.         }
  49.         Write-Host Leghosszabb összefüggő szabad blokksorozat: $top
  50.     }
  51.  
  52.     -foglal
  53.     {
  54.         $foglaltblokk = $args[1]
  55.         $counter = 0
  56.         $top = 0
  57.         $meret = 0;
  58.  
  59.         for($i = 0; $i -lt $text.Length; $i++)
  60.         {
  61.        
  62.             if ($text[$i] -eq 'S')
  63.             {
  64.                 $counter = $counter + 1
  65.             }
  66.             else
  67.             {
  68.                 $counter = 0
  69.             }
  70.            
  71.             if ($top -lt $counter)
  72.             {
  73.                 $top = $counter
  74.             }
  75.         }
  76.  
  77.  
  78.         if ($top -ge $foglaltblokk)
  79.         {
  80.                  $index = 0
  81.                  for($i = 0; $i -lt $text.Length; $i++)
  82.                  {
  83.                     if ($text[$i] -eq 'S')
  84.                     {
  85.                         $meret = $meret + 1  
  86.                     }
  87.                     else
  88.                     {
  89.                         $meret = 0
  90.                     }
  91.                     $index = $i
  92.  
  93.                     if($meret -eq $foglaltblokk){break}
  94.                  }
  95.  
  96.                  $text = [char[]]$text
  97.                  for($j = ($index - $meret + 1) ; $j -lt ($index - $meret + 1 + $foglaltblokk) ; $j++)
  98.                  {
  99.                     $text[$j] = 'F'
  100.                  }
  101.  
  102.                  -join $text
  103.         }
  104.            
  105.         else
  106.         {
  107.             Write-Host Nincs ilyen méretű szabad blokk!
  108.         }
  109.  
  110.     }
  111.  
  112.     default
  113.     {
  114.         Write-host Nem létezik kapcsoló!
  115.     }
  116.  
  117. }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top