VBA - Правильный метод инициализации массива со строкой?

Question

я рассмотрел этот вопрос/ответ здесь, прежде чем писать это: Declare and Initialize String Array in VBA

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

Это мой код, и он работает, как это:

Function MakeLegalFilename(legalname As String) As String 

Dim MyArray() As Variant 
Dim x As Integer 

MyArray = Array("<",">","?","@","%") 

For x = LBound(MyArray) To UBound(MyArray) 
    legalname = Replace(legalname, MyArray(x), "", 1) 
Next x 

MakeLegalFilename = legalname 

End Function 

Если я изменю «Вариант» в «String,» код не в MyArray = Array(... с несоответствием типа ошибки во время выполнения 13.

Если я определить размер массива, чтобы соответствовать количеству символов в строке (5 общих, но массив начинается с 0):

Dim MyArray(4) As String 
MyArray = Array("<",">","?","@","%") 

Теперь я получаю ошибку компиляции в MyArray = Array(..., что говорит: «Может» t назначить массив. "

Я знаю, что я мог бы объявить массив этого путь и сделать его работу (я проверил это так):

MyArray(0) = "<" 
MyArray(1) = ">" 
MyArray(2) = "?" 
... 
MyArray(4) = "%" 

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

Dim MyArray(4) As String 
MyArray = Array("<",">","?","@","%") 

Работает?

спасибо.

Answer 1

Array возвращает вариант.

Таким образом, вы не можете использовать его, если у вас нет варианта.

Сплит может разделить строку.

Функция Split

Описание

Возвращает отсчитываемое от нуля, один одномерный массив, содержащий определенное количество подстрок.

Синтаксис

Split(expression[, delimiter[, limit[, compare]]]) 

Put запятые строки в раскол, содержащий ваши символы.

Answer 2

Используйте вспомогательную функцию:

Dim MyArray() As String 
MyArray = StrArray("<", ">", "?", "@", "%") 

... 
Public Function StrArray(ParamArray args() As Variant) As String() 
    Dim i As Long 
    ReDim temp(UBound(args)) As String 
    For i = 0 To UBound(args) 
     temp(i) = args(i) 
    Next 
    StrArray = temp 
End Function 

Answer 3

Для инициализации статического размера строки массива, используйте:

Dim MyArray(4) As String 
MyArray(0) = "<" 
MyArray(1) = ">" 
MyArray(2) = "?" 
MyArray(3) = "@" 
MyArray(4) = "%" 

Для инициализации динамического размера строки массива, используйте:

Dim MyArray() As String 
For i = 0 to 10 
    Redim Preserve MyArray(i) 'increase the size 
    MyArray(i) = Char(64 + i) 
Next 

За дополнительной информацией, пожалуйста, обращайтесь: http://msdn.microsoft.com/en-us/library/wak0wfyt.aspx