VBS string -> array of byte

[ger_kar]

Да заморочено, но тоже может пригодится, возьму на заметку.

[ark]

В результате получил такой файл
0000000000: FEFF 041F 043E 043F │ 043A 0430 0020 002D ?Попка -
0000000010: 0020 0434 0443 0440 │ 0430 043A дурак
Что это за 0x04 и 0xFE, 0xFF вначале - науке неизвестно...

Почему неизвестно?
FEFF - ВОМ (Bite order mark) Означает, что стрим твой (как и файл) - big-endian UTF-16
041F = "П"
043E = "о"
043F = "п"
Ну и так далее. Поставь первому стриму нужный чарсет ("windows-1251" или "us-ascii") и пиши себе строку, тогда во втором стриме будет нужный тебе массив байтов

[ALX_2002]

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

MsgBox TypeName(strToBin("abcdefghijk"))

Function strToBin(buffer)
   With CreateObject("SAPI.spMemoryStream")
      .Write buffer
      strToBin = .getData
   End With
End Function

Может пригодится...

[Хакер]

ВОМ (Bite order mark)

Byte, а не bite.

[ALX_2002]

OFFTOP: Bite order mark = Порядок расположения следов укусов ?