標準入出力

VBScript

標準入力から読んで、標準出力に書く (行番号付加)

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
実行結果


C:\>cscript c:\study\vbscript\chapter003\lesson006.vbs < c:\study\vbscript\chapt

er001\lesson002.vbs //nologo

000001 | Dim var1: var1 = "Hello"

000002 | Dim var2: var2 = "World"

000003 | WScript.Echo var1 + ", " + var2 + "!"