¿Cómo puedo determinar si una matriz dinámica no ha ser dimensionada en VBScript

Question

Di puedo crear una matriz dinámica en VBScript

Dim myArray() 

Más adelante cómo puedo comprobar que esta matriz no se ha dimensionado?

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

Answer 1

No creo que haya nada incorporada, pero se puede crear su propia función como:

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

que luego se puede llamar como:

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

Sin embargo, una La forma de evitarlo es no declarar matrices vacías, en su lugar declarar solo una variable y establecerla en una matriz más tarde, por lo tanto, cambie el código anterior a:

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

Answer 2

Prefiero Not la matriz, y luego comparo el resultado con -1. Esto funciona, y lo hace sin causar un error intencionalmente.

Dim myArray() 

... 

If (Not myArray) = -1 Then 
    ReDim myArray(0) 
Else 
    ReDim Preserve(0 To UBound(myArray)+1) 
End If 

Answer 3

He estado usando algo como esto:

Dim arr 
arr = null 

sub addElement (byref arr, element) 
    if isNull (arr) then 
     redim arr(0) 
    else 
     redim preserve arr (uBound(arr) + 1) 
    end if 
    arr(uBound(arr)) = element 
end sub 

Answer 4

encontramos con este en la búsqueda de una respuesta a la misma pregunta, que inicializa una variable a 0 y el incremento sólo cuando agrego a la zona y a continuación, sólo comprobar el valor variable en lugar ...

dim myarray() num = -1 si addtoarray entonces num = num + 1 redim preservar myarray (num) final si si num> -1 entonces hacer algo final si