vbscript - ReDim Array语法完整性检查-预期语句错误

Question

我正在尝试在QTP/VB脚本中重新创建数组，但我不断收到错误消息:Expected Statement。

在过去的几个小时中，我已经遍历了一百次代码，而我只是没有看到丢失的内容，而且这里的办公室似乎没人知道丢失的内容。

因此，这对我来说只是一个健全的检查，并且让我重新审视这个问题。

这是带有错误消息的代码行:

 ReDim strTempArray(LBound(AryVar) To (UBound(AryVar) - 1))

或者我可以这样说，我已经在主题上尝试了很多变化:

 ReDim strTempArray(0 To AryVar.Length - 1)

但是它们都有一个共同点，都是相同的毫无意义的错误:
在那一行代码上的预期语句。

好吧，所以也许与其余的子代码有关，所以这里是完整的子代码。
基本上，它是名为RemoveArrayElement的Sub的一部分:

 Public Sub RemoveArrayElement(AryVar(), intIndexToRemove)
 strTempArray()
 lngX = 0 'As Long
 lngDestinationIndex = 0 'As Long

    ReDim strTempArray(LBound(AryVar) To (UBound(AryVar) - 1))
    'ReDim strTempArray(0 To AryVar.Length - 1)
    lngDestinationIndex = 0

    For lngX = LBound(AryVar) To UBound(AryVar)
        If lngX <> intIndexToRemove Then
            strTempArray(lngDestinationIndex) = AryVar(lngX)
            lngDestinationIndex = lngDestinationIndex + 1
        End If
    Next

    AryVar = strTempArray
 'End If
 End Sub

我还应该补充一点，我确实在文件的开头包含了Option Explicit。

注释掉出现错误的一行确实会使错误消失，这对我而言似乎意味着错误实际上在那一行代码上，而不是在其他地方。

那我想念什么呢？

提前致谢!

Answer 1

VBScript 数组严格基于零，因此指定范围(.. To ..)没有任何意义，也不被支持(与其他Basic方言相反)。只需使用ReDim Array(UBound)并小心使用索引。