Массив

[wowa]

Подскажите, пожалуйста...
Я раньше всегда забирал список форм из базы вот таким способом
' Получаем список форм открытой БД
Forall form In db.Forms
stMsgString = stMsgString & Chr(10) & form.Name
End Forall

Но это получется строка, а мне нужно массив...
Это как -то делается (как я понимаю) Redim.. но я так и не понял как (((...

 

[Ronchik]

Подскажите, пожалуйста...
Я раньше всегда забирал список форм из базы вот таким способом
' Получаем список форм открытой БД
Forall form In db.Forms
stMsgString = stMsgString & Chr(10) & form.Name
End Forall

Но это получется строка, а мне нужно массив...
Это как -то делается (как я понимаю) Redim.. но я так и не понял как (((...

Можно вот так

Dim stMsgString() as string
Dim i as Integer
i=0
Forall form In db.Forms 
ReDim Preserve stMsgString(i)
stMsgString(i) = form.Name 
i=i+1
End Forall

 

[morpheus]

Для: wowa
RTFM + Dynamic arrays

на самом деле всё просто
используя Redim мы указываем верхнюю границу массива от 0 до N, с полным очищением всех значений в массиве
используя Redim Preserve мы указываем верхнюю границу массива от 0 до N, НО ранее введённые хначения в массиве остаються

Dim arrMyArray() as string ' мы обвиили дин. массив 
i = 0 
Forall form In db.Forms  
Redim Preserve arrMyArray(i)  
arrMyArray(i) = form.Name
i = i + 1 
End Forall

а в Вашем коде легко зделать из строки массив

dim f as variant
Forall form In db.Forms 
stMsgString = stMsgString & Chr(10) & form.Name 
End Forall
f = Evaluate( { @Explode(} & stMsgString & {; @Char(10) )} )

 

[wowa]

Для: Ronchik
Спасибо!!

 

[Medevic]

А можно сразу создать массив нужного размера:

Dim arr() As String
Redim arr(Lbound(db.Forms) To Ubound(db.Forms))

 

[wowa]

Для: Morpheus
Спасибо

Всем спасибо!!!

 

[morpheus]

Для: wowa
бедный, стока ответов... фиг разгребёш...