2012年1月30日月曜日

◆コンソール出力に下線(アンダーライン)を引く

以下を参考にアンダーラインを引くサンプルを作って見ました。
固定ピッチフォントの環境じゃないとずれてしまうような気はしますが・・・。

Multiply PowerShell Strings to Customize Text Underlines - Hey, Scripting Guy! Blog - Site Home - TechNet Blogs

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022

Function New-Underline
{
 
[CmdletBinding()]
  param
(
     
[Parameter(Mandatory = $true,Position = 0,valueFromPipeline=$true)]
      [string]
      $stringIN,
      [string]
      $char = " ̄"
  )
 
$encSjis = [System.Text.Encoding]::GetEncoding("Shift-JIS"
)
 
$x = $encSjis.GetByteCount($stringIN
)
 
$y = $encSjis.GetByteCount($char
)
 
$underLine = $char * ([Math]::Ceiling($x / $y
))

 
Write-Host $stringIn
  Write-Host $underLine -ForegroundColor Red
} 

New-Underline "abcd" -char "-"
New-Underline 
"原辰徳"
"AAAAA"
 | New-Underline

image

0 件のコメント:

コメントを投稿