如何使用 VBS-SAPI-VOICE 读取所有参数？答案

【问题标题】：How can I read all arguments with the VBS-SAPI-VOICE?如何使用 VBS-SAPI-VOICE 读取所有参数？
【发布时间】：2020-08-09 12:59:06
【问题描述】：

我想创建一个程序，自动读取所有开始参数。这是我几个小时后结束的的研究和调试，但它仍然无法正常工作。（我在 VBScript 方面不是很有经验。）错误消息类似于“预期指令”或“预期语句” 我不知道什么是正确的翻译。（我用的是德语版本。原来的错误信息是：“Anweisung erwartet”）

Private Sub Say()
Set VOICE = createobject("sapi.spvoice")
Set Args = WScript.Arguments
Count = 0
While(count > Args.Count)
    VOICE.speak(WScript.Arguments(count))
    count = count + 1
End While
End Sub

Say()

有人有想法吗？我希望你明白我的意思。（我的英语很糟糕）

【问题讨论】：

使用for - Each 循环。 For each thing in Wscript.ArgumentsMsgbox thingnext.
@Mark 你能给我代码吗？我仍然遇到错误。

标签： vbscript sapi

【解决方案1】：

参考this你可以这样写：

Set VOICE = createobject("sapi.spvoice")
' Store the arguments in a variable:
Set objArgs = Wscript.Arguments
If objArgs.Count = 0 Then 
    Wscript.Echo "Missing parameters"
    VOICE.Speak "Missing parameters"
End If

' Display all command-line arguments
For Each strArg in objArgs
  WScript.Echo strArg
  VOICE.Speak strArg
Next

【讨论】：