Сравнить цифры из txt с цифрами в Excel

[venik6000]

Здравствуйте! Подскажите пожалуйста!
Есть txt файл с цифрами.
Есть excel файл с цифрами.
Нужно цифры из txt сравнить с цифрами из Excel. Найти совпадения и посчитать сколько этих самых совпадений.
Сколько цифр совпало идеально, сколько цифр совпало с погрешностью в 0,01; 0,02.
Сколько цифр не совпало вообще (то есть погрешность превышает 0,03 и более).
Цифры с разрядностью до десятых и сотых.
При необходимости могу выслать файлы, чтобы было нагляднее.
Уже всю голову сломал.

[Hugo121]

А без файлов ничего и не получится...
Обе группы данных в два массива, перебираем цикл в цикле, каждый элемент одного массива сравниваем по 5 раз - как есть, и с погрешностью. Совпадения собираем в 3 переменных + несовпадения.

[venik6000]

http://disk.tom.ru/kjdz1h4

Там есть пример того как должно быть.
Делал руками, а хочу автоматизировать. Потому что нужно сделать много таких документов.
Тоесть как всё было. Я смотрел на данные из txt и сравнил их с теми что есть в exl. И в зависимости от того на сколько они совпадали ставил в колонки.
Р0 это идеально совпавшие
Р1 это с погрешностью 0,01
Р2 с погрешностью 0,02
Р- это с погрешностью более чем 0,02 или цифры которые отсутствуют.
Р+ это так сказать лишние, все остальные цифры

[Hugo121]

Не очень понятно - все цифры текстового файла нужно сравнивать, или по группам?
Там есть много повторяющихся цифр - их очевидно считаете как одну?
И с Р- тоже не понятно - почему там тогда не все остальные цифры? Когда кончается погрешность более чем 0,02?

[venik6000]

Там в текстовом файле есть ещё так называемые пороги. Пороги, это фильтрация значений. То есть числа стоящие ближе 0.1 удаляются. При пороге 20 числа ближе 0.2 удаляются. У меня пороги для этого нужны.
К примеру возьмём порог 0.
Сравниваем все числа из txt c числами из Exl.
В моём примере так: Возьмём к приеру 0,554 из exl и 0,55 из txt.
(0,554 округляется до сотых)
Сравниваем 0,55 из exl с 0,55 из txt. Заносим в Р0
Идём дальше.
Сравниваем 0,579 из exl. Ищем какое число ближе всего. в нашем случае это 0,58 (цифра в txt). т.к. разница в 0,01 заносим в Р1.
Те значения которые в txt между 0,55 и 0,58 заносим в Р+. Примерно так.
Про Р- тоже расскажу на примере:
У меня в примере есть цифра 3,012. В txt её нету. И ближайшая цифра к ней 2.88. Значит заношу её в Р-. Иду дальше. Следующая цифра стоит 3.041. Ближайшая снова 2.88. заношу снова эту цифру в Р-. В Итоге меня интересует сумма цифр идеально совпавших, с погрешность в 0,01 и 0,02. сумма цифр которые совсем не совпали (Р-). А тут я уже сам могу подсчитать сколько цифр у меня будет в Р+. путём складывания Р0,Р1,Р2, Р-. И вычитания из общего количества цифр в txt файле при 0 пороге. Примерно так.
Ох! Извините что гружу вас этими всеми значениями! Но без помощи знающих людей у меня ничего не получится =(
Даже если цифры из txt перенесу в exl всё равно не разберусь я с этим сравнением

[Hugo121]

Понял приблизительно.
Нужно подумать...
А вот интересно, как Вы подсчитываете "общего количества цифр в txt файле"? Ведь нужно уникальные считать, а не все?
Я тут прикинул, уже вероятно видели на планете:

Sub FromTxt2Collection()
    Const ForReading = 1
    Const Path2IncomingFile = "c:\venik.txt"
    Dim f As Variant, fs As Variant, v As Variant, b As String
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.OpenTextFile(Path2IncomingFile, ForReading, False)

    With CreateObject("Scripting.Dictionary")

        Do
            b = f.readline
            For Each v In Split(b)
                v = Trim(v): .Item(v) = 1
            Next
        Loop Until (f.AtEndOfStream)
        f.Close

        For Each v In .keys
            Debug.Print v
        Next

    End With

End Sub

[venik6000]

Большое Вам Спасибо За помощь! Проблему свою решил путём написания программы. уже отписал на планете, может видели
Ещё раз Спасибо! И Извините за беспокойство

[Hugo121]

Да, видел. Вариантов хватает.