Серый форум — VB: For Each, индекс элемента

Re: VB: For Each, индекс элемента

null@example.com (Xameleon) — Fri, 11 Mar 2011 12:55:53 +0000

2 Dmitrii: Точно. ) Благодарю за исправление.

Re: VB: For Each, индекс элемента

null@example.com (Lirien) — Fri, 11 Mar 2011 12:35:42 +0000

Lirien, в массиве i(3) не три, а четыре элемента, т.к. минимальное значение индекса не 1, а 0.

Спасибо, насчет этого я в курсе

В общем так и сделал - перебором. Я просто предположил, что есть какая-нибудь штатная компонента конструкции For Each.

Всем спасибо за помощь!

Re: VB: For Each, индекс элемента

null@example.com (Dmitrii) — Fri, 11 Mar 2011 12:21:52 +0000

Lirien, в массиве i(3) не три, а четыре элемента, т.к. минимальное значение индекса не 1, а 0.

Xameleon пишет:

For j=1 to Ubound(i)
   a = i(j)
Next

Для перебора всех элементов правильный вариант либо таков:

For j=1 to Ubound(i) + 1
   a = i(j - 1)
Next

либо таков:

For j=LBound(i) to Ubound(i)
   a = i(j)
Next

Re: VB: For Each, индекс элемента

null@example.com (Xameleon) — Fri, 11 Mar 2011 12:02:29 +0000

Самый просто способ - параллельным наращиванием счётчика в цикле (c = c +1). Либо перебирать элементы через

For j=1 to Ubound(i)
   a = i(j)
Next

P.S Не забывайте указывать в заголовке сообщения язык на котором написан скрипт. В вашем случае VBS или VBScript. - "VBS:For Each.. Индекс элемента.". Пункт правил 3.1.

VB: For Each, индекс элемента

null@example.com (Lirien) — Fri, 11 Mar 2011 11:56:12 +0000

Добрый день,

Я все еще плаваю в вопросах VB
Подскажите, пожалуйста, возможно ли получить индекс элемента массива, полученного с помощью конструкции For Each?

dim index
dim i(3)
i(0) = 2
i(1) = 1
i(2) = 3

For Each j in i
if j = 3 then
index = ..... ' Индекс 2 элемента i(2)
end if
Next

Спасибо!