Подскажите путь решения задачи

[Max Jagger]

Задача:
есть производственная необходимость периодически сравнивать 2 файла Excel, которые приходят по почте, сравнивать на наличие повторяющихся позиций (строк) и результат сравнения записывать в новый файл Excel.
Подскажите пожалуйста каким образом это можно сделать с помощью офисного VB. Меня интересует какие объекты использовать и куда эти объекты писать (с интерфейсом не знаком совершенно). Логику кода объяснять не нужно - программировать умею.

[GSerg]

Какой результат сравнения записывать?

[Max Jagger]

Необходимо отбрасывать повторяющиеся позиции, а оставшиеся позиции записывать в новый файл.

[GSerg]

Самое простое - скопировать один список в конец второго, затем применить Данные Фильтр Расширенный Только уникальные записи.

[Twister]

GSerg у меня тоже вопрос на данную тему:

Есть два файла текстовых (можно даже отсортированные по возрастанию) каждая строка которого число (Long). Мне нужно сравнить эти файлы и занести в массив те строки, которые есть лишь в одном файле (не повторяются во втором). Размер файлов может колебаться от 400 до нескольких тысяч строк. Но перебор по каждой строке и сравнение с другим файлом займет много времени (допустим по 1000 строк в каждом файле, тогда 1000 * 1000 = 1000 000 итераций цикла, а это подвисон, даже DoEvents не выход). Вот и хотел спросить алгоритм, скодить-то я смогу... (хотя от готового кода не откажусь )

[Andrey Fedorov]

Вот и хотел спросить алгоритм, скодить-то я смогу... (хотя от готового кода не откажусь )

Ты неправ ибо кол-во переборов меньше.

А если списки в файлах уже отсортированы, то задача упрощается до смешного. Подумай - оно совсем просто...

[Twister]

нет, если отсортированные, то я знаю как это быстро сделать
но они не всегда таковые...

Ты неправ ибо кол-во переборов меньше.

Почему меньше - я сравниваю каждую строку в файле со всеми в другом и получается много.

Вообще, я уже почти знаю как реализовать задачу, хотел спросить вашего совета...

[Andrey Fedorov]

Почему меньше - я сравниваю каждую строку в файле со всеми в другом и получается много.

А зачем сравнивать каждую строку со всеми другими?
Это неоптимально.

[Twister]

Знаю, есть другой подход - сравнивать строки попарно, и если несовпадение, то ... ну там действа разные.

[Andrey Fedorov]

Знаю, есть другой подход - сравнивать строки попарно, и если несовпадение, то ... ну там действа разные.

Ну допустим, не попарно...

[Twister]

Ну тогда не темни, зацени идейку...

[Andrey Fedorov]

В общем, держи пример:

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

    Dim m1(100) As Long, m2(100) As Long, m() As Long, b As Boolean
    Dim i1 As Long, i2 As Long, j As Long, k As Long, i As Long, im As Long
   
    ' Заполним два массива m1 и m2
    For i1 = 0 To UBound(m1)
        m1(i1) = (i1 + 1) * 2
    Next i1
    For i2 = 0 To UBound(m2)
        m2(i2) = (i2 + 1) * 7
    Next i2
   
    ' Из двух массивов получим один с неповторяющимися значениями (неотсортированный)
    ReDim m(UBound(m1) + UBound(m2) + 1)
    For i1 = 0 To UBound(m1)
        m(i1) = m1(i1)
    Next i1
    i1 = UBound(m1): k = 0: im = i1
    For i2 = 0 To UBound(m2)
        j = m2(i2): b = True
        For i = k To i1
            Select Case m(i)
                Case j
                    b = False: k = i + 1
                    Exit For
                Case Is > j
                    k = i
                    Exit For
            End Select
        Next i
        If b Then
            im = im + 1
            m(im) = j
        End If
    Next i2
    ReDim Preserve m(im)
   
    ' При желании - напечатаем результат
    For i = 0 To UBound(m)
        Debug.Print m(i)
    Next i


Специально замера не делал, но неповторяющиеся значения из двух массивов по миллиону строк в каждом выбираются в третий массив примерно за 2 секунды. Устроит?

[Twister]

Ну спасибо, просто огромный РЕСПЕКТ!!!
Чуть позже код разберу...

[Andrey Fedorov]

нет, если отсортированные, то я знаю как это быстро сделать но они не всегда таковые...

А если неотсортированные, то скинуть в две таблички и сделать по ним SELECT FROM NOT EXISTS(...)...

Как вариант - довольно простого решения