cscript - 在控制台的同一行上打印输出？

Question

如果我有一个将行输出到屏幕的 cscript，如何避免每次打印后的“换行”？

示例：

for a = 1 to 10
  WScript.Print "."
  REM (do something)
next

预期的输出应该是：

..........

不：

.
.  
.
.
.
.
.
.
.
.

过去我曾经打印“向上箭头字符”ASCII 代码。这可以在cscript中完成吗？

答案

在同一行上打印，无需额外的 CR/LF

for a=1 to 15
  wscript.stdout.write a
  wscript.stdout.write chr(13)
  wscript.sleep 200
next

Answer 1

使用 WScript.StdOut.Write() 而不是 WScript.Print()。

Answer 2

WScript.Print() 打印一行，您无法更改它。如果您想在该行上包含多个内容，请构建一个字符串并打印它。

Dim s: s = ""

for a = 1 to 10
  s = s & "."
  REM (do something)
next

print s

简单地说，cscript.exe 只是 Windows Script Host 的命令行界面，而 VBScript 是语言。

Answer 3

我在 JavaScript 中使用以下“log”函数来支持 wscript 或 cscript 环境。正如您所看到的，只有在可以的情况下，该函数才会写入标准输出。

var ExampleApp = {
    // Log output to console if available.
    //      NOTE: Script file has to be executed using "cscript.exe" for this to work.
    log: function (text) {
        try {
            // Test if stdout is working.
            WScript.stdout.WriteLine(text);
            // stdout is working, reset this function to always output to stdout.
            this.log = function (text) { WScript.stdout.WriteLine(text); };
        } catch (er) {
            // stdout is not working, reset this function to do nothing.
            this.log = function () { };
        }
    },
    Main: function () {
        this.log("Hello world.");
        this.log("Life is good.");
    }
};

ExampleApp.Main();