Сравнение двух массивов

[gjghjc]

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

Ищу соответсвие массивов методом половинного деления (кажется это так называется когда не перебираются все элементы массива, а постепенно сужаются границы поиска делением пополам размерности массива )

Делаю так.
Определяю верхнюю и нижнюю границу А().
1. Если В(i) > последнего элемента А() то пишу значение В(i) в лог-файл
2. Если В(i) < первого элемента А() то пишу значение В(i) в лог-файл
3. Если В(i) = A(j) то производятся некие действия, какие неважно, этот кусок работает.
4. Если В(i) лежит в пределах значений массива А() но его значение отсутсвует в массиве А() то вот тут я и поймал клина...

Для примера
А (1,2,3,5,6,7,8,9)
В (0,1,2,4,7,10)
В()=0, В()=10 я нахожу, В()=1, В()=2,В()=7 тоже а вот с В()=4 как-то неполучается.
Помогите кто чем может

[DirectXManiac]

Нужно найти все элементы массива В() которых нет в массиве А().

Бежишь фором по всему массиву B и проверяешь есть ли элемент B(i) в массиве A. Если нет пишешь его в массив C. Задача простая, но если это правильное условние

[gjghjc]

DirectXManiac
Сейчас я так и делаю, но это как-то не красиво Хочется поизящней что-ли.

[alibek]

Ну поставь базу данных, выгрузи массивы в таблицы и выбери запросом.

[Igor_123]

GSerg предлагал когда-то:
создаешь коллекцию и добавляешь в неё значения одного из массивов - первый цикл
и потом идешь по второму массиву и пытаешься добавить значения, ну и обрабатываешь удачи/неудачи попыток добавления как нужно - второй цикл
как ключ используешь значения из массивов
и все

[gjghjc]

alibek
Пробовал, но моих познаний в SQL не хватило на составление такого запроса Изначально данные и берутся из двух dbf таблиц. Правда эти таблицы сейчас расположены на разных дисках
Igor_123
Если дашь толковые ссылки как работать с коллекциями буду очень признателен.
Я так понимаю что в твоем варианте я буду пытыться добавить элементы из второго массива в коллекцию в которой находятся элементы первого. Если такой элемент есть то возникат ошибка если нет то он добавляется и я должен буду отловить это добавление? Но дело в том что если элемента B(i) нет в первом массиве то это грубейшая ошибка и добавлять его в первый ни в коем случае нельзя.

[alibek]

select *
from b
where b.id not in (select id from a)

[Igor_123]

Толковых ссылок не дам, потому, что не знаю. Коллекция это аналог С++ -ого STL set
вот пример:

Код: Выделить всё

Private Sub Command1_Click()
Dim mCol As New Collection
Dim a(1 To 10) As Long
Dim b(1 To 10) As Long
Dim c(1 To 10) As Long
Dim i As Long, j As Long
Dim bFlag As Boolean
' Сначала инициализируем массивы и заполняем значениями первого массива коллекцию
For i = 1 To 10
    a(i) = i
    mCol.Add a(i), CStr(a(i))
    b(i) = i + 2
Next i
'В массиве два элемента не совпадают с остальными b(9) = 11 b(10) = 12
'получаем их
On Error GoTo labErr
j = 0
For i = 1 To 10
' Ставим флаг успешного добавления
    bFlag = True
'    Пробуем добавить, если такой элемент есть, попадаем в обработчик ошибок, где сбрасываем флаг
'    иначе добавление прошло успешно и запоминаем элемент
    mCol.Add b(i), CStr(b(i))
    If bFlag Then
        j = j + 1
        c(j) = b(i)
    End If
Next i
For i = 1 To j
    Debug.Print c(i)
Next i
Exit Sub

labErr:
If Err.Number = 457 Then
    bFlag = False
    Resume Next
End If
End Sub

[DirectXManiac]

А чего изящно? Зачем? Скорость важна?

[gjghjc]

DirectXManiac Ну конечно Скорость она всегда важна

Все! Победил. Я же говорил что просто сидел и тупил, а нужно было включить мозг.

1. Условие выхода из цикла

Код: Выделить всё

Do
Loop Unil (UpLim - LowLim) <= 1

а не

Код: Выделить всё

Do Unil (UpLim - LowLim) <= 1
Loop

2 Перед выходом проверяем такое условие

Код: Выделить всё

UpLim - LowLim <= 1 AND В(i) < A(UpLim)  AND B(i) > A(LowLim)

,
то следовательно этот элемент массива кривой и его значение пишется в лог.
Огромное спасибо DirectXManiac, alibek, Igor_123 за то что помогли включить мой мозг.