Как в PS перемещаться стрелками?

Question

[NewDevLab]

Хочу сделать интерактивный скрипт - меню, который кроме 1...N принимает еще другое управление с клавы типа стрелок и т.д. для перемещения по меню. Есть ли что подобное?

Comments

[NewDevLab]

или вспоминать консоль C64, cls и всё такое....

[сергей кузьмин]

NewDevLab пишите сразу на c# чего уж

[NewDevLab]

сергей кузьмин, хочу нормально консолью научиться пользоваться в связи с Net Core и PowerShell Core. типа кроссплатформ и всё такое. просто спросил, может кто делал. типа какая там абстракция и куда копать по теме.

[сергей кузьмин]

NewDevLab элементарные программыконвертируются без труда

https://docs.microsoft.com/en-us/dotnet/api/system...

конверт

# based on examples from https://docs.microsoft.com/en-us/dotnet/api/system.consolekey?view=netframework-4.5
function WriteAt {
  param(
    [string] $s,
    [int] $x,
    [int] $y
  )
  [System.Console]::SetCursorPosition($origCol + $x, $origRow + $y  )
  [System.Console]::Write($s)

}

[System.Console]::Clear(  )
$origRow = [System.Console]::CursorTop;
$origCol = [System.Console]::CursorLeft;

# Draw the left side of a 5x5 rectangle, from top to bottom.
WriteAt '+'  0  0
WriteAt '|'  0  1
WriteAt '|'  0  2
WriteAt '|'  0  3
WriteAt '+'  0  4

# Draw the bottom side, from left to right.
WriteAt '---'  1  4

# Draw the right side, from bottom to top.
WriteAt '|' 4 3
WriteAt '|' 4 2
WriteAt '|' 4 1
WriteAt '+' 4 0

# Draw the top side, from right to left.
WriteAt '---', 1 0

WriteAt 'Press Enter to quit!'  0  6
[System.Console]::WriteLine( )

while ([System.Console]::ReadKey().Key -ne [System.ConsoleKey]::Enter) {
  sleep  1;
}

но от этого далеко до полноценного "нортона коммандера"

Answer 1

[MaxKozlov]

Что-то типа того ?

function ShowMenu([array]$Menu, [int]$Default)
{
  $minY = [Console]::CursorTop
  $y = [Math]::Max([Math]::Min($Default, $Menu.Count), 0)
  do {
    [Console]::CursorTop = $minY
    [Console]::CursorLeft = 0
    $i = 0
    foreach ($item in $Menu) {
      $colors = @{
         BackgroundColor = if ($i -ne $y) { [Console]::BackgroundColor } else { 'Cyan' }
         ForegroundColor = if ($i -ne $y) { [Console]::ForegroundColor } else {' Blue' }
      }
      Write-Host (' {0}. {1} ' -f ($i+1), $item) @colors
      $i++
    }
    $k = [Console]::ReadKey()
    switch ($k.Key) {
      'UpArrow' { if ($y -gt 0) { $y-- } }
      'DownArrow' { if ($y -lt ($menu.Count - 1)) { $y++ } }
      'Enter' { return $Menu[$y] }
    }
  } while ($k.Key -notin ([ConsoleKey]::Escape, [ConsoleKey]::Enter))
}

$Menu = 'test1','text2','menu3','result4'

ShowMenu $menu 2

Реакцию на другие кнопочки можно доработать по вкусу

Comments

[NewDevLab]

да, спасибо

Answer 2

[Евгений]

Попробуйте воспользоваться инструкцией из этой статьи scriptcoding.ru/2013/06/25/wscript-shell-sendkeys

Comments

[NewDevLab]

PS реально мощней скриптов на VBS. это будет реальным костылём, использовать VBS в PS. так не хотелось бы, надо сделать чисто.