Что нового

Представление данных в бинарном виде

Pushok

Новичок
Сообщения
2
Репутация
0
Добрый вечер!

Помогите пожалуйста разобраться, как загруженный файл представить в виде бинарного кода 0/1 и результат сохранить в другой файл.
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
Pushok [?]
как загруженный файл представить в виде бинарного кода 0/1 и результат сохранить в другой файл
Код:
Local $sBin

;~ $sFileName = "in_file.txt"
;~ $hFile = FileOpen($sFileName, 0) ; ASCII mode
$sFileName = "in_file.jpg"
$hFile = FileOpen($sFileName, 16) ; Binary mode

For $i = 1 To FileGetSize($sFileName)
   $sByte = FileRead($hFile, 1)
   $sBin &= _ToBin($sByte)
Next

FileClose($hFile)

$sFileName = "out_bin.txt"
$hFile = FileOpen($sFileName, 2) ; Write mode (erase previous contents)
FileWrite($hFile, $sBin)
FileClose($hFile)

#Region Functions

Func _ToBin($v_Data)

   Local $s_Bin, $b_Tmp

   Switch VarGetType($v_Data)
	  Case "String"
		 $b_Tmp = Asc($v_Data)
	  Case "Binary"
		 $b_Tmp = $v_Data
   EndSwitch

   For $i = 1 To 8
	  $s_Bin &= BitAND($b_Tmp, 0x80) ? '1' : '0'
	  $b_Tmp = BitShift($b_Tmp, -1)
   Next

   Return $s_Bin
EndFunc ;==> _ToBin

#EndRegion Functions
 
Автор
P

Pushok

Новичок
Сообщения
2
Репутация
0
Супер, то что нужно. Огромное спасибо! :IL_AutoIt_1:
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
OffTopic:
Pushok
В следующий раз (с таким подходом) пишите сюда, или если просите помочь, то хотя бы свой код с чтением и записью файла выкладывайте. Это будет гарантией того, что вы хотя бы в справку заглядывали!.



Добавлено:
Сообщение автоматически объединено:

Pushok [?]

[info border=#0000ff float=left]На форуме принято помечать тему решенной после получения ответа на свой вопрос!
Вверху или внизу темы нажмите на ссылку такого вида:
package_old.gif
Тема не решена
[/info]
 
Верх