如何在VBScript中使用Replace函数

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")

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

"错误:预期声明"

是因为Replace声明不正确还是因为脚本的其余部分出现了错误？

Answer 1

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

Microsoft VBScript编译错误:预期语句
第4行

这将导致你成为罪魁祸首

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

这不是VBScript中的有效语句,因此错误.

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

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