Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> как открыть файл и получить его содержания в 0,1 
:(
    Опции темы
dima_mak
Дата 28.11.2004, 13:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Программист любитель
*


Профиль
Группа: Участник
Сообщений: 154
Регистрация: 25.5.2004

Репутация: нет
Всего: нет
Как открыть файл и получить его содержания в бинарной системе (только 0,1)? Если да, то как?
PM MAIL   Вверх
boevik
Дата 28.11.2004, 13:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35
dima_mak, т.е. ты хочешь, чтоб каждый байт был бы 0 или 1?
Прочитай весь файл как обычно и раскладывай каждый байт на 0 и 1.


--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
dima_mak
Дата 28.11.2004, 14:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Программист любитель
*


Профиль
Группа: Участник
Сообщений: 154
Регистрация: 25.5.2004

Репутация: нет
Всего: нет
А примерчик не мог бы дать? smile
PM MAIL   Вверх
boevik
Дата 28.11.2004, 14:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35
dima_mak, чеги именно примерчик?
Как прочитать файл или как перевести байт в двоичную систему?
Ищи на форуме, не раз обсуждалось, особенно первая тема.


--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
dima_mak
Дата 28.11.2004, 14:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Программист любитель
*


Профиль
Группа: Участник
Сообщений: 154
Регистрация: 25.5.2004

Репутация: нет
Всего: нет
как открыть файл + как перевести байт в двоичную систему в одном куске кода smile

З.Ы искал "двоичная система", ничего не нашел.
PM MAIL   Вверх
boevik
Дата 28.11.2004, 15:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35
Отктыть файл:
Добавить к проекту reference Microsoft Scripting Runtime
Код

Dim File_Name As String
Dim oFSO As New FileSystemObject
Dim sFile As String

File_Name = "c:\temp\1.txt"
sFile = oFSO.OpenTextFile(File_Name).ReadAll


Перевод байта в двоичную систему, к примеру так
Код

Dim i As Integer
Dim s As String
Dim b As Byte

b = 121: s = ""
For i = 7 To 0 Step -1
   s = s & Int(b / (2 ^ i))
   b = b Mod (2 ^ i)
Next i


Скомбинируй нужный тебе код в один кусок

Это сообщение отредактировал(а) boevik - 28.11.2004, 15:07


--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
cardinal
Дата 28.11.2004, 17:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Цитата(boevik @ 28.11.2004, 14:06)
Перевод байта в двоичную систему, к примеру так

Лучше думаю делать так:
Код

Private Function AscToBin(Xn As Byte, ByRef b() As Byte)
  b(0) = Xn And 1
  b(1) = Xn And 2
  b(2) = Xn And 4
  b(3) = Xn And 8
  b(4) = Xn And 16
  b(5) = Xn And 32
  b(6) = Xn And 64
  b(7) = Xn And 128
End Function

Так быстрее. А потом с b() проще работать (например чтобы строку получить).


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
dima_mak
Дата 28.11.2004, 23:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Программист любитель
*


Профиль
Группа: Участник
Сообщений: 154
Регистрация: 25.5.2004

Репутация: нет
Всего: нет
Спасибо всем.
PM MAIL   Вверх
bankuss
Дата 29.11.2004, 08:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 396
Регистрация: 26.3.2004

Репутация: 3
Всего: 4
чето вы тут нагородили товарищи! smile вот как юзать файл в двоичном доступе:
Open имя_файла For Binary [Access Доступ] [Блокировка] As [#] Handle

пример: Open "type.xxl" for binary as 1

Команды ввода и вывода: Get и Put

пример: Get #1, 5, vrb - считывает в переменную vrb 5-й байт
аналогично работает Put
Если данные считываются в строку, то количество считываемых байтов равно длинне строки. Т.е. можно считывать кусками по несколько байт.
и не надо придумывать велосипед smile
PM MAIL   Вверх
boevik
Дата 29.11.2004, 09:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35
Насколько я понял, dima_mak, хочет получить представление файла в виде 0 и 1.
Хотя могу и ошибаться.



--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
cardinal
Дата 29.11.2004, 16:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Цитата(dima_mak @ 28.11.2004, 13:53)
как перевести байт в двоичную систему

bankuss, и где у тебя двоичная система?


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
bankuss
Дата 30.11.2004, 08:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 396
Регистрация: 26.3.2004

Репутация: 3
Всего: 4
cardinal он спрашивал про бинарный доступ (как он выразился - в бинарной системе) и только потом добавил про двоичку
PM MAIL   Вверх
cardinal
Дата 30.11.2004, 15:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Цитата(bankuss @ 30.11.2004, 07:05)
он спрашивал про бинарный доступ (как он выразился - в бинарной системе) и только потом добавил про двоичку

Да, но добавил он это до наших с boevik'ом сообщений, так что это
Цитата(bankuss @ 29.11.2004, 07:18)
чето вы тут нагородили товарищи!

неуместно. smile

Ладно, проехали...


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0506 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.