Сравнить по содержимому HEX значения

[valerij]

Всем привет, на связи опять Я.
Есть задача, разобью её на две.
Первая
Нужно сравнить по содержимому и удалить одинаковые значения по строкам.
Есть данные в столбцах А и В.
Если в строке одинаковые значения по символам - удалить эту строку, а если отличаются,
то подсветить красным эти различия, только в столбце В, причём, если возможно, то пару, пара - всегда два символа от любого конца.
Например
608B47C0FC8147C0E88247C0BC8347C0
это по парам так
60 8B 47 C0 FC 81 47 C0 E8 82 47 C0 BC 83 47 C0

           [А-A]                               [B-B]
00000000000000000000000000000000 00000000000000000000000000000000 - удалить
00000000000000000000000000000000 00С00000000000000000000000000001 - подсветить

Во вложении всего 23 строки, а по факту строк 4 243 107 штук.

Вторая задача, определится от первой.
Спасибо.

[alex77755]

Универсальная процедура QWERT

Sub QWERT()
Dim M(), R, C, T1, T2
    With Лист1
        Cells.Characters.Font.ColorIndex = 0
        Cells.Characters.Font.Bold = 0
        M = .Range("A1").Resize(.Cells(.Rows.Count, 1).End(xlUp).Row, 2)
        For R = UBound(M) To 1 Step -1
            If M(R, 1) = M(R, 2) Then
                Rows(R).Delete
            Else
                For C = 1 To Len(M(R, 2)) Step 2
                    T1 = Mid(M(R, 1), C, 2): T2 = Mid(M(R, 2), C, 2)
                    Debug.Print R, C, T1, T2
                    If T1 <> T2 Then Cells(R, 2).Characters(Start:=C, Length:=2).Font.ColorIndex = 41
                    If T1 <> T2 Then Cells(R, 2).Characters(Start:=C, Length:=2).Font.Bold = 1
                Next C
            End If
        Next R
    End With
End Sub

[valerij]

Сообщение от alex77755

Универсальная процедура QWERT

Подсвечивает отлично, но не удаляет одинаковые строки. а - самое главное.

[alex77755]

Уже удаляет. поправил код

[valerij]

Сообщение от alex77755

Уже удаляет. поправил код

Супер!!!!

Теперь я отсею из 4 243 107 строк одинаковые, определюсь со второй частью задачи, ~ там будет нужно удалять не совпадающие строки, оставлять только совпавшие.
(возможно и сам разберусь, опираясь на ваш макрос )

Если чяво, потревожу!!

---------------
| ^^пиво^^ \\|""\\_,_
|___________||___|__|)
(@)(@)""*|(@)(@)**(@)

[alex77755]

Строки в екселе?
Если в текстовике, то, по идее, можно сделать быстрее обработку

[valerij]

Сообщение от alex77755

Строки в екселе?
Если в текстовике, то, по идее, можно сделать быстрее обработку

Я частями делаю по 1023(больше не влазает) * 3 = 3069 строк - [A-A] и столько же в [B-B], после отсева осталось 215 строк.
Мгновенно делает.

Конечно столько строк делить по 1023 за раз - хлопотно...


А в текстовике - только Notepad++ открывает, стандартный виснет.
Notepad с HEX редактора копирует в одну строчку, потом мне надо преобразовать в таблицу по 32 символу.

Как Excel заставить работать с txt, я не в курсе, как Word -ом делать я знаю.
Как то так.
Или, что вы имели ввиду?

Сделал через макрос ворда в txt, потом в Эксель, получилось по 265194 строки
Запускаю макрос QWERT виснет Эксель наглухо.
Чё так??
проц 4 ядерный, ОЗУ 8 гб, скоростные диски....

А если в макросе QWERT сделать что бы он брал рабочую область по выделению, выделил кусок - сделал и т. д. ?

Вордовский макрос и через эксель работает, даже быстрее.

Sub W140529_1209()
Dim S1, S2, J1, J1K, J2, jp
jp = 32
Reset
Open "C:\RAB\16_HEX.TXT" For Input As #1
Open "C:\RAB\32_HEX.txt" For Output As #2
Line Input #1, S1
    J1K = Len(S1)
        J1 = 1
            J2 = 0
        Do While J1 < J1K
            S2 = Mid(S1, J1, jp)
        Print #2, S2
            J2 = J2 + 1
        J1 = J1 + jp
Loop
Close #1
Close #2
Debug.Print Now, J2, J1K
End Sub

[alex77755]

Читать можно построчно
Довольно бысрый вариант через CreateObject("Scripting.FileSystemO bject")
есть ещё более быстрый вариант. Читать большими блоками.
Именно в данном случае, думаю, он подойдёт. Надо порыться в кирпичах и иметь образец файла.
Вопрос обсуждался. Были хорошие быстрые решения

[alex77755]

Line Input #1, S1 , насколко я помню, был медленный вариант

[valerij]

Сообщение от alex77755

Читать можно построчно
Довольно бысрый вариант через CreateObject("Scripting.FileSystemO bject")
есть ещё более быстрый вариант. Читать большими блоками.
Именно в данном случае, думаю, он подойдёт. Надо порыться в кирпичах и иметь образец файла.
Вопрос обсуждался. Были хорошие быстрые решения

Для меня это не понятно
alex77755
Если я поменял не 32 символа в строке - как в HEX редакторе, а 16 - как в Total Commander при сравнении файлов, так более удобней, больше отсеиваются данных, то в вашем макросе ничего не надо менять?
Проверил, всё работает, оптимально по 30 000 строк, терпимо обрабатывает.