如何在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语句不正确还是脚本的其余部分有误？

- Curious George

---

是的，为什么不去查一下如何使用 Replace() 或者其他任何 VBScript 函数，为什么要来这里问呢？ - user692942

修复错误需要修复第4行 - a = Replace(a, "pm","")，这是错误的原因。Replace()必须返回一些内容，(Replace(a, "pm",""))没有返回值是无效的语句。 - user692942

Answer 1

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

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

这将指向罪犯，即：

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

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

根据您要执行的操作，脚本需要返回Replace()函数调用的结果，类似于以下内容：

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

- user692942