VBNet - Форум - поиск по массивам

Вопрос: поиск по массивам Добавлено: 25.03.09 09:34

Автор вопроса: mixman13

Доброго времени суток.
Есть два массива:
massiv1(50,4)
massiv2(1500,7)
первые элементы это название, по которому нужно из второго массива вытащить остальные 6 значений для каждого элемента первого. Можно это как-то сделать через поиск во втором массиве, без переборки всех 1500 значений 50 раз?
Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: fAndOrIn Вопросов: 5 Ответов: 344	Профиль \| \| #1	Добавлено: 25.03.09 09:47
	Можно, если оба массива отсортированы по первому элементу. Ответить

Номер ответа: 2 Автор ответа: mixman13 Вопросов: 3 Ответов: 3	Профиль \| \| #2	Добавлено: 25.03.09 09:50
	А поподробней? Интересуют сами команды сортировки и поиска по массивам Ответить

Номер ответа: 3 Автор ответа: fAndOrIn Вопросов: 5 Ответов: 344	Профиль \| \| #3	Добавлено: 25.03.09 10:57
	Про сортировку: вариантов масса, многое зависит и от того, где источник данных для этих массивов. Если Excel - сортируй прямо на листе. Могу также порекомендовать сортировку Хоара, например vbnet.ru/forum/show.aspx?id=182195&page=2 посты 21,23 (если с ней будут проблемы - обращайся, попробую помочь) А поиск по массивам (отсортированным) может выглядеть примерно так Option Base 1 Dim M1(50, 4), M2(1500, 7) ', M3() As Long Sub F() Dim I As Long, J As Long ', C As Long J = 1 For I = 1 To 50 While M1(I, 1) > M2(J, 1) If J = 1500 Then Exit For J = J + 1 Wend While M1(I, 1) = M2(J, 1) ' C = C + 1 ' ReDim Preserve M3(1 to C) ' M3(C) = J Debug.Print M2(J, 1) ,M2(J, 2),M2(J, 3),M2(J, 4),M2(J, 5),M2(J, 6),M2(J, 7) If J = 1500 Then Exit For J = J + 1 Wend Next I End Sub Предполагается, что массивы отсртированы по возрастанию первого ключа. То что заремировано может помочь при необходимости запомнить первые индексы М2 (результаты поиска). Ответить

Номер ответа: 4 Автор ответа: mixman13 Вопросов: 3 Ответов: 3	Профиль \| \| #4	Добавлено: 25.03.09 11:49
	Спасибо, сортировка Хоара как раз мой случай. Как я понимаю чего-то вроде: http://www.codenet.ru/progr/vbasic/Dot-Net/Arrays.php в ВБА нет? Ответить

Страница: 1 |