Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
mitivili
0 / 0 / 0
Регистрация: 11.07.2019
Сообщений: 2
1

Вывести содержимое бинарного файла в msg Box, кракозябрами

11.07.2019, 21:52. Просмотров 964. Ответов 5
Метки нет (Все метки)

Всех приветствую, задача следующая - Есть файл с расширением .so мне нужно из этого файла взять всё содержимое , даже без кодировки можно кракозябрами, и главное что бы записать в любой текст бокс , что бы я мог найти определённое слово в содержимой, в этом файле есть как и кракозябры так и слова которые читаются, при попытке вывести содержимое в Msg Box выводит не весь код а всего лишь 5 символов хотя там информации много довольно, как быть та товарищи (сэнсеи ) ? С текстовым та всё понятно файлами а вот бинарными как быть ? Искал дня 4 замучился уже.

Добавлено через 16 минут
Дополню , если я открываю в hex редакторе с кодировкой ( ANCII ) этот файл .so открывает хоть и кракозябры но мне этого будет достаточно для своей задачи так как там есть слова которые мне нужно отследить. А когда я пытаюсь с этой же кодировкой открыть файл и считать его примерно в msg box через VB он считывает только первые 5-8 символов (букв) и дальше не хочет я так понял нужно по байтно записать в начале в переменную а потом эти байты перевести в ACNII кодировку ? Я просто не могу понять какая логика последовательность должна быть.

Вот мой код MsgBox(IO.File.ReadAllText(Patch, System.Text.Encoding.ASCII))
записывает в msg box первые 5 букв и останавливается, хотелось бы весь код.

к примеру если я открываю тоже бинарный файл но с другим расширением к примеру .img тогда выводит весь код кракозябрами .

Добавлено через 2 часа 15 минут
Нашёл как кракозябры прописать построчно Вот код
Form2.ListBox2.Items.AddRange(IO.File.ReadAllLines(Patch, System.Text.Encoding.BigEndianUnicode)) Но только как быть с кодировкой , там даже слова не читабельные .
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.07.2019, 21:52
Ответы с готовыми решениями:

Как перевести код из Function () в Sub() с использованием Input и Msg Box?
Как перевести код из Function () в Sub() с использованием Input и Msg Box? Function...

Как переделать код из Function () в Sub() с использованием Input и Msg Box?
Как перевести код из Function () в Sub() с использованием Input и Msg Box? Function...

Msg Box выводит только 1 запись из запроса, как отобразить все?
Здравствуйте! Снова обращаюсь за помощью. Появилась такая проблема: в MsgBox написала нужный...

Как вывести содержимое бинарного файла на экран?
Как в программе оформить вывод содержимого бинарного файла на экран? #include <clocale> #include...

опишите работы и свойства Inpput Box и Msg Box
раскажите что это и с чем его едят!:)

5
StudAssistant
Эксперт
9811 / 7003 / 2319
Регистрация: 17.04.2006
Сообщений: 9,622
11.07.2019, 21:52
Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.
5
Остап Бонд
1061 / 559 / 266
Регистрация: 17.08.2017
Сообщений: 1,454
12.07.2019, 09:22 2
mitivili, просто кодировку русскую включить при копировании не пробовал? или файл покажи, гадалки в отпуске все.
1
Alex77755
10939 / 3430 / 589
Регистрация: 13.02.2009
Сообщений: 10,177
12.07.2019, 22:01 3
Visual Basic
1
Вот мой код MsgBox(IO.File.ReadAllText(Patch, System.Text.Encoding.ASCII))
Ну почему бы не задать этот вопрос на сайте знакомств?
А что? в разделе VBA задавать можно вопросы по vb.net
А по вопросу: имеется много различных перекодировщиков
И думаешь у всех имеются файлы *.co?
Хоть бы догадался прицепить образец файла. Не всем охота искать в интернете файлы с нужным расширением
1
mitivili
0 / 0 / 0
Регистрация: 11.07.2019
Сообщений: 2
13.07.2019, 00:54  [ТС] 4
Спасибо что отреагировали, уже разобрался , нужно было из кода вывести определённое слово в определённом месте, но не мог подобрать кодировку, было бы интересно узнать информацию на будущее, как вообще определять кодировку к любому файлу ну или хотя бы не к любому.

Интересно то что в слепую пришлось искать методом тыка, так как ни в кокой элемент эти слова не прописывались а лишь были пробелы, наверное дело в том что в коде присутствуют значения 00 из-за этого процедуры думают что файл закончен либо нужно записывать с новой строки ))). А в слепую как бы из переменных данных с помощью substring () нашёл по нужному указанному месту ))). Мне предлагали код, но он что-то меня отпугивал , слишком большой ,громоздкий. У меня вышел маленький.

Было бы ещё интересно , как обойти вот эти 00 - нули что бы процедуры не обращая на них внимания и дальше читали код и писали его в элементы типа лист-бокс.

Всё равно спасибо всем !
0
Alex77755
10939 / 3430 / 589
Регистрация: 13.02.2009
Сообщений: 10,177
13.07.2019, 19:26 5
В VB (VBA) так
Visual Basic
1
2
3
 Open sFileName For Binary Access Read As #1
    Get #1, , messUSB()
  Close #1
0
fever brain
oh my god
1377 / 732 / 154
Регистрация: 05.01.2016
Сообщений: 2,222
Записей в блоге: 7
13.07.2019, 22:36 6
Лучший ответ Сообщение было отмечено mitivili как решение

Решение

Тут потребуется прямое копирование
причем сделать это не программно а в среде експлоера

На всякий случай. код прочтения и сохранения
Visual Basic
1
2
ff = FreeFile: Open FileName For Binary As #ff: s = Space(LOF(ff)): Get #ff, 1, s: Close #ff
On Error Resume Next: Kill FileName: ff = FreeFile: Open FileName For Binary As #ff: Put #ff, 1, s: Close #ff
Добавлено через 2 минуты
аминь
1
13.07.2019, 22:36
StackOverflow
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.07.2019, 22:36

Переписать содержимое бинарного файла
Доброго времени суток! Столкнулся с такой задачей. Имеется бинарный файл, заголовок (первые 12...

Как посмотреть содержимое бинарного файла в терминале?
Доброго времени суток. Взялся читать один незамысловатый блог, в статье после основ рассказывается...

Как содержимое бинарного файла из ресурсов присвоить переменной?
Есть переменная созданная из структуры, и бинарный файл который лежит в Ресурсах проекта. Чтобы...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru