Календарь на PowerShell: добавить подсветку текущего дня

jkadaba · Регистрация: 31.10.2016

Author24 — интернет-сервис помощи студентам

Есть старый скрипт, найденный в свое время на двинувшем ныне копыта poshcode.org.

Кликните здесь для просмотра всего текста

PowerShell

function Get-Calendar {
  <#
    .NOTES
        Author: greg zakharov
  #>
  param(
    [Parameter(Position=0)]
    [Alias('m')]
    [ValidateRange(1, 12)]
    [Int32]$Month = (Get-Date -u %m),
    
    [Parameter(Position=1)]
    [Alias('y')]
    [ValidateRange(2000, 3000)]
    [Int32]$Year = (Get-Date -u %Y),
    
    [Parameter(Position=2)]
    [Alias('mf')]
    [Switch]$MondayFirst
  )
  
  begin {
    @(
      [Globalization.DateTimeFormatInfo],
      [Globalization.CultureInfo]
    ) | ForEach-Object {
      $keys = ($ta = [PSObject].Assembly.GetType(
        'System.Management.Automation.TypeAccelerators'
      ))::Get.Keys
    }{
      if ($keys -notcontains $_.Name) {
        $ta::Add($_.Name, $_)
      }
    }
    
    [DateTimeFormatInfo]::CurrentInfo.ShortestDayNames |
    ForEach-Object {$arr = @()}{$arr += $_}
    $cal = [CultureInfo]::CurrentCulture.Calendar
    $dow = [Int32]$cal.GetDayOfWeek([String]$Month + '.1.' + [String]$Year)
 
    if ($MondayFirst) {
      $arr = $arr[1..$arr.Length] + $arr[0]
      if (($dow = --$dow) -lt 0) { $dow = 6 }
    }
  }
  process {
    $loc = [DateTimeFormatInfo]::CurrentInfo.MonthNames[$Month - 1] + [Char]32 + $Year
    $loc = "$([Char]32)" * [Math]::Round((20 - $loc.Length) / 2) + $loc
    
    if ($dow -ne 0) { for ($i = 0; $i -lt $dow; $i++) { $arr += "$([Char]32)" * 2} }
    1..$cal.GetDaysInMonth($Year, $Month) | ForEach-Object {
      if ($_.ToString().Length -eq 1) { $arr += "$([Char]32)" + $_ }
      else { $arr += $_ }
    }
  }
  end {
    Write-Host $loc -ForegroundColor Magenta
    for ($i = 0; $i -lt $arr.Length; $i += 6) {
      Write-Host $arr[$i..($i + 6)]
      $i++
    }
    ''
    
    'CultureInfo', 'DateTimeFormatInfo' | ForEach-Object {
      [void]$ta::Remove($_)
    }
  }
}

Собсна, вопрос. Как сделать подсветку текущего дня в календаре?

greg zakharov · 31.05.2018, 22:44

Мда... не знал что эта поделка будет кому-то интересна. Но не в этом суть. Вопрос скорее в предпочитаемой версии PS. Если речь о второй версии, задачу можно решить так.

PowerShell

function Get-Calendar {
  [CmdletBinding()]
  param(
    [Parameter(Position=0)]
    [Alias('m')]
    [ValidateRange(1, 2)]
    [Int32]$Month = ($script:d = Get-Date).Month,
    
    [Parameter(Position=1)]
    [Alias('y')]
    [ValidateRange(1970, 3000)]
    [Int32]$Year = (Get-Date).Year,
    
    [Parameter()]
    [Alias('bm')]
    [Switch]$BlueMonday
  )
  
  begin {
    $day, $dfi = "$($d.Day)".PadLeft(2, [Char]32), (Get-Culture).DateTimeFormat
    $arr, $cal = $dfi.ShortestDayNames, $dfi.Calendar
    
    $dow = [Int32]$cal.GetDayOfWeek("$Month" + '.1.' + "$Year")
    if ($BlueMonday) {
      $arr = $arr[1..$arr.Length] + $arr[0]
      if (($dow = --$dow) -lt 0) { $dow = 0 }
    }
  }
  process {
    $cap = $dfi.MonthNames[$Month - 1] + [Char]32 + $Year
    $cap = "$([Char]32)" * [Math]::Round((20 - $cap.Length) / 2) + $cap
    
    if ($dow -ne 0) { for ($i = 0; $i -lt $dow; $i++) { $arr += "$([Char]32)" * 2 } }
    $arr += 1..$cal.GetDaysInMonth($Year, $Month) | ForEach-Object {
      $_.ToString().PadLeft(2, [Char]32)
    }
  }
  end {
    Write-Host $cap -ForegroundColor Magenta
    for ($i = 0; $i -lt $arr.Length; $i += 6) {
      if (($itm = $arr[$i..($i + 6)]) -contains $day) {
        $cur, $pos = ($raw = $host.UI.RawUI).CursorPosition, $itm
      }
      Write-Host $itm
      $i++
    }
    
    if ($Month -ne $d.Month -or $Year -ne $d.Year) { return }
    $cur.X = ($x = [Array]::IndexOf($pos, $day)) * 2 + $x
    $raw.SetBufferContents($cur, $raw.NewBufferCellArray(
      [String[]]$day, [ConsoleColor]::Black, [ConsoleColor]::White
    ))
  }
}

jkadaba · 01.06.2018, 18:57 **[ТС]**

Пасиба! Я правда подправил в валидаторе месяцев (1, 12)

jkadaba 36 / 2 / 1 Регистрация: 31.10.2016 Сообщений: 160
	01.06.2018, 18:57 [ТС]	3
	Пасиба! Я правда подправил в валидаторе месяцев (1, 12) 0

Календарь на PowerShell: добавить подсветку текущего дня

Решение