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

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

＆＃34;错误：预期声明＆＃34;

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

Answer 1

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

Microsoft VBScript编译错误：预期声明
第4行

会引导你找到罪魁祸首

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

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

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

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

如何在VBScript中使用Replace函数

1 个答案: