Les tableaux de longueur nulle dans VBScript

Je dois faire quelques ASP travail et j'ai trouvé que le langage ne fournit pas un moyen de détecter le zéro de tableaux de longueur (eh bien, je suppose que vous pouvez détecter l'exception qu'ils jettent lorsque vous essayez de les utiliser...). Pourquoi serait-Split() renvoie un tableau vide si il n'est pas une façon saine de gérer ça? Ou ai-je raté quelque chose?

J'ai concocté la suite de hack pour détecter des tableaux vides, mais il y a un moyen plus facile. Qui est-il? TIA

function ArrayEmpty (a)
    dim i, res
    res = true
    for each i in a
        res = false
        exit for
    next
    ArrayEmpty = res
end function

source d'informationauteur angus

  1. 6

    Pour:

    Dim arr1 : arr1 = Array()
Dim arr2
Dim arr3 : ReDim arr3(1) : Erase arr3
WScript.Echo UBound(arr1)
WScript.Echo UBound(arr2)
WScript.Echo UBound(arr3)

    Sera de retour -1 pour arr1, mais "VBScript runtime erreur: Indice en dehors de la gamme: 'UBound'" pour arr2 et arr3.

    Un objectif général de la fonction permet de tester si un tableau est "Grisé" ou "Vide", devrait aussi (probablement) de tester si la variable est en fait un tableau. 

    Function IsDimmedArray(arrParam)

Dim lintUBound : lintUBound = 0
Dim llngError  : llngError = 0

    IsDimmedArray = False
    If Not IsArray(arrParam) Then : Exit Function

 '' Test the bounds
    On Error Resume Next

        lintUBound = UBound(arrParam)
        llngError = Err.Number
        If (llngError <> 0) Then : Err.Clear

    On Error Goto 0
    If (llngError = 0) And (lintUBound >= 0) Then : IsDimmedArray = True

End Function                  ' IsDimmedArray(arrParam)

    Pour moi, 99% du temps quand je suis en vérifiant si un tableau est "Coté", c'est que si j'ai besoin d'obtenir le UBound de la matrice et je veux éviter à l'exécution, erreur dans le cas où le tableau n'est pas dimensionnée. Donc en général, je vais passer le UBound comme un paramètre comme: 

    Function IsDimmedArray(arrParam, intUBoundParam)
    intUBoundParam = 0
    ...

    Je ne sais pas si cette pratique permet d'enregistrer toutes les "Temps", mais il ne économiser de l'1 ligne de code avec presque tous les utiliser, et est un moyen facile de faire respecter la pratique de la vérification d'erreur.

    Aussi, je comprend qu'il est complet, mais dans la pratique, la vérification de "UBound >= 0" dans IsDimmedArray: 

        If (llngError = 0) And (lintUBound >= 0) Then : IsDimmedArray = True

    n'est généralement pas nécessaire, car il sera généralement utilisé dans des cas comme: 

    Dim arrX
Dim lintUBound
Dim intNdx

arrX = Array()
lintUBound = UBound(arrX)
WScript.Echo "arrX is an array with UBound=" & lintUBound

For intNdx = 0 to lintUBound
    WScript.Echo "This will not print: " & intNdx
Next

    Donc, dans ce cas, lintUBound = -1 et Pour ... la Prochaine sera ignorée.

  2. 4

    Un tableau vide créé à l'aide de la Array fonction ou renvoyées par d'autres intrinsèque fonctions VBScript, comme Splita une limite supérieure de -1. Ainsi, vous pouvez tester pour un tableau vide comme ceci:

    Dim arr : arr = Array()

If UBound(arr) >= 0 Then
  ' arr is non-empty
Else
  ' arr is empty
End If

    Plus d'infos ici: Tests pour les Tableaux Vides.

  3. 2

    Si votre méthode doit être en mesure de retourner un tableau vide, votre code doit être comme ceci

    Option Explicit

dim result : result = mymethod
if(NOT ubound(result) > 0) then MsgBox "Array Is Empty"
dim elem : for each elem in result
  MsgBox "Element"
Next

Function mymethod
  dim results : results = Array()
  mymethod = results
End Function

    Array() crée un Ubound = -1 tableau qui n'a pas de boucle dans la boucle for each.

  4. 1

    Je pense que cette ist une bonne façon de vérifier un Tableau en VBS

    Dim myArray
myArray = Array()
sTest = IsArrayEmpty(myArray)
Msgbox (sTest) ' True
Function IsArrayEmpty(myArray)
    iRet = True

    If IsArray(myArray) Then
        i = 0
        For Each e In myArray
            If Not IsEmpty(e) And Len(e)>0 Then
                i = i +1
            End If
        Next
        If i>0 Then
            iRet = False
        End If
    End If
    wIsArrayEmpty = iRet
End Function