Подсобите переводом переменной

[Andrey A Kireev]

Есть переменная (String) полученая таким способом.

Код: Выделить всё

mystring = String(size, " ") 'задаем формат переменной с размером size
Get #1, offset, mystring 'берем переменную по offset смещению


Если такую переменную выводить на экран или форму она выводится как Character набор символов, а какбы из этой переменной получить Hexadecimal набор символов.
Тоесть перевести всю переменную из Chr в Hex.

[Mikle]

Код: Выделить всё

    For n = 1 To Size
      Debug.Print Right$(Hex$(&H100 + Asc(Mid$(mystring, n, 1))), 2)
    Next n


&H100 нужно для того, чтобы 13 выглядело как 0D, а не D.

[GSerg]

Зачем делать лишние движения...
String assignable с Byte(). Поэтому

Код: Выделить всё

dim arr() as byte
redim arr(size)
get #1,offset,arr()

И вот хексы в каждом элементе...

[Andrey A Kireev]

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

Код: Выделить всё

Dim mystring() As Byte ' назначаем переменную как Byte
ReDim mystrin(size)  'определяем ее размер
Get #1, offset, mystring() 'получаем ее из файла

[Cyrax]

совершенно верно