返回输入流中当前字符位置的列数。
object.Column
Column 属性中包含一个只读整数值,它表示输入流中当前字符位置的列数。在写入一个新的换行符后(即使还没有写入任何其他字符),Column 属性等于 1。StdIn、StdOut 及 StdErr 属性和方法仅在用 CScript.exe 运行脚本时可用,如果是用 WScript.exe 运行该脚本就会出错。
下面的代码通过从键盘读取输入并将其拆分为 20 个字符的行来演示 Column 属性的用法:
Dim Input
Input = ""
Do While Not WScript.StdIn.AtEndOfLine
Input = Input & WScript.StdIn.Read(1)
If (WScript.StdIn.Column
- 1) Mod 20 = 0 Then
Input = Input & vbCrLf
End If
Loop
WScript.Echo Input
var input = "";
while (!WScript.StdIn.AtEndOfLine)
{
input += WScript.StdIn.Read(1);
if ((WScript.StdIn.Column
- 1) % 20 == 0)
input += "\n";
}
WScript.Echo(input);