На этот раз надо было нарисовать скриптом страничку календаря. Я не стал заморачиваться с определением того с какого дня в системе начинается неделя – просто лень было
Кстати это не сложно
(Get-Culture).DateTimeFormat.FirstDayOfWeek
Ну и вот что получилось:
SG4-Calendar.ps1
# Запрашиваем месяц в формате месяц/год и присвиваем её переменной в виде # массива, разделив по "/". То есть первый элемент это месяц, второй - год. $Data = (Read-Host "Enter a month") -split "/" # В переменную $FirstDay помещаем первый день месяца. $FirstDay = Get-Date -Year $Data[1] -Month $Data[0] -Day 1 # С помощью функции DaysInMonth класса DateTime, получаем количество дней в # месяце. $TotalDays = [datetime]::DaysInMonth($Data[1],$Data[0]) # Делаем отступ в одну строчку для красотыWrite-Host "" # Пишем название месяца и год. Write-Host (Get-Date $FirstDay -Format "MMMM yyyy") # Пишем заголовки столбцов. Write-Host "`nSun`tMon`tTue`tWed`tThu`tFri`tSat" # Делаем отступ знаками табуляции ("`t") в количестве равном дню недели первого # дня месяца. Рисуем число 1. Write-Host ("`t"*([int]($FirstDay.DayOfWeek)) + "1`t") -NoNewline # Если первый день месяца является одновременно последним днём недели - то # переходим на новую строку. if ([int]$FirstDay.DayOfWeek -eq 6) {Write-Host ""} # Для каждого числа от 2 до $TotalDays включительно, где $_ - текущее число... 2..$TotalDays | foreach { # ...выводим на экран текущее число и знак табуляции. Write-Host "$_`t" -NoNewline # Если это был последний день недели, то переходим на новую строку. if ([int](get-date $FirstDay -Day $_).DayOfWeek -eq 6) {Write-Host ""} } # Финальный отступ. "`n" - символ новой строки. Write-Host "`n"
Эх… Надо было еще названия дней недели выводить местные…
(Get-Culture).DateTimeFormat.AbbreviatedDayNames
Как обычно еще варианты: MoW, Per Østergaard, Scripting Guys, Ed Wilson.









Приведу свое решение, пусть не самое короткое и оптимальное – зато красивое…
param([String] $DStr)
$CelebDate = “01/01″,”01/07″,”02/23″,”03/08″,”05/01″,”05/02″,”05/09″,”11/04″,”12/31″
#$DStr=”March 3, 2008″
if ($DStr -eq $null -or $DStr -eq “”) {$D=[DateTime]::Now.Date} else {$D=[DateTime]$DStr}
$Celeb= $CelebDate | % {[DateTime]“$_/$($D.Year)”}
$Last=$false
$DD=$D.AddDays(-$D.Day+1)
$Beg=$DD.AddDays(-[int]$DD.DayOfWeek)
$End=$DD.AddDays([DateTime]::DaysInMonth($D.Year,$D.Month)-1)
$S=(”{0:MMMM, yyyy}” -f $D).Length
$C=21/2-$S/2
Write-Host (” “*$C+(”{0:MMMM}, ” -f $D)) -ForeGroundColor Blue -NoNewLine
Write-Host (”{0:yyyy}” -f $D) -ForeGroundColor Yellow
Write-Host “———————” -ForeGroundColor DarkBlue
Write-Host ” Su ” -ForeGroundColor Red -NoNewLine
Write-Host “Mo Tu We Th Fr ” -ForeGroundColor Cyan -NoNewLine
Write-Host “Sa” -ForeGroundColor DarkRed
Write-Host “———————” -ForeGroundColor DarkBlue
$DDD=$Beg
while(!$Last)
{
for($I=0;$I -lt 7;$I++)
{
$Str=$DDD.Day.ToString().PadLeft(3,” “)
$Last=$DDD -ge $End
if ($DDD.DayOfWeek -eq 0) {$Color=”Red”}
elseif ($DDD.DayOfWeek -eq 6) {$Color=”DarkRed”}
else {$Color=”White”}
if ($DDD -lt $DD -or $DDD -gt $End) {$Color=”Gray”}
if ($Celeb -contains $DDD) {$Color=”Magenta”}
if ($DDD -eq $D) {$Color=”Green”}
Write-Host $Str -ForeGroundColor $Color -NoNewLine
$DDD=$DDD.AddDays(1)
}
“”
}
Комментарий от Mc'key — 4.3.2008 @ 22:44
Еще и с изюминкой… Я думаю не все догадались показывать праздники…
Комментарий от Mc'key — 4.3.2008 @ 22:46
Выложи где-нибудь архивом, похоже побилась кодировка вторую строку поправил, начал ругаться на
$S=(”{0:MMMM, yyyy}” -f $D).Length
Комментарий от zorion — 5.3.2008 @ 1:53
Усё, расставил сам кавычки где нужно, а почему пятое марта зелёным цветом?
Комментарий от zorion — 5.3.2008 @ 4:45
Туплю
Комментарий от zorion — 5.3.2008 @ 5:37
2 Mc’key: Здорово, давай мне на xaegrпёсикяндекс скрипт в .ps1, я его выложу. А вообще пора бы свой блог делать
Комментарий от Xaegr — 5.3.2008 @ 5:49