Powershellにて下記のコードのようにcls
を使ってコンソールの文字列を書き換えると、おそらくまず画面をクリアして文字列を描画することが原因で、描画中の文字列がちらつきます。
$text = "なかきよのとおのねぶりのみなめざめなみのりぶねのおとのよきかな"
0..$text.Length | %{
cls
$text.Substring($_)
sleep -Milliseconds 100
}
Powershellのコンソールでダブルバッファリングなどの仕組みを使ってちらつきを抑える方法はあるのでしょうか?
追記
上記の質問では画面がちらつく例として徐々に文字を消していくサンプルコードをご提示しましたが、達成したいことはコンソールゲームのように1つのコンソールの中で複数行の文字列を加除置換することです。
ansicon
やConEmu
などの外部アプリケーションに頼らない方法があればご教示ください。
外部への配布も視野に入れているため、可能であればレジストリも変更せずに済む方法が望ましいです。
後出しで申し訳ありません。
文字列を置換するサンプルコード
$lines = @("いろはにほへと",
"ちりぬるをわか",
"よたれそつねな",
"らむうゐのおく",
"やまけふこえて",
"あさきゆめみし",
"ゑひもせすん ")
$a = 0..6
0..8 | %{
cls
$sb = New-Object System.Text.StringBuilder
$i = $_ - 1
$a | %{
$y = 6 - $_
$a | %{
$x = $_
$s = $lines[$x][$y]
if($x -eq $i) {
$s = "・"
} elseif($x -gt $i) {
$s = "■"
}
$sb.Insert(0, $s) > $null
}
$sb.Insert(0, "`n") > $null
}
$sb.ToString()
sleep -Milliseconds 500
}
いただいたご回答について
~~いただいたご回答を試したのですが、解決できておりません。~~
→解決しました。
キャリッジリターン`r
を入れる方法について、cls
を使わずに既存の文字列を削除していく方法が読み取れませんでした。
$text = "しんぶんし"
Write-Host -NoNewline $text
0..$text.Length | %{
Write-Host -NoNewline $text.Substring($_), " `r"
sleep -Milliseconds 100
}
# clsがないので文字が追加されていきます "しんぶんししんぶんし んぶんし ぶんし んし し "
ANSIエスケープシーケンスを使って文字列を操作できることは確認しましたが、出力済みの文字列を操作する方法が分かりません。
※レジストリは修正済みです(未修正でもエスケープシーケンスは使えました)
※Powershellでは動作しますが、手元のPowershell ISEではANSIエスケープシーケンスが動作しませんでした
※Console Virtual Terminal Sequencesの他のシーケンスをいくつか試しましたが動作しませんでした(チートシートの色変更も動くものと動かないものがあるので、そういうものかもしれませんが)
"SNS" + [char]0x1B + "[2DO" #SOS
$text = "トマト"
$esc = [char]0x1B
$text + $esc + "[4Dエ" #トエト
#出力済みの文字列をカーソルで消そうとしてもうまく行きません
Write-Host -NoNewline $text
0..$text.Length | %{
Write-Host -NoNewline $esc+"[2D "
sleep -Milliseconds 100
}
#for文では左記のように出力されてしまいます "トマト2D 2D 2D 2D"
`r
)を使う方法も考えられます。Write-Host -NoNewline $text.Substring($_), " `r"
Write-Host -NoNewline $text
にも carriage return を入れて下さい。Write-Host -NoNewline $text, "`r"