標準入力から読んで、標準出力に書く (行番号付加) lesson006.vbs Dim i : i = 0 Do Until WScript.StdIn.AtEndOfStream i = i + 1 WScript.StdOut.WriteLine Right("000000" & FormatNumber(i, 0, 0, 0), 6) & " | " & WScript.StdIn.ReadLine Loop実行結果…