Серый форум — AHK: Как читать нетекстовые файлы?

Re: AHK: Как читать нетекстовые файлы?

null@example.com (YMP) — Sun, 07 Jul 2013 13:24:14 +0000

Например, такой функцией. Вывести 32 байта группами по 4.


file := FileOpen("c:\1.bmp", "r")
ret := file.RawRead(buf, file.length)
file.Close()

hex := bin2hex(buf, 32, 4)

MsgBox, %hex%

bin2hex(ByRef buf, bytes, group = 0)
{
    tmp := A_FormatInteger
    SetFormat, Integer, Hex
    Loop, %bytes%
    {
        hex .= SubStr("0" . SubStr(NumGet(buf, A_Index - 1, "UChar"), 3), -1)
        If (group > 0) && !Mod(A_Index, group)
            hex .= " "
    }
    SetFormat, Integer, %tmp%
    Return hex
}

Re: AHK: Как читать нетекстовые файлы?

null@example.com (Next) — Sun, 07 Jul 2013 12:23:27 +0000

YMP пишет:

Хекс-представление — это уже строка, текст.

А как же её получить из bmp, avi, и т.п. средствами AHK?

Re: AHK: Как читать нетекстовые файлы?

null@example.com (YMP) — Sun, 07 Jul 2013 11:02:29 +0000

Бинарные файлы редактируют в хекс-редакторах. Т.е. значения байтов переводятся в 16-ричные числа и в таком виде показываются. При сохранении изменений — обратный перевод. Вы можете так же попробовать. Хекс-представление — это уже строка, текст.

Re: AHK: Как читать нетекстовые файлы?

null@example.com (Next) — Sun, 07 Jul 2013 10:39:42 +0000

Да, работает.
Но как мне редактировать таким образом прочитанный файл? Я ожидал увидеть информацию в таком же виде, как и в обычных текстовых файлах и определённым образом её редактировать.

Re: AHK: Как читать нетекстовые файлы?

null@example.com (YMP) — Sun, 07 Jul 2013 09:15:44 +0000

Смотреть этот буфер как текст бесполезно, т.к. там содержатся нулевые байты, которые в тексте обозначают конец строки. Сохраните этот буфер в другой файл методом RawWrite и потом сравните исходный файл и эту копию.


file := FileOpen("C:\1.bmp", "r")
ret := file.RawRead(buf, file.length)
file.Close()

file := FileOpen("C:\2.bmp", "w")
file.RawWrite(buf, ret)
file.Close()

Re: AHK: Как читать нетекстовые файлы?

null@example.com (Next) — Sun, 07 Jul 2013 08:52:19 +0000

Я открывал перед этим bmp с помощью Notepad++ и ожидал увидеть при чтении скриптом что-то аналогично. И мне сложно представить, что содержимое bmp-файла 10x10 пикселей поместилось в два символа.

Re: AHK: Как читать нетекстовые файлы?

null@example.com (YMP) — Sun, 07 Jul 2013 08:14:29 +0000

Да, в неё. А как вы определили, что не то?

Re: AHK: Как читать нетекстовые файлы?

null@example.com (Next) — Sun, 07 Jul 2013 07:56:52 +0000

А куда собственно само прочитанное помещается? В переменную "buf"? Что-то у меня в ней не то...

Re: AHK: Как читать нетекстовые файлы?

null@example.com (Next) — Sun, 07 Jul 2013 07:52:00 +0000

Спасибо! Попробую.

Re: AHK: Как читать нетекстовые файлы?

null@example.com (YMP) — Sun, 07 Jul 2013 02:44:04 +0000

Есть объект File и его метод RawRead.


file := FileOpen("C:\1.bmp", "r")
ret := file.RawRead(buf, file.length)
file.Close()

MsgBox, Прочитано %ret% байт

Кстати, поправьте заголовок темы (префикс), пока модератор не заругался.

AHK: Как читать нетекстовые файлы?

null@example.com (Next) — Sat, 06 Jul 2013 23:59:09 +0000

Не могу прочитать даже маленький файл *.bmp

Применил простые


FileRead, var, C:\1.bmp
FileAppend, %var%, C:\1.txt

В txt попадает только первая часть "BMv".