|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
25.10.2014, 18:09 | #1 |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
Сравнить по содержимому HEX значения
Всем привет, на связи опять Я.
Есть задача, разобью её на две. Первая Нужно сравнить по содержимому и удалить одинаковые значения по строкам. Есть данные в столбцах А и В. Если в строке одинаковые значения по символам - удалить эту строку, а если отличаются, то подсветить красным эти различия, только в столбце В, причём, если возможно, то пару, пара - всегда два символа от любого конца. Например 608B47C0FC8147C0E88247C0BC8347C0 это по парам так 60 8B 47 C0 FC 81 47 C0 E8 82 47 C0 BC 83 47 C0 Код:
Вторая задача, определится от первой. Спасибо. Последний раз редактировалось valerij; 25.10.2014 в 18:22. |
25.10.2014, 18:46 | #2 |
Форумчанин
Регистрация: 14.02.2009
Сообщений: 753
|
Универсальная процедура QWERT
Код:
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru Последний раз редактировалось alex77755; 25.10.2014 в 18:58. |
25.10.2014, 18:54 | #3 |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
|
25.10.2014, 18:56 | #4 |
Форумчанин
Регистрация: 14.02.2009
Сообщений: 753
|
Уже удаляет. поправил код
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru |
25.10.2014, 19:06 | #5 |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
Супер!!!!
Теперь я отсею из 4 243 107 строк одинаковые, определюсь со второй частью задачи, ~ там будет нужно удалять не совпадающие строки, оставлять только совпавшие. (возможно и сам разберусь, опираясь на ваш макрос ) Если чяво, потревожу!! --------------- | ^^пиво^^ \\|""\\_,_ |___________||___|__|) (@)(@)""*|(@)(@)**(@) |
25.10.2014, 19:40 | #6 |
Форумчанин
Регистрация: 14.02.2009
Сообщений: 753
|
Строки в екселе?
Если в текстовике, то, по идее, можно сделать быстрее обработку
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru |
25.10.2014, 20:24 | #7 | |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
Цитата:
Мгновенно делает. Конечно столько строк делить по 1023 за раз - хлопотно... А в текстовике - только Notepad++ открывает, стандартный виснет. Notepad с HEX редактора копирует в одну строчку, потом мне надо преобразовать в таблицу по 32 символу. Как Excel заставить работать с txt, я не в курсе, как Word -ом делать я знаю. Как то так. Или, что вы имели ввиду? Сделал через макрос ворда в txt, потом в Эксель, получилось по 265194 строки Запускаю макрос QWERT виснет Эксель наглухо. Чё так?? проц 4 ядерный, ОЗУ 8 гб, скоростные диски.... А если в макросе QWERT сделать что бы он брал рабочую область по выделению, выделил кусок - сделал и т. д. ? Вордовский макрос и через эксель работает, даже быстрее. Код:
Последний раз редактировалось valerij; 25.10.2014 в 22:56. |
|
25.10.2014, 23:12 | #8 |
Форумчанин
Регистрация: 14.02.2009
Сообщений: 753
|
Читать можно построчно
Довольно бысрый вариант через CreateObject("Scripting.FileSystemO bject") есть ещё более быстрый вариант. Читать большими блоками. Именно в данном случае, думаю, он подойдёт. Надо порыться в кирпичах и иметь образец файла. Вопрос обсуждался. Были хорошие быстрые решения
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru |
25.10.2014, 23:14 | #9 |
Форумчанин
Регистрация: 14.02.2009
Сообщений: 753
|
Line Input #1, S1 , насколко я помню, был медленный вариант
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru |
26.10.2014, 09:19 | #10 | |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
Цитата:
alex77755 Если я поменял не 32 символа в строке - как в HEX редакторе, а 16 - как в Total Commander при сравнении файлов, так более удобней, больше отсеиваются данных, то в вашем макросе ничего не надо менять? Проверил, всё работает, оптимально по 30 000 строк, терпимо обрабатывает. |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Сравнить два ассоциативных массива и вывести одинаковые значения. | livesport | PHP | 1 | 20.10.2012 15:10 |
Выдать кол-во суммируемых элементов,сравнить значения(Pascal) | reprain | Помощь студентам | 0 | 07.10.2012 21:51 |
Выдать кол-во суммируемых элементов,сравнить значения(Pascal) | reprain | Помощь студентам | 14 | 07.10.2012 20:59 |
поиск hex значения в бинарном файле (большого объема) | witia03 | Общие вопросы Delphi | 10 | 23.05.2012 20:25 |
ADoQuery inputbox сравнить значения | detalik | Помощь студентам | 2 | 18.05.2011 08:31 |