以下を参考にアンダーラインを引くサンプルを作って見ました。
固定ピッチフォントの環境じゃないとずれてしまうような気はしますが・・・。
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 |
0 件のコメント:
コメントを投稿