本帖最后由 pcl_test 于 2017-4-30 16:33 编辑
代码如下:
━┉┉┉┉┉┉┉∞┉┉┉┉┉┉┉┉∞┉┉┉┉┉┉┉━- Dim StdIn, StdOut
- Set StdIn = WScript.StdIn
- Set StdOut = WScript.StdOut
-
- Do While Not StdIn.AtEndOfStream
- str = StdIn.ReadLine
- StdOut.WriteLine "Line " & (StdIn.Line - 1) & ": " & str
- Loop
复制代码 求助问题:
━┉┉┉┉┉┉┉∞┉┉┉┉┉┉┉┉∞┉┉┉┉┉┉┉━
输入什么字符能使【StdIn.AtEndOfStream】返回“真”
从而使do while .... loop结束。
提前感谢大家的帮助。 |