replace - 如何在 VBScript 中使用替换功能

Question

我不知道为什么这段代码不起作用:

Dim a
a = InputBox("What time do you want?")
If InStr(a, "pm") Then
  (Replace(a, "pm", ""))
  a = a + 12
  c = MsgBox(a, 0, Time)
  WScript.Quit
Else
End If
b = MsgBox(a & form, 0, "L")

每当我尝试启动它时，它都会响应:

"Error: Expected Statement"

是因为 Replace 语句不正确还是因为脚本的其余部分有错误？

Answer 1

当您尝试运行该代码时，您应该收到以下错误

Microsoft VBScript compilation error: Expected statement
Line 4

这将引导您找到罪魁祸首

(Replace(a, "pm",""))

这不是 VBScript 中的有效语句，因此会出现错误。

根据您尝试执行的操作，脚本需要返回 Replace() 函数调用的结果，如下所示

a = Replace(a, "pm","")