Pouvez-vous déclarer une constante tableau en VBScript?

Je veux utiliser un tableau que je déclare une fois en haut de mon code plusieurs fois. Ex.

Const Trimestres = ["T1", "T2", "T3", "T4"]

Pour chaque Trimestre q
q.Faire un peu de travail

Etc.

Cela peut être fait en VBScript?

Vous pourriez attendre un peu ( > 5 minutes) temps avant de marquer une question répondu à laisser plus de gens à faire des suggestions... 😉
Pourquoi? La question a été répondu (je peux toujours l'onu marque en tant que telle).

OriginalL'auteur user45492 | 2009-02-10

  1. 10

    Un tableau est le résultat d'un appel de fonction (Array()) en VBScript. Seulement des valeurs littérales peuvent être faites Const. Donc: Non, vous ne pouvez pas.

    OriginalL'auteur Tomalak

  2. 6

    Pourquoi ne pas simplement déclarer le tableau en tant que public et ensuite affecter le tableau lors du démarrage de l'exécution du script? 

    Public myArray(3) 
arrQuarters = Array("Q1", "Q2", "Q3", "Q4")

For Each Quarter in arrQuarters
    wscript.echo Quarter
Next

    OriginalL'auteur Dscoduc

  3. 4

    Vous pouvez définir une fonction pour retourner un tableau que vous souhaitez utiliser comme une constante. Par exemple:

    For Each q in AllQuarters
    wscript.echo q
Next

wscript.echo "element 0 = " & AllQuarters()(0)

AllQuarters()(0) = "X1"

wscript.echo "element 0 still = " & AllQuarters()(0)


Function AllQuarters()
    AllQuarters = Array("Q1","Q2","Q3","Q4")
End Function
    Ici est la BONNE réponse. Bien que vous ne pouvez pas déclarer une constante tableau, il y a une solution: la définir comme une fonction.

    OriginalL'auteur NYCdotNet

  4. 2

    Réponse Simple: non. Le tableau ne peut pas être fait const.

    OriginalL'auteur Konrad Rudolph

  5. 1

    Plus courte et la moins sujette aux erreurs solution serait:

    Dim arr
arr = Split("Q1 Q2 Q3 Q4") : ubd = UBound(arr)
' Implied separator is " " aka 040 octal aka 32 Dec aka 020 Hex.

    Si vos données peuvent contenir des espaces:

    arr = Split("Le Sage,ne pleure,ni les vivants, ni les morts", ",")
ubd = UBound(arr)
' arr(2), for instance, now contains "ni les vivants"

    Attention: ne Jamais choisir un séparateur qui pourrait se produire dans votre "atomique" des chaînes de données, ou la fonction split sur un séparateur au milieu d'une pièce unique de données.

    OriginalL'auteur LeChatDeNansen