61680


Powershellにて下記のコードのように`cls`を使ってコンソールの文字列を書き換えると、おそらくまず画面をクリアして文字列を描画することが原因で、描画中の文字列がちらつきます。

[code]

    $text = "なかきよのとおのねぶりのみなめざめなみのりぶねのおとのよきかな"
    0..$text.Length | %{
        cls
        $text.Substring($_)
        sleep -Milliseconds 100
    }
    
[/code]

Powershellのコンソールでダブルバッファリングなどの仕組みを使ってちらつきを抑える方法はあるのでしょうか？

* * *

### 追記

上記の質問では画面がちらつく例として徐々に文字を消していくサンプルコードをご提示しましたが、達成したいことはコンソールゲームのように1つのコンソールの中で複数行の文字列を加除置換することです。  
`ansicon`や`ConEmu`などの外部アプリケーションに頼らない方法があればご教示ください。  
外部への配布も視野に入れているため、可能であればレジストリも変更せずに済む方法が望ましいです。  
後出しで申し訳ありません。

**文字列を置換するサンプルコード**

[code]

    $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
    }
    
[/code]

### いただいたご回答について

~~いただいたご回答を試したのですが、解決できておりません。~~  
→解決しました。

キャリッジリターン``r`を入れる方法について、`cls`を使わずに既存の文字列を削除していく方法が読み取れませんでした。

[code]

    $text = "しんぶんし"
    Write-Host -NoNewline $text
    0..$text.Length | %{
        Write-Host -NoNewline $text.Substring($_), "　`r"
        sleep -Milliseconds 100
    }
    # clsがないので文字が追加されていきます "しんぶんししんぶんし 　んぶんし 　ぶんし 　んし 　し 　 　"
    
[/code]

ANSIエスケープシーケンスを使って文字列を操作できることは確認しましたが、出力済みの文字列を操作する方法が分かりません。  
※レジストリは修正済みです(未修正でもエスケープシーケンスは使えました)  
※Powershellでは動作しますが、手元のPowershell ISEではANSIエスケープシーケンスが動作しませんでした  
※[Console Virtual Terminal Sequences](https://docs.microsoft.com/en-
us/windows/console/console-virtual-terminal-
sequences)の他のシーケンスをいくつか試しましたが動作しませんでした(チートシートの色変更も動くものと動かないものがあるので、そういうものかもしれませんが)

[code]

    "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"
    
[/code]


CC BY-SA 4.0
2019-12-22T12:41:07.360
61677
2019-12-23T09:07:42.763
2019-12-23T09:00:47.727
9820
9820
question
windows powershell console
Powershellで再描画時に画面のちらつきを抑える方法


ANSI VT100 エスケープシーケンスを使えば、同等のことがエスケープシーケンスを使って出来るのでは？

文字列が1行に収まるならば使うエスケープシーケンスは、例えば3つくらい。  
文字列を表示後にカーソルの行桁位置を表示文字列の先頭に移動して、時間毎に1文字づつ消していけば良いでしょう。折り返したりして複数行になる場合は、もっとプログラミングが必要ですが。  
[Console Virtual Terminal Sequences](https://docs.microsoft.com/en-
us/windows/console/console-virtual-terminal-sequences)

>   * ESC [ <n> A CUU Cursor Up Cursor up by <n>
>   * ESC [ <n> G CHA Cursor Horizontal Absolute Cursor moves to <n>th
> position horizontally in the current line
>   * ESC [ <n> P DCH Delete Character Delete <n> characters at the current
> cursor position, shifting in space characters from the right edge of the
> screen.
>

Unix系ならば元からエスケープシーケンスをサポートしているでしょう。

Windows10 1607以後ならば、以下の記事の方法で有効に出来るはずです。  
[Colored text output in PowerShell console using ANSI / VT100
codes](https://stackoverflow.com/q/51680709/9014308)  
[Windows console with ANSI colors handling](https://superuser.com/q/413073)  
[SetConsoleMode function](https://docs.microsoft.com/en-
us/windows/console/setconsolemode)  
[WindowsコマンドプロンプトでのANSIエスケープシーケンスの使用](https://qiita.com/TsuneoNakanishi/items/a86f52a406b99d202c06)  
[ANSIエスケープシーケンス
チートシート](https://qiita.com/PruneMazui/items/8a023347772620025ad6)

それ以前、あるいは上記対処(設定変更)をしたくない場合は以下記事のようにansiconとかコンソールエミュレータを使うとか。  
[PowerShell で ANSI escape sequences
を表示する](https://qiita.com/kitakitash/items/6df1f06da95f2e45cf35)  
[ansicon](http://adoxa.altervista.org/ansicon/) /
[adoxa/ansicon](https://github.com/adoxa/ansicon)  
[Maximus5/ConEmu](https://github.com/Maximus5/ConEmu)  
[cbucher/ConsoleZ](https://github.com/cbucher/console)

* * *

追記  
@metropolis さんコメントの方法も、今使える制御コードを使った方法で以下の繰り返しでしょう。  
pythonのpipでダウンロードの進行状況を1行の中で更新しているのと同様でしょう。

  * 改行せずに文字列を表示し、先頭1文字を削って保存
  * 続けて空白を1文字表示し、カーソルを行の先頭に戻す

これも表示内容が1行以内なら冒頭の方法同様に使えると思います。

2行以上になるなら、エスケープシーケンスを有効にして、先に表示開始位置を退避して、文字列表示後に位置を復元するとか、あるいは`cls`で必ず画面左上隅から表示するなら、初回だけ`cls`を使い、後は画面を消去せずに左上隅に移動するエスケープシーケンスを使うとかすれば、短くした文字列の最後に1文字空白を表示することで表示が短くなっていくでしょう。

* * *

**追記**

紹介記事回答の後ろの方に、PowerShellは自分自身でVTサポートをアクティブにしているとの記述がありました。Windows10では適用されているようです。8.1とか7ではどうなるかは書いてありませんが、試してみるとか。

PowerShell ISEでサポートされていないのは、単にスケジュールの問題なのか、互換性のために敢えて残しているのか、あたりが考えられます。

> Re (c):  
>  **PowerShell automatically activates VT (virtual terminal) support for
> itself** when it starts (in recent releases of Windows 10 this applies to
> both Windows PowerShell and PowerShell Core).
>
> PowerShellは、起動時に自動的にVT（仮想端末）サポートをアクティブにします（Windows 10の最近のリリースでは、これはWindows
> PowerShellとPowerShell Coreの両方に適用されます）。
>
> Therefore, **if you relay an external program's output via PowerShell, VT
> sequences are recognized** ; using `Out-Host` is the simplest way to do that
> (`Write-Host` would work too):
>
> したがって、PowerShellを介して外部プログラムの出力をリレーすると、VTシーケンスが認識されます。 Out-
> Hostを使用するのが最も簡単な方法です（Write-Hostも機能します）。
[code]

>     .\t.exe | Out-Host
>  
[/code]

>
> Note: Use Out-Host only if you mean to print to the console; if, by
> contrast, you want to capture the external program's output, use just
> `$capturedOutput = .\test.exe`
>
> 注：コンソールに印刷する場合のみ、Out-Hostを使用してください。
> 対照的に、外部プログラムの出力をキャプチャする場合は、$capturedOutput = .\ test.exe を使用します。


CC BY-SA 4.0
2019-12-22T15:10:13.083
61680
2019-12-23T09:05:42.503
2020-06-17T08:14:45.997
-1
26370
61677
answer


いただいた回答とコメントで解決しました。

[code]

    $text = "なかきよのとおのねぶりのみなめざめなみのりぶねのおとのよきかな"
    Write-Host -NoNewline $text, "`r"
    0..$text.Length | %{
        Write-Host -NoNewline $text.Substring($_), "　`r"
        sleep -Milliseconds 100
    }
    
[/code]

**理由は分かりませんが**
、`\ESC[0d`でカーソルが画面の上部に戻るため下記のコードでちらつきなくコンソールの複数行書き換えができました。(サンプルコードの下から4行目)

[code]

    $lines = @("いろはにほへと",
               "ちりぬるをわか",
               "よたれそつねな",
               "らむうゐのおく",
               "やまけふこえて",
               "あさきゆめみし",
               "ゑひもせすん　")
    $a = 0..6
    cls
    0..8 | %{
        $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
        }
        [char]0x1B+"[0d"
        $sb.ToString()
        sleep -Milliseconds 500
    }
    
[/code]


CC BY-SA 4.0
2019-12-23T08:58:20.923
61703
2019-12-23T09:07:42.763
2019-12-23T09:07:42.763
9820
9820
61677
answer