Файлы и папки

Вопрос

Как осуществлять чтение/сохранение текстовых файлов в 16-ричном режиме?

Ответ

Примерно так:

Dim bytData(2) as Byte Open … As 1 Get 1,,bytData MsgBox Hex(bytData(0)) '3 MsgBox Hex(bytData(1)) '1F MsgBox Hex(bytData(2)) '5C bytData(0) = 255 'FF bytData(1) = 0 '00 bytData(2) = 255 'FF Put 1,,bytData Close 1
Savenger