Массив

@wowo · Регистрация: 03.02.2007

Студворк — интернет-сервис помощи студентам

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

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

@Romshyk · 26.04.2007, 13:08

Сообщение от wowa

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

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

Можно вот так

Код

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

@morphyus · 26.04.2007, 13:14

Для: wowa
RTFM + Dynamic arrays

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

Код

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

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

Код

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

@wowo · 26.04.2007, 13:20

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

@Mydyvys · 26.04.2007, 13:21

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

Код

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

@wowo · 26.04.2007, 13:29

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

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

@morphyus · 26.04.2007, 13:33

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

@wowo 0 / 0 / 0 Регистрация: 03.02.2007 Сообщений: 821
		1
	Массив 26.04.2007, 12:59. Показов 13274. Ответов 6 Метки нет (Все метки) Подскажите, пожалуйста... Я раньше всегда забирал список форм из базы вот таким способом Получаем список форм открытой БД Forall form In db.Forms stMsgString = stMsgString & Chr(10) & form.Name End Forall Но это получется строка, а мне нужно массив... Это как -то делается (как я понимаю) Redym.. но я так и не понял как (((... 0

@Romshyk 0 / 0 / 0 Регистрация: 27.02.2007 Сообщений: 154
	26.04.2007, 13:08	2
	Сообщение от wowa Подскажите, пожалуйста... Я раньше всегда забирал список форм из базы вот таким способом Получаем список форм открытой БД Forall form In db.Forms stMsgString = stMsgString & Chr(10) & form.Name End Forall Но это получется строка, а мне нужно массив... Это как -то делается (как я понимаю) Redym.. но я так и не понял как (((... Можно вот так Код 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 0

@morphyus 1 / 1 / 0 Регистрация: 04.08.2006 Сообщений: 2,950
	26.04.2007, 13:14	3
	Для: wowa RTFM + Dynamic arrays на самом деле всё просто используя Redym мы указываем верхнюю границу массива от 0 до N, с полным очищением всех значений в массиве используя Redym Preserve мы указываем верхнюю границу массива от 0 до N, НО ранее введённые хначения в массиве остаються Код Dim arrMyArray() as string мы обвиили дин. массив i = 0 Forall form In db.Forms Redym Preserve arrMyArray(i) arrMyArray(i) = form.Name i = i + 1 End Forall а в Вашем коде легко зделать из строки массив Код dym f as variant Forall form In db.Forms stMsgString = stMsgString & Chr(10) & form.Name End Forall f = Evaluate( { @Explode(} & stMsgString & {; @Char(10) )} ) 0

@wowo 0 / 0 / 0 Регистрация: 03.02.2007 Сообщений: 821
	26.04.2007, 13:20	4
	Для: Ronchik Спасибо!! 0

@Mydyvys 0 / 0 / 0 Регистрация: 04.12.2004 Сообщений: 3,329
	26.04.2007, 13:21	5
	А можно сразу создать массив нужного размера: Код Dim arr() As String Redym arr(Lbound(db.Forms) To Ubound(db.Forms)) 0

@wowo 0 / 0 / 0 Регистрация: 03.02.2007 Сообщений: 821
	26.04.2007, 13:29	6
	Для: Morpheus Спасибо Всем спасибо!!! 0

@morphyus 1 / 1 / 0 Регистрация: 04.08.2006 Сообщений: 2,950
	26.04.2007, 13:33	7
	Для: wowa бедный, стока ответов... фиг разгребёш... :D :D :D ;) 0

Опции темы