arrays - 如何确定动态数组是否未在 VBScript 中指定尺寸

Question

假设我在 VBScript 中创建一个动态数组

Dim myArray()

稍后我如何检查该数组是否从未被标注过尺寸？

Ubound(myArray) 'sub script out of range
Lbound(myArray) 'sub script out of range
IsEmpty(myArray) 'returns false

Answer 1

我认为没有任何内置功能，但您可以创建自己的函数:

Function IsInitialized(a)    
    Err.Clear
    On Error Resume Next
    UBound(a)
    If (Err.Number = 0) Then 
        IsInitialized = True
    End If
End Function

然后您可以将其称为:

Dim myArray()
If Not IsInitialized(myarray) Then
    WScript.Echo "Uninitialized"
End If

但是，解决此问题的一种方法可能是不声明空数组，而是仅声明一个变量并稍后将其设置为数组，因此将上面的代码更改为:

Dim myArray
myArray = Array()
If Not IsInitialized(myarray) Then
    WScript.Echo "Uninitialized"
End If