Нужно строку перевести в массив байт. Как быстрее?

[kibernetics]

Гружу файл в массив байт таким образом:

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

Dim FreeNum As Integer
Dim OriginalArray() As Byte
FreeNum = FreeFile
    Open Name For Binary As #FreeNum
    ReDim OriginalArray(0 To LOF(FreeNum) - 1)
    Get #FreeNum, , OriginalArray()

Как можно сделать из обычной строки массив байт похожим способом?

[Atoman]

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

Dim Buff() As Byte, cStroca As String
Buff = StrConv("Stroca", vbFromUnicode)
cStroca = StrConv(Buff, vbUnicode)

[kibernetics]

Atoman
отлично, спасибо! не дотумкал сам...
хотя, читал где-то несерьёзные истории про StrConv...

[Хакер]

И зачем тут StrConv ?

[Atoman]

И зачем тут StrConv ?

Человеку надо перевести строку(взятую из переменной) в вайты

[Хакер]

Я знаю, что человеку нужно. Действительно, в вайты, да.

Я спросил, зачем здесь StrConv?

[kibernetics]

Хакер
? На что ты намекаешь?
Полагаешь можно обойтись без StrConv (естественно не городя мега-супер турбофункцию)?

[alibek]

Да, если файл (массив) нужен юникодный.

[Денис]

kibernetics
А то!

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

Buff = "Stroca"
cStroca = CStr(Buff)

Atoman привел пример для NonUnicode OS...

[alibek]

CStr лишний.

[Денис]

Невероятно! Работает.

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

Dim Buff() As Byte, cStroca As String
Buff = "Пример на VB"
cStroca = Buff

заюзаем...

[kibernetics]

Юникод не требуется, более того, если это принципиально, то только цифры и точка(запятая) в строке.

[Andrey Fedorov]

Юникод не требуется, более того, если это принципиально, то только цифры и точка(запятая) в строке.

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

m =StrConv(s, vbFromUnicode)

А что с массивом-то делать собираешься? Может на деле и не нужно конвертировать...

[kibernetics]

Andrey Fedorov
массив хочу подсунуть компрессору Хоффмана. Жмёт почти в два раза.