Можете ли вы объявить постоянный массив в VBScript?

Question

Я хочу использовать массив, который я объявляю один раз в верхней части моего кода несколько раз. Ex.

Const Quarters = [ "Q1", "Q2", "Q3", "Q4"]

Для каждого квартала д q.Do некоторые работы

Etc.

Может ли это сделать в VBScript?

Answer 1

Массив является результатом вызова функции (Array()) в VBScript. Только литеральные значения могут быть сделаны Const. Итак: Нет, вы не можете.

Answer 2

Простой ответ: нет. Массив не может быть сделан const.

Answer 3

Почему бы просто не объявить массив открытым и назначить массив во время начала сценария?

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

For Each Quarter in arrQuarters 
    wscript.echo Quarter 
Next 

Answer 4

Вы можете определить функцию для возврата массива, который вы хотите использовать в качестве константы. Например:

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 

Answer 5

Чем короче и менее подверженным ошибкам решение будет:

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

Если ваши данные могут содержать пробелы:

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

Внимание: Никогда не выбрать разделитель, который может происходят в ваших «атомных» строках данных, или функция будет разделяться на этом разделителе в середине одного фрагмента данных.